Bonjour,
Je dispose d'un tableau Excel avec en colonne A, des informations inutiles que je voudrais supprimer. Cependant j'ai plusieurs conditions:
Je dois supprimer les lignes jusqu'a ce que la cellule A1 contienne la valeur "Ac"
Je dois supprimer toutes les lignes dont la valeur de la colonne A n'est pas "D", "K" ou "S".
J'ai pour cela ecrit deux macros differentes:
Dim i as Integer
For i = Range("A") & Rows.count).End(xlUp).Row to 1 step -1
If cells (i,1).Text<>"Ac" Then Rows(i).Delete
Next i
Ainsi que:
Dim i as integer
For i = Range("A") & Rows.count).End(xlUp).Row to 2 step -1
If Range("A" & i).Value <> "K" And Range("A" & i).Value <> "D" And Range("A" & i).Value <> "S" Then Rows(i).Delete
Next i
Les deux macros fonctionnent separement, mais j'aimerais les combines pour que:
dans la ligne 1 j'obtienne ma ligne avec "Ac" dans la cellule A1 et qu'en dessous de cette ligne se trouvent toutes les autres qui contiennent "D", "K" ou "S" dans la colonne A.
Merci de votre aide !