Changer des couleurs des formes apartir d'une condition

Bonjour.

Tu connais VBA, pour créer des macros ?

avec un script, je pourrais me debrouiller,

possible de vous faire parvenir le fichier? question de vous faire une petite idee, au meilleur faire tourner et je m'execerais sur le fichier

Bonsoir PM
Coucou Raymond ☺

Pour envoyer le fichier tu le postes su le site cjoint.com, tu fais créer un lien que tu copies et reviens coller ici
Si tu veux voir un exemple de ce qu'il est possible tu peux aussi aller sur le site de Jacques Boisgontier, aller dans Shapes et voir les exemples de coloriages de shapes en fonction de données : http://boisgontierj.free.fr/

Cdlmnt
Via

le lien est;
https://www.cjoint.com/c/LBbsBsMuurh

Ton fichier en retour avec les macros adéquates :
https://www.cjoint.com/c/LBbvwdL1RcW

Bonjour,
merci le support, cela s'ajoute un souci de securite je crois le message est ci apres:
<BLOCKED CONTENT
Possible de me refiler un code qui sera local?

Re

C'est sans doute parce que d'office par sécurité les macros sont désactivées, il faut activer les macros :
https://support.microsoft.com/fr-fr/office/activer-ou-d%C3%A9sactiver-les-macros-dans-les-fichiers-office-12b036fd-d140-4e74-b45e-16fed1a7e5c6

Grand merci, cependant en voulant repoduire plusieurs maps avec le meme principes mais pour des domaines differents cela ne s'applique qu'au premier map mais pas au second et aux autres, exemple:
map 1: evolution comsommation pain
Map2 : evolution comsommation poisson
etc....

Attention si tu as plusieurs maps leurs formes doivent être nommées différemment, par exemple de F_1 à F_11 pour la 1ere, de G_1 à G_11 pour la 2eme etc
puis dans la macro rajouter des instructions pour gérer ces formes en ayant d'abord donné un autre nom à la seconde plage de valeurs (par exemple valeurs2) dans la feuille ce qui donnerait alors par comme macro :

Private Sub CommandButton1_Click()
For Each c In [valeurs]
x = x + 1
If c.Value > 0 Then
 couleur = ActiveSheet.Range("D20").Interior.Color
 Else
 couleur = ActiveSheet.Range("D19").Interior.Color
 End If
 ActiveSheet.Shapes("F_" & x).Fill.ForeColor.RGB = couleur
 Next
x=0 'bien remettre cette variable à 0
For Each c In [valeurs2]
x = x + 1
If c.Value > 0 Then
 couleur = ActiveSheet.Range("D20").Interior.Color
 Else
 couleur = ActiveSheet.Range("D19").Interior.Color
 End If
 ActiveSheet.Shapes("G_" & x).Fill.ForeColor.RGB = couleur
 Next
End Sub

Faire cette manip autant de fois qu'il y a de maps différentes

Bonjour cher Via 55,
je tentais mais helas sans m'en sortir, j'avoue que mes connaissances en Logique script est tres bas, je joint le fichier please votre aide me sera d'un grand soulagement le lien : https://www.cjoint.com/c/LBdk6lQ5Caf

Bonjour PM

Ton fichier en retour
https://www.cjoint.com/c/LBdpN7lFC7W

Cdlmnt
Via

Bonjour Via55,
je te remercie pour le support magistral.

merci