Supprimer si différent de Rhone*

[AJV1962]

Bonjour
actuellement je supprime des lignes dès l'instant la valeur dans la colonne B comme par Rhone*. vu que j'ai beacoup de valeurs comme ca différent je recherche comme je peux supprimer si la valeur est différent de
La façon suivant me supprime tout! inclus les lignes qui commencent par Rhone*
Je ne sui pas un As du VBA et je ne comprends pas

Merci de votre aide

Sub Suppression()
Dim i As Integer
Application.ScreenUpdating = False
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "Rhone*" Then Cells(i, 2).EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : Supprimer si différent de Rhone*

Bonjour,

pas sûr d'avoir bien compris, ci-dessous ligne de code qui te supprimera tout se qui ne commence pas par "Rhone" :

If Not Cells(i, 2) Like "Rhone*" Then Cells(i, 2).EntireRow.Delete

bonne journée
@+

 

[AJV1962]

Re : Supprimer si différent de Rhone*

Merci
Pourtant je suis passé par là, mais probablement avec une erreur de syntax