Microsoft 365 Coloriage d'une cellule en fonction d'une valeur

Bonjour Benoît,
pourquoi faire du VBA alors qu'une simple MFC remplirait la même fonction ?

Bonjour,

Oui effectivement pourquoi faire compliquer quand on peut faire simple voir très simple...
Je n'y avais pas songé à la mise en forme.
Merci

Bonjour
Je reprends mon post, car en fait le vba est indispensable, je viens de voir à l'usage que les différents utilisateurs font des copie coller de cellules ce qui augmente le nombre de règles dans la feuille.
Je dois donc supprimer toutes les règles et penser à un code.

J'ai modifier le "Worksheet_Change(ByVal Target As Range)" par :

"Worksheet_SelectionChange"

Dans mon code je voudrais désigner 3 zones sur lequel cette règle de change s'applique :
j'ai créé 3 zones dans ma feuille, nommées : tableau1, tableau2, tableau3,
je ne veux pas que le change soit sur les autres cellule

Ne maîtrisant pas le vba, pouvez vous m'aider ?


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Chaine = Target.Value

Dim plage As Range
Set plage = Range("tableau1")
Set plage = Range("tableau2")
Set plage = Range("tableau3")

With Target.Interior
On Error Resume Next

If Err <> 0 Then MsgBox Err.Description

If InStr(Chaine, "atur") Then .ColorIndex = 22
If InStr(Chaine, "dpt") Then .ColorIndex = 40
If InStr(Chaine, "amme") Then .ColorIndex = 40

If Chaine = "" Then .ColorIndex = 35

End With
End sub