Supprimer ligne

Résolu/Fermé
nab_eli Messages postés 3 Date d'inscription mercredi 5 avril 2017 Statut Membre Dernière intervention 6 avril 2017 - 5 avril 2017 à 17:26
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 6 avril 2017 à 11:13
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

2 réponses

patty5046 Messages postés 46 Date d'inscription lundi 8 février 2016 Statut Membre Dernière intervention 15 septembre 2023 5
5 avril 2017 à 18:40
Bonjour
la colonne K correspond à 11 et non pas 17 et quand vous supprimez une ligne il faut reculer d'une ligne


Sub 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
0
nab_eli Messages postés 3 Date d'inscription mercredi 5 avril 2017 Statut Membre Dernière intervention 6 avril 2017
6 avril 2017 à 09:49
Bonjour,

Merci pour votre réponse, ça a effectivement réglé mon problème et la macro fonctionne très bien.
je penserai bien à commencer par le bas la prochaine fois ou à reculer d'une ligne.

Merci encore:)
0