Valeur selon la couleur d'une cellule

SergiO

XLDnaute Accro

• 4 Septembre 2007

• #2

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.

@+

 

Pièces jointes

• Vert_ou_Jaune.xls

  22.5 KB · Affichages: 116

Vote positif 0 Vote négatif

J

JeanMikael

XLDnaute Junior

• 4 Septembre 2007

• #3

Re : Valeur selon la couleur d'une cellule

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

Code:

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

 

Vote positif 0 Vote négatif

J

judikael

XLDnaute Occasionnel

• 7 Septembre 2007

• #4

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?

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 7 Septembre 2007

• #5

Re : Valeur selon la couleur d'une cellule

Bonjour Judikael

Lance ce code sur un fichier :

Code:

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

@+

 

Vote positif 0 Vote négatif

J

judikael

XLDnaute Occasionnel

• 7 Septembre 2007

• #6

Re : Valeur selon la couleur d'une cellule

Merci Sergio

 

Vote positif 0 Vote négatif