zbee
XLDnaute Nouveau
Bonsoir à tous,
Je sais il y a de nombreux posts à ce sujet mais j'ai beau faire et refaire
cela ne fonctionne pas
Chaque jour, j'importe un tableau contenant plusieurs colonnes renseignées avec nb entêtes figées(de A à K)
nombre de lignes variables
La colonne C intitulée "entités" contient les valeurs CC1 ou CC2, CC3, CC4 etc...
J'aimerais supprimer toutes les lignes dont la valeur est différente de CC1 et de CC2 et de CC3
donc supprimer CC4, CC5, etc....
ci-dessous le code essayé:
sub effacer()
Dim i As Integer
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value <> "CC1" Or Cells(i, 1).Value <> "CC2" Then Rows(i).Delete
Next i
End Sub
Quelqu'un peut corriger et surtout expliquer?
par exemple que signifie .Row To 1 Step -1
merci
Je sais il y a de nombreux posts à ce sujet mais j'ai beau faire et refaire
cela ne fonctionne pas
Chaque jour, j'importe un tableau contenant plusieurs colonnes renseignées avec nb entêtes figées(de A à K)
nombre de lignes variables
La colonne C intitulée "entités" contient les valeurs CC1 ou CC2, CC3, CC4 etc...
J'aimerais supprimer toutes les lignes dont la valeur est différente de CC1 et de CC2 et de CC3
donc supprimer CC4, CC5, etc....
ci-dessous le code essayé:
sub effacer()
Dim i As Integer
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value <> "CC1" Or Cells(i, 1).Value <> "CC2" Then Rows(i).Delete
Next i
End Sub
Quelqu'un peut corriger et surtout expliquer?
par exemple que signifie .Row To 1 Step -1
merci