Bonjour à tous.
J'ai créé une macro qui en fonction de la valeur de la cellule C11 me colore la cellule B11 en différentes couleur.
Mon problème c'est que je dois lancer la macro manuellement via un bonton d'appel de macro.
Je souhaiterai que cette opération soit automatisée, sans avoir besoin du bouton, mais cela ne fonctinone pas même avec worksheet_selectionchange en début de macro.
Quelqu'un aurait-il une idée ??
par avance merci.
Voici la macro :
Sub Worksheet_SelectionChange()
Call color
End Sub
------------------------------------
Sub color()
Worksheets("détail activités").Select
Range("c11").Select
valeur = ActiveCell.Value
If valeur >= 0.9 Then 'couleur verte
Range("b11").Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
ElseIf valeur >= 0.75 Then 'couleur jaune
Range("b11").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ElseIf valeur >= 0.5 Then ' couleur orange
Range("b11").Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
ElseIf valeur < 0.5 Then 'couleur rouge
Range("b11").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
End Sub
J'ai créé une macro qui en fonction de la valeur de la cellule C11 me colore la cellule B11 en différentes couleur.
Mon problème c'est que je dois lancer la macro manuellement via un bonton d'appel de macro.
Je souhaiterai que cette opération soit automatisée, sans avoir besoin du bouton, mais cela ne fonctinone pas même avec worksheet_selectionchange en début de macro.
Quelqu'un aurait-il une idée ??
par avance merci.
Voici la macro :
Sub Worksheet_SelectionChange()
Call color
End Sub
------------------------------------
Sub color()
Worksheets("détail activités").Select
Range("c11").Select
valeur = ActiveCell.Value
If valeur >= 0.9 Then 'couleur verte
Range("b11").Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
ElseIf valeur >= 0.75 Then 'couleur jaune
Range("b11").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ElseIf valeur >= 0.5 Then ' couleur orange
Range("b11").Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
ElseIf valeur < 0.5 Then 'couleur rouge
Range("b11").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
End Sub