Sub Test ()
If Left(Cells(1,2).Value,1) = 1 Then
Cells(1,1).Interior.Color = RGB(255,0,0)
ElseIf Left(Cells(1,2).Value,1) = 2 Then
Cells(1,1).Interior.Color = RGB(0,255,0)
End If
End Sub
Bonjour evan38 et merci d'avoir répondu. Je souhaiterais une solution uniquement par formule (MFC), pas VBA, car j'utilise le fichier en online ( sharepoint).
Bonjour BatorFreuh et merci d'avoir répondu. C'est à peu prés ce que je cherche, mais comment fait on pour coloriser la cellule suivant une valeur qui commence par un chiffre. Par exemple si çà commence par 18****** coloriser par une couleur, si ça commence par 10****** coloriser par une autre couleur ainsi de suite....