Macro pour donner une couleur sur figure ovale
bonjour, j ai un leger problem avec les macro
j aimerais que chaque oval devienne d une couleur en function de mes cellules j en ai tester plsuieur mai rien a faire cela ne ;arche pas
j ai essayer ca :
Sub Macro()
If [L2] <= 1 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L2] >= 17 and [L2] <= 3 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 41
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L2] >= 25 and [L2] <= 50 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 27
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L2] >= 51 and [L2] <= 80 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 46
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L2] >= 81 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 3
ActiveSheet.Shapes("Oval1").Fille.Visible = msoTrue
End If
End Sub
mais rien a faire cela ne marche pas
Vous trouverez ci joint ma feuille exel pour mieux comprendre
Bonjour
Oval1 n'existe pas, Oval 1 oui.
Il faut revenir sur L2 pour changer la couleur
Cordialement
Bonjour
Bonjour Amadéus
J'ai pris la colonne J pour boucler
A tester
oui effectivement je n avais pas ete assez clair ;
- oval 1 doit correspondre a j2
- oval 2 doit correspondre a j3
je vous remercie en tout cas de votre aide meme si je comprend pas vraiment car les couleurs de mes oval reste soit bleu clair soit un violet je comprend pas du tout :/ dsl je suis vraiment tout nouveau sur les macros et cela reste un casse tete ...
Bonjour
Dans une page Excel
Tu indiques les limites ainsi que la couleur (tu dessines une forme avec la couleur - simple - appropriée)
exemples
Entre 0 et 5 --> Bleu
Entre 6 et 15 --> jaune
Etc ...
Etc ....
Tu joins le fichier