Recherche dans range valeurs differentes et suppression de la ligne correspondante

[jerem13]

Bonsoir,

Voila, je débute en vba et j'ai besoin de votre aide svp.
J'ai consulté le forum mais je n'ai rien trouvé.
J'ai un tableau comme celui-ci

2008 a
2008 z
2006 e
2006 r
2008 t
2008 y
...

Je voudrai pouvoir, selectionner les cellules dont la valeur est différente de 2008 et supprimer la ligne à laquelle elle est associée.

Je vous remercie de votre attention.

 

[Pierrot93]

Re : Recherche dans range valeurs differentes et suppression de la ligne correspondan

Bonsoir jerem

en supposant tes données dans la colonne A et si la cellule contient une valeur de type "2008 a", esssaye le code ci dessous :

Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Not Cells(i, 1).Value Like "2008*" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

bonne soirée
@+

 

[jerem13]

Re : Recherche dans range valeurs differentes et suppression de la ligne correspondan

Merci beaucoup Pierrot93 pour la reponse rapide et efficace.
A+