changer des couleurs des formes apartir d'une condition Fermé

Question

Bonjour, 
je tiens un fichier excel ou il y a un Map avec ses provinces qui normalement doit avoir la couleur rouge si les donnees sont negatives et verte si elles sont positives,
Merci de votre aide



Configuration: Windows / Edge 97.0.1072.76

Raymond PENTIER · Answer

Bonjour.

Tu connais VBA, pour créer des macros ?

PM · Answer

avec un script, je pourrais me debrouiller,

PM · Answer

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

via55 · Answer

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

PM · Answer

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

via55 · Answer

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

PM · Answer

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?

via55 · Answer

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

PM · Answer

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

via55 · Answer

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

PM · Answer

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

via55 · Answer

Bonjour PM

Ton fichier en retour
https://www.cjoint.com/c/LBdpN7lFC7W

Cdlmnt
Via

PM · Answer

Bonjour Via55,
je te remercie pour le support magistral.

merci

Changer des couleurs des formes apartir d'une condition

13 réponses

Discussions similaires