Supprimer ligne
Résolu
nab_eli
Messages postés
3
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je débute sur VBA, et je n'arrive pas à supprimer correctement des lignes vides d'un tableau.
je souhaite supprimer les lignes lorsque la cellule de la colonne K est vide.
mon tableau commence à la ligne 7.
Voici le code que j'ai entré, mais il supprime des lignes qu'il ne devrait pas.
Sub test ()
For i = 7 To Range("k65536").End(xlUp).Row
If Cells(i, 17).Value = "" Then
Cells(i, 17).EntireRow.Delete
Else
i = i + 1
End If
Next i
MsgBox "Macro terminée"
End Sub
Please help ?
Merci par avance
Je débute sur VBA, et je n'arrive pas à supprimer correctement des lignes vides d'un tableau.
je souhaite supprimer les lignes lorsque la cellule de la colonne K est vide.
mon tableau commence à la ligne 7.
Voici le code que j'ai entré, mais il supprime des lignes qu'il ne devrait pas.
Sub test ()
For i = 7 To Range("k65536").End(xlUp).Row
If Cells(i, 17).Value = "" Then
Cells(i, 17).EntireRow.Delete
Else
i = i + 1
End If
Next i
MsgBox "Macro terminée"
End Sub
Please help ?
Merci par avance
2 réponses
-
Bonjour
la colonne K correspond à 11 et non pas 17 et quand vous supprimez une ligne il faut reculer d'une ligneSub SupLigVide() TotalLignes = Range("A" & Rows.Count).End(xlUp).Row For i = 7 To TotalLignes If i >= TotalLignes Then GoTo Fini End If If Cells(i, 11).Value = "" Then Cells(i, 11).EntireRow.Delete i = i - 1 TotalLignes = TotalLignes - 1 End If Next i Fini: MsgBox "Macro terminée" End Sub
Bon courage
