VBA Excell< Sujet précédent  Sujet suivant >
Index du Forum -> .: Section Publique :. -> Le Bar
Auteur Message
Belgium.gif Furette
Special
Messages : 1437
Inscrit(e) le: 15/04/2010
Posté le 13/07/2017 09:14  
VBA Excell
Bonjour à tous je suis à la recherche d une séquence VBA qui me permettrait de remonter dans la cellule du dessus et à la fin des caractères taper dans celle ci si la cellule ne contient pas plus de 20 caractères.

Si qqu un peut m aider merci.

-------
Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 83
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 15:30  
RE : VBA Excell
Perso j'ai un truc comme ca a mettre dans les macro

quand tu essaye de changer de case si la precedente fait moins de 10 caractere ca te remet dedans


Code :

Dim Oldcell As Range



Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If Oldcell Is Nothing Then
Set Oldcell = Target
Exit Sub
End If

If Len(Oldcell) < 10 Then

Oldcell.Activate


End If
Set Oldcell = ActiveCell


End Sub



Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 83
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 16:02  
RE : VBA Excell
mieux
a chaque fois que tu change de case si la case precedente faisait pas 20 carracter les nouveaux vont s'ajouter aux precedent avec un espace

je pense ca peut etre ameliore j'ai fait ca en pause(genre ca peut etre complique de changer de case )


Code :

Dim Oldcell As Range
Dim OldOldcell As Range



Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If ActiveCell.Column <> 19 Then
Set Oldcell = Nothing
Set OldOldcell = Nothing
Else

If Oldcell Is Nothing Then
Set Oldcell = Target

End If
If OldOldcell Is Nothing Then
Set OldOldcell = Oldcell
End If
If (Len(OldOldcell) < 20 And OldOldcell <> Oldcell) Then
OldOldcell = OldOldcell.Text + " " + Oldcell.Text
If Len(OldOldcell) > 20 Then
Set OldOldcell = Oldcell
End If

Oldcell = ""

Oldcell.Activate
Set Oldcell = ActiveCell
Else
Set OldOldcell = Oldcell
Set Oldcell = ActiveCell


End If

End If

End Sub



Edité par DkRedem le 13/07/2017 18:43
Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 83
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 16:31  
1499956308.xlsm (17 Ko)
RE : VBA Excell
mon fichier

Revenir en haut | Permalien
Belgium.gif Furette
Special
Messages : 1437
Inscrit(e) le: 15/04/2010
Posté le 13/07/2017 17:58  
RE : VBA Excell
c'est pas mal mais faudrait lui dire de faire ca sur un collone selectionnée et sans l'espace

-------
Revenir en haut | Permalien

Page générée en 0,142 secondes.


 
Avancée PVE

Boss
 Demoiselle de vigilance  
   
 Brise-monde Garothi  Down le 06/12/2017
 Molosses de Sargeras  Down le 07/12/2017
 Haut-commandement antoreen  Down le 29/11/2017
 Hasabel la garde-portail  Down le 29/11/2017
 Eonar la Lieuse-de-vie  Down le 29/11/2017
 Imonar le chasseur d'ames  Down le 30/11/2017
 Kin'garoth  Down le 30/11/2017
 Varimathras  Down le 30/11/2017
 Sabbat des Shivarra  Down le 30/11/2017
 Aggramar  Down le 30/11/2017
 Argus L'annihilateur  Down le 30/11/2017

DownHMMythic

Avancée PVE complète
 
Recrutement

ClasseÉtat
CdM Sang : fermé Givre : fermé Impie : fermé
Chaman Elémentaire : ouvert Amélioration : ouvert Restauration : fermé
Chasseur Maîtrise des bêtes : fermé Précision : fermé Survie : fermé
Démoniste Affliction : ouvert Démonologie : ouvert Destruction : ouvert
DH Dévastation : ouvert Vengeance : fermé
Druide Equilibre : ouvert Féral : fermé Restauration : fermé
Guerrier Arme : ouvert Fury : ouvert Protection : fermé
Mage Arcane : ouvert Feu : ouvert Givre : ouvert
Moine Brewmaster : ouvert Mistweaver : fermé Windwalker : ouvert
Paladin Sacré : fermé Protection : ouvert Vindicte : fermé
Prêtre Discipline : fermé Sacré : fermé Ombre : fermé
Voleur Assassinat : ouvert Combat : ouvert Finesse : ouvert

Postuler !

Forum

SPOIL !!!!!!! Allied races
      Le 04.12.17 à 10:41 par Sychoraxe
La guilde Epsilon vs le temps
      Le 16.11.17 à 16:33 par DkRedem
Jukebox Epsilon
      Le 21.09.17 à 17:26 par Spyke
MY WAIFUU !!!
      Le 20.09.17 à 19:05 par viky
Skamer aime les chaises !
      Le 30.08.17 à 10:44 par Spyke
Le poste a flood
      Le 28.07.17 à 20:30 par viky
 


Media player
This div will be replaced