Salut,
essai cette procédure :
Coloration syntaxique automatique Sub Verification()
' *** si la cellule F4 contient :, et pas G4, ces deux cellules seront en rouge
Dim i As Byte
Dim Verif As Long, Verif2 As Long
For i = 2 To 22
Verif = InStr(1, CStr(Cells(i, 6).Value), ":")
If Verif <> 0 Then
Verif2 = InStr(1, CStr(Cells(i, 7).Value), ":")
If Verif2 = 0 Then Range("F" & i & ":G" & i).Select: Selection.Interior.ColorIndex = 3
End If
Next i
End Sub
Coloration syntaxique automatique
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"