colorier les formes "cercles"

Modeste geedee

XLDnaute Barbatruc

• 17 Mars 2014

• #2

Re : colorier les formes "cercles"

Bonsour®

simplement :
dans le module de feuil1

Code:

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 17 Mars 2014

• #3

Re : colorier les formes "cercles"

Bonjour

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

 

Pièces jointes

• P_couleurs.xlsm

  198.3 KB · Affichages: 49

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 17 Mars 2014

• #4

Re : colorier les formes "cercles"

Bonsour®

gilbert_RGI à dit:

Bonjour

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 17 Mars 2014

• #5

Re : colorier les formes "cercles"

j ai mis la macro dans feuil1 cela ne marche pas

merci d avance

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 17 Mars 2014

• #6

Re : colorier les formes "cercles"

Bonsour®

ngexcel à dit:

j ai mis la macro dans feuil1 cela ne marche pas

merci d avance

Cliquez pour agrandir...

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

 

Pièces jointes

• colorier-les-formes-cercles-p.xlsm

  87.4 KB · Affichages: 33
• colorier-les-formes-cercles-p.xlsm

  87.4 KB · Affichages: 38
• colorier-les-formes-cercles-p.xlsm

  87.4 KB · Affichages: 39

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 18 Mars 2014

• #7

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 18 Mars 2014

• #8

Re : colorier les formes "cercles"

ngexcel à dit:

j ai mis la macro dans feuil1 cela ne marche pas

merci d avance

Cliquez pour agrandir...

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

voir la PJ 😎

 

Pièces jointes

• P_v1.xlsm

  83.7 KB · Affichages: 30

Dernière édition: 18 Mars 2014

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 18 Mars 2014

• #9

Re : colorier les formes "cercles"

Bonsour®

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

Cliquez pour agrandir...

VB:

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...😉

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 18 Mars 2014

• #10

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 18 Mars 2014

• #11

Re : colorier les formes "cercles"

Bonsour®

ngexcel à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• colorier-les-formes-cercles-p.xlsm

  87.4 KB · Affichages: 37
• colorier-les-formes-cercles-p.xlsm

  87.4 KB · Affichages: 37
• colorier-les-formes-cercles-p.xlsm

  87.4 KB · Affichages: 40

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 19 Mars 2014

• #12

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

 

Dernière édition: 19 Mars 2014

Vote positif 0 Vote négatif