Bonjour,
Dans une feuille j'ai un tableau de la ligne 3 à 17
et si une cellule en G est vide la ligne doit s'effacer et
les lignes de dessous doivent remontées mais apres
la ligne 17 tout reste en place.
La macro que j'ai me remonte tout.
Sub efface_A_vide()
Dim l As Integer
For l = Cells(17, 7).End(xlUp).Row To 1 Step -1
If Cells(l, 7).Value = "" Then Cells(l, 7).EntireRow.Delete
Next l
End Sub
Je joint un petit fichier
Cordialement
Dans une feuille j'ai un tableau de la ligne 3 à 17
et si une cellule en G est vide la ligne doit s'effacer et
les lignes de dessous doivent remontées mais apres
la ligne 17 tout reste en place.
La macro que j'ai me remonte tout.
Sub efface_A_vide()
Dim l As Integer
For l = Cells(17, 7).End(xlUp).Row To 1 Step -1
If Cells(l, 7).Value = "" Then Cells(l, 7).EntireRow.Delete
Next l
End Sub
Je joint un petit fichier
Cordialement