compares du texte dans une cellule

wrndid · 1 Décembre 2008

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 · 1 Décembre 2008

Re : compares du texte dans une cellule

Bonjour,

Ecrivez :

Code:

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

Code:

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

A+

compares du texte dans une cellule

wrndid

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires