Suppression ligne si
re tout le monde
apres recherche et pourtant sur de l'avoir vu quelque part, je pose la question:
quel est le code pour effacer toute les lignes si les deux premiers caracteres de la cellule H sont "TT"
Laurent
Sub vide()
Dim cel As Range
'For Each cel In Range("H:H")
For Each cel In Range("H2:H" & Range("H2").End(xlDown).Row)
If Left(cel, 2) = "TT" Then
cel.EntireRow.Delete
End If
Next cel
End Subj'ai essayer d'adapter une ancienne macro de Sylvain TBM mais ca ne marche pas correctement, quelqu'un pourrais me dire mon erreur?
je suis obligé de l'appliquer plusieur fois pour tout supprimer
merci
Salut le forum
Fait à l'aveuglette
For i = [H65536].End(xlUp).Row To 1 Step -1
'Row To 2 Step -1 si tu as une ligne d'en-tête que tu veux conserver
If Left(Cells(i, "H"), 2) = "TT" Then Rows(i).Delete
Next iMytå (Ancien Modérateur)
Salut Myta
merci a toi, ca marche.
pour mon info, qu'est ce qui cloche dans le code de mon precedent message?
Laurent
Re le forum
Maguetlolo, lors de la suppression de ligne il faut toujours partir du bas vers le haut,
sinon la macro saute des lignes c'est la ton problème.
Tu effaces la 4, la 5 devient la quatre tu travailles alors avec la ligne 6 dans ta boucle,
la ligne 5 ne sera jamais effacé.
Mytå(Modérateur bientôt à la retraite, décision personnelle)
re;
ok merci pour les infos.
Cordialement
