Condition couleur

[Danythedog]

Bonjour à tous,
j'ai effectué une recherche mais je n'ai pas trouvé...
Je voudrais que si A1 est rouge (remplissage); A1 = valeur (7 par exemple). est ce possible, si oui de quelle manière?
Je sais que c'est possible dans l'autre sens (via la mise en forme conditionnelle mais pas dans ce sens, à moins que quelque chose ne m'échappe...)
Merci pour votre aide

 

[Banzai64]

Re : Condition couleur

Bonjour

dans ce sens : Case Rouge --> Valeur : VBA
dans ce sens : Case Valeur --> Rouge : MFC

A toi de voir

 

[Danythedog]

Re : Condition couleur

Bonjour

dans ce sens : Case Rouge --> Valeur : VBA
dans ce sens : Case Valeur --> Rouge : MFC

A toi de voir

Bonjour, c'est effectivement "dans ce sens : Case Rouge --> Valeur : VBA", mais de quelle manière, tout cela est nouveau pour moi, existe t'il un fichier déjà écrit pour cela peut etre? ou une indication de formule...
Merci

 

[Kobal]

Re : Condition couleur

Bonjour à tous !

ça devrait donner quelque chose comme ça:

Private Sub Worksheet_Change(ByVal Target As Range)

With Cells("A1")
If .Interior.ColorIndex = 3 Then
    .Value = 7
End If
End With

End Sub

à insérer dans l'editeur VB d'excel, dans la feuille où tu veux que cela s'applique.
ColorIndex = 3 désigne la couleur rouge.
(tu trouveras l'équivalence des couleurs ici)

 

[BOISGONTIER]

Re : Condition couleur

Bonjour,

Voir PJ

JB

 

[Banzai64]

Re : Condition couleur

Bonjour

Un essai

 

[Danythedog]

Re : Condition couleur

OK merci cela marche, je test un peu plus longuement...
merci encore