Suppr cellule vide à gauche
Résolu
Max
-
Max -
Max -
Bonjour,
J'aimerais supprimer des cellules vides d'un tableau et rabbatre les cellules non vides vers la gauche, vous comprendrez mieux avec l'exemple ci joint :
Soit par maccro ou à l'aide d'un bouton..
http://cjoint.com/?3HfkiPsnRfK
J'aimerais supprimer des cellules vides d'un tableau et rabbatre les cellules non vides vers la gauche, vous comprendrez mieux avec l'exemple ci joint :
Soit par maccro ou à l'aide d'un bouton..
http://cjoint.com/?3HfkiPsnRfK
9 réponses
-
Bonjour,
Il y a t'il un début de macro ou autre que l'on puisse corriger ?
-
-
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Tu souhaites partir de ton premier tableau ou du second pour obtenir le troisième???
-
Je souhaiterais partir du 1er pour arriver au 3e...
Le second tableau s'est ce que j'ai actuellement et qui ne me convient pas a cause des vides... -
Bon.
tu traces un bouton (!!! Contrôle activex par contrôle de formulaire) sur ta feuille.
Tu double clic dessus
Copie/colle ce code :Private Sub CommandButton1_Click()
Decale_A_Gauche
End Sub
Sub Decale_A_Gauche()
Dim Col As Integer
For Col = 7 To 2 Step -1
If Cells(4, Col).Value = "NON" Then Range(Cells(4, Col), Cells(4, Col).Offset(5, 0)).Delete Shift:=xlToLeft
If Cells(10, Col).Value = "B" Then Range(Cells(10, Col), Cells(10, Col).Offset(3, 0)).Delete Shift:=xlToLeft
Next Col
End Sub
revient dans ta feuille et sort du mode création;
Puis teste -
-
Voila en oubliant pas de valider en faisant Ctrl + MAJ +Enter :
http://cjoint.com/?3HgpbQdr5Ui
Bonne journée !
