Bonjour,
Dans un ensemble de cellule, j'utilise la formule =RECHERCHEV(B2;Classification_type;2). Cette formule me retourne une valeur dans l'ensemble {1,2,3,4}.
Je voudrais qu'en fonction du résultat, le fond de la cellule soit {vert, jaune, orange, rouge}.
J'ai essayé la macro suivante (que j'ai trouvé sur le net) :
Private Sub Worksheet_Change(ByVal target As Range)
Select Case target.Text
'Vert'
Case "1": target.Interior.ColorIndex = 4
'Jaune'
Case "2": target.Interior.ColorIndex = 6
'Orange'
Case "3": target.Interior.ColorIndex = 45
'Rouge'
Case "4": target.Interior.ColorIndex = 3
Case Else
target.Interior.ColorIndex = xlNone
End Select
End Sub
Elle fonctionne bien si j'affecte la valeur manuellement mais pas dans le cas du résultat d'un calcul.
Pour info : je suis en excel 2002 et je n'y connais rien en macro et vba.
Merci pour votre aide,
Ben
Dans un ensemble de cellule, j'utilise la formule =RECHERCHEV(B2;Classification_type;2). Cette formule me retourne une valeur dans l'ensemble {1,2,3,4}.
Je voudrais qu'en fonction du résultat, le fond de la cellule soit {vert, jaune, orange, rouge}.
J'ai essayé la macro suivante (que j'ai trouvé sur le net) :
Private Sub Worksheet_Change(ByVal target As Range)
Select Case target.Text
'Vert'
Case "1": target.Interior.ColorIndex = 4
'Jaune'
Case "2": target.Interior.ColorIndex = 6
'Orange'
Case "3": target.Interior.ColorIndex = 45
'Rouge'
Case "4": target.Interior.ColorIndex = 3
Case Else
target.Interior.ColorIndex = xlNone
End Select
End Sub
Elle fonctionne bien si j'affecte la valeur manuellement mais pas dans le cas du résultat d'un calcul.
Pour info : je suis en excel 2002 et je n'y connais rien en macro et vba.
Merci pour votre aide,
Ben