[VBA] Changer la couleur d'une case

Bonjour barberousse

Voici une solution qui me parait simple :

Il te faut créer un nouveau module dans VBA (Menu 'Insertion -> Module'), puis tu tapes le code suivant :

Sub ChgCouleur()
If Sheets("machin").Range("b5").Value = 65 And Sheets("chose").Range("f6") = 48 Then
Sheets("truc").Range("a1").Interior.Colo­rIndex = 6
Else
Sheets("truc").Range("a1").Interior.Colo­rIndex = 0
End If
End Sub

Ensuite, dans les événements 'Change' de tes feuilles "machin" et "chose", tu tapes l'appel à cette procésure :

Private Sub Worksheet_Change(ByVal Target As Range)
ChgCouleur
End Sub

Explication :

A chaque changement de valeur dans l'une des 2 feuilles, la procédure ChgCouleur est exécutée.
Cette procédure lit la valeur de la cellule "b5" de la feuille "machin" et de la cellule "f6" de la feuille "chose".
Si les valeurs trouvées sont respectivement 65 ET 48, le programme change alors la couleur de fond de la cellule "a1" de la feuille "truc" (6=jaune). Dans le cas contraire, elle remet la couleur par défaut (0=aucune).
Tu peux tester les différentes couleurs possibles en modifiant la valeur '6').

Espérant t'avoir aidé.

Cordialement.

merci je viens d'essayer, j'ai bien réussi à faire le module VBA, mais je ne comprends pas comment aller dans les événements de "machin" et "chose".

Ceci dit ça à l'aire de fonctionner quand je teste le script, mais comment je peut définir la couleur ?

Il te suffit, dans l'éditeur VBA, module 'Microsoft Excel Objects', de cliquer sur les feuilles voulues puis choisir 'WorkSheet' dans la liste déroulante en haut à gauche et 'Change' dans la liste déroulante de droite.
Pour définir les couleurs, procèdes par essais en remplaçant le 6 ('Interior.colorindex=6') par un autre chiffre (=57 maxi).

Cordialement.