Valeur selon la couleur d'une cellule

[judikael]

Bonjour

est il possible d'avoir une valeur dans une cellule selon la couleur d'une autre cellule ?

Par exemple, si A1 est verte, alors mettre 1 en A2, et si A1 est jaune alors mettre 0


Merci de votre aide pour l'inculte en VBA que je suis

 

[SergiO]

Re : Valeur selon la couleur d'une cellule

Bonjour Judikael,

Voici un exemple sans VBA par une mise en forme conditionnelle.
Les explications sont sur le fichier.

@+

 

[JeanMikael]

Re : Valeur selon la couleur d'une cellule

Une proposition très simpliste mais qui marche avec ton exemple :

Sub test()

Dim cell As Range

If Range("a1").Interior.ColorIndex = 4 Then
Range("a2") = "1"
Else
If Range("a1").Interior.ColorIndex = 6 Then
Range("a2") = "0"
End If
End If



End Sub

 

[judikael]

Re : Valeur selon la couleur d'une cellule

Merci JeanMickael mais je suppose que les codes pour les couleurs que tu mets dans la macro correspondent à un jaune ou à un vert particulier

comment puis-je avoir la liste des couleurs?

 

[SergiO]

Re : Valeur selon la couleur d'une cellule

Bonjour Judikael

Lance ce code sur un fichier :

Sub coul()
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next i
End Sub

@+

 

[judikael]

Re : Valeur selon la couleur d'une cellule

Merci Sergio