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
A voir également:
- Vba supprimer lignes
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
- Supprimer compte instagram - Guide
2 réponses
Bonjour
la colonne K correspond à 11 et non pas 17 et quand vous supprimez une ligne il faut reculer d'une ligne
Bon courage
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
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:)