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
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