colorier les formes "cercles"

[ngexcel]

bonjour
je voudrais dans cette exemple que mes cercles soient gris quand je rentre rien dans mes colonne après j 'ai réussi a faire changer les couleurs dans la colonne 1 =rouge 0 =vert


help merci

 

[Modeste geedee]

Re : colorier les formes "cercles"

Bonsour®

simplement :
dans le module de feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Range("b51:b81")
    ActiveSheet.Shapes(CStr(cell.Offset(0, -1))).Fill.ForeColor.RGB = IIf(cell <> "", vbGreen, RGB(128, 128, 128))
Next
End Sub

 

[gilbert_RGI]

Re : colorier les formes "cercles"

Bonjour

ce serait bien mais il y a un beau melange dans les shapes

 

[Modeste geedee]

Re : colorier les formes "cercles"

Bonsour®

Bonjour

ce serait bien mais il y a un beau mélange dans les shapes

😎
s'il n'y avait que ça ...
les noms aussi laissent à désirer (nom en double ou non appairé avec la picture corespondante)
🙄

 

[ngexcel]

Re : colorier les formes "cercles"

j ai mis la macro dans feuil1 cela ne marche pas

merci d avance

 

[Modeste geedee]

Re : colorier les formes "cercles"

Bonsour®

j ai mis la macro dans feuil1 cela ne marche pas

merci d avance

🙄
j'ai mis ma macro (#2) dans feuil1 cela marche !!
😎

 

[ngexcel]

Re : colorier les formes "cercles"

bonjour et merci de répondre aussi vite
cela marche mais je n ai pas pas la couleur rouge quand le chiffre dépasse 1
a bientôt

 

[gilbert_RGI]

Re : colorier les formes "cercles"

j ai mis la macro dans feuil1 cela ne marche pas

merci d avance

si ça fonctionne mais les shapes sont mal nommés

voir la PJ 😎

 

[Modeste geedee]

Re : colorier les formes "cercles"

Bonsour®

je n ai pas pas la couleur rouge quand le chiffre dépasse 1

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Range("b51:b81")
     ActiveSheet.Shapes(CStr(cell.Offset(0, -1))).Fill.ForeColor.RGB = IIf(cell = 1, vbGreen, IIf(cell > 1, vbRed, RGB(128, 128, 128)))
Next
End Sub

😛
quelle couleur faudrait-il ???
si :
décimal entre 0 et 1
saisie négative
saisie alpha

😎
j'aime bien les questions à tiroir (quand c'est moi qui les pose...😉

 

[ngexcel]

Re : colorier les formes "cercles"

bonsoir je ne comprend pas pouvez vous éventuellement détruire mes shapes qui sont mal nommés et en créer car cela ne marche toujours pas
merci car je suis perdu

 

[Modeste geedee]

Re : colorier les formes "cercles"

Bonsour®

je ne comprend pas
cela ne marche toujours pas
je suis perdu

😎
voir pièce jointe...
au-delà reprendre le B.A. BA de VBA pour excel...🙄

 

[ngexcel]

Re : colorier les formes "cercles"

Merci cela fonctionne
Bravo à vous

encore juste une chose comment faire pour faire la même chose sur les autres lettres