Microsoft 365 Carte de france Dynamique

P

pascaleg80

XLDnaute Nouveau

• 27 Juillet 2020

• #16

patricktoulon à dit:

re
non moi je lancerais un peu plus loin 😉 😛 😛 😛 😛 😛

par contre je viens de m'apercevoir d'un truc qui m’inquiète un peu
je viens de m'apercevoir qu'en lecture!!!!! avec les formes dessinées on a pas accès au texte dans le shape j'ai une belle erreur 1004
étonnant non?
Regarde la pièce jointe 1074467

Cliquez pour agrandir...

Bonjour, effectivement, j'ai testé votre fichier et une erreur ne m'a pas permis d'aller plus loin

 

Vote positif 0 Vote négatif

P

pascaleg80

XLDnaute Nouveau

• 27 Juillet 2020

• #17

Dudu2 à dit:

Job,
Je crois que ce qu'elle veut c'est une carte. Et que les couleurs s'appliquent graphiquement aux départements de la carte.
D'ailleurs...

...il NE FAUT PAS être désolée, si il y en a qui commencent à peu près systématiquement par des stigmatisations, les gens ici sont là pour trouver des solutions dans la mesure du possible sans culpabiliser qui que ce soit de ne pas savoir.

Cliquez pour agrandir...

Merci pour cette réponse qui me rassure. Je vous promets qu'avant de publier quelque chose, j'essaie de le faire moi même mais la je sèche complètement ;-)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Juillet 2020

• #18

re
a ben ça alors sur 2007 pas d'erreur 😵 😳!!!????
pascaleg80 c'est quoi l'erreur (la description)

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Juillet 2020

• #19

Je pense que Sylvanu va faire le code, s'il ne le fait pas (please advise), je te le ferai.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Juillet 2020

• #20

Re bonjour le fil,
Une première version en PJ.
La mise en couleur demandée est en cours ....
Deux écarts par rapport à la demande :
1- Les dpts 2A et 2B sont fusionnés en 20. 😱
2- Ne traite pas les DOMTOM.

 

Pièces jointes

• Données Statistiques France (V2).xlsm

  560.4 KB · Affichages: 22

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Juillet 2020

• #21

re

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Juillet 2020

• #22

Re bonjour le fil,
La mise en couleur est faite.
J'ai laissé l'ancien coloriage, mais dans Pascaleg_Coul. les couleurs que vous désiriez.

 

Pièces jointes

• Données Statistiques France (V3).xlsm

  563.4 KB · Affichages: 12

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Juillet 2020

• #23

@patrick,
MinCol et MaxCol sont définis par MinColShape et MaxColShape qui eux mêmes sont définis avec NoLine qui est une variable globale initialisée dans Worksheet_BeforeRightClick par la cellule active.

VB:

NoLine = ActiveCell.Row

Donc si on lance ex abrupto ColorShapeDpt, NoLigne n'est pas initialisée.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Juillet 2020

• #24

re
oui sylvanu j'avais plus ou moins compris le problème c'est que ça n'est pas "0" mais bien le string "min" et "max" les valeurs
??????
je regarderais plus tard je suis sur un autre truc là

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Juillet 2020

• #25

En "fonctionnement normal" lorsque vous arrivez ici, NoLigne étant initialisé, les valeurs sont correctes.

 

Vote positif 0 Vote négatif

P

pascaleg80

XLDnaute Nouveau

• 27 Juillet 2020

• #26

sylvanu à dit:

Re bonjour le fil,
La mise en couleur est faite.
J'ai laissé l'ancien coloriage, mais dans Pascaleg_Coul. les couleurs que vous désiriez.

Cliquez pour agrandir...

Merci beaucoup. Pouvez-vous me dire comment faire si je souhaite modifier l'échelle de couleur?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Juillet 2020

• #27

La votre ou la mienne ?
La votre : Module ColorShapeDptPascaleg, et l'image en DB AT4:AU12
La mienne : En jouant sur les minmax des lignes DB 103 et 104.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Juillet 2020

• #28

J'ai fait un petit essai from scracth.
Le problème de ces cartes c'est d'une part que la juxtaposition des Shapes des départements est parfois approximative, mais surtout que ça ne me semble pas complet (ex. il y a un trou près de Paris dans celle que j'ai utilisée qu'on détecte en colorisant tout en rouge).
J'essaierai d'en trouver une complète quelque part pour modifier le fichier joint.

 

Pièces jointes

• Carte de France.xlsm

  89.5 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Juillet 2020

• #29

Puisqu'il faut une carte voyez celle-ci qui se colore quand on active la feuille "Carte" :

VB:

Private Sub Worksheet_Activate()
Dim s As Shape, c As Range
Application.ScreenUpdating = False
'---RAZ---
For Each s In Shapes
    s.Fill.ForeColor.RGB = 16777215
Next
'---Couleur---
On Error Resume Next
For Each c In Feuil1.PivotTables(1).TableRange1.Columns(1).Cells
    Set s = Nothing
    Set s = Shapes("FR-" & IIf(IsNumeric(c), Format(c, "00"), c))
    s.Fill.ForeColor.RGB = c(1, 5).DisplayFormat.Interior.Color
Next
End Sub

Edit : toutes les Shapes sont groupées, pour voir leurs noms (FR-xx) dégroupez-les.

 

Pièces jointes

• Carte(1).xlsm

  214.2 KB · Affichages: 19

Dernière édition: 27 Juillet 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Juillet 2020

• #30

re
en effet Dudu a raison la parti 75 94 93 (paris et alentour) est tellement petite que c'est difficile de la pointer avec la souris c'est pour cela qu'il y a cette même partie agrandi a haut a droite de la carte dans mon modèle
j'ai remis la corse non fusionnée sinon Dudu2 de sa fenêtre y va me pointer avec un kalachnikov 😉 😉
a adapter a vos besoins
en l’état le click sur un département le met en rouge et en F3 on a les données

ps:
si vous la voulez avec les départements cliquables dans un userform y a qu'a demander

 

Pièces jointes

• carte des départements francais de base.xlsm

  49.2 KB · Affichages: 12

Dernière édition: 27 Juillet 2020

Vote positif 0 Vote négatif