compares du texte dans une cellule

[wrndid]

bonjour je voudrais compares du texte dans une cellule en tenant compte que des 3 premier (M_M0) caractere et la metre en couleur
merci


Private Sub CommandButton3_Click()
For a = 1 To 1300
If Cells(a, 1).Value = "M_M0 " Or Cells(a, 8).Value = "" Then
Cells(a, 1).Interior.ColorIndex = 8
Else
Cells(a, 1).Interior.ColorIndex = xlNone
End If
Next a
End Sub

 

[job75]

Re : compares du texte dans une cellule

Bonjour,

Ecrivez :

If Cells(a, 1).Value Like "M_M0*" Or Cells(a, 8).Value = "" Then

Edit : au lieu de If...Then...Else...End If, vous pouvez écrire

Cells(a, 1).Interior.ColorIndex = IIf(Cells(a, 1).Value Like "M_M0*" Or Cells(a, 8).Value = "" , 8, xlNone)

A+