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
A voir également:
- Suppr cellule vide à gauche
- Windows 11 barre des taches a gauche - Guide
- Supprimer page word vide - Guide
- Caractere vide - Guide
- Les textes ne doivent pas être en retrait à droite et à gauche - Guide
- Excel cellule couleur si condition texte - Guide
9 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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...
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 :
revient dans ta feuille et sort du mode création;
Puis teste
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