Problème chaînes de caractères

[fifou]

Bonjour à tous,

Voici mon problème. j'ai tout une liste de référence :
MM-WX0041
MM-WX0042
MS-EC0014
MS-EC0031

et j'aimerai supprimer chaque ligne qui ne contient pas MM. J'ai alors écrit ça :
Cells(16384, 1).End(xlUp).Select
For i = 2 To ActiveCell.Row

If Cells(i, 1).Value <> "MM*" Then
Rows(i).Delete
End If
Next i

Visiblement ça bloque au niveau de l'étoile (*) je ne comprends pas.
Si quelqu'un a une solution je suis preneur.

Merci d'avance.

++

 

[CHALET53]

Bonjour,

Essaie ceci

Cells(16384, 1).End(xlUp).Select
For i = ActiveCell.Row To 1 Step -1
If Cells(i, 1).Value Like "MM*" Then GoTo suite
Rows(i).Delete
'End If
suite:
Next i

a+

 

[fifou]

ça fonctionne ! merci beaucoup