XL 2016 Carte interactive

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Juin 2020

• #2

Bonjour Mimi,
Dans votre carte les shapes s'appellent Freeform xx ( Freeform 53,Freeform 91 .... )
Or dans votre VBA vous attendez FR-xx :

VB:

ActiveSheet.Shapes("fr-" & c).Fill.ForeColor = couleur

Il vous faut renommer vos shapes en fonction de votre besoin, où changer le VBA pour attendre Freeform mais dans ce cas il faut vérifier que les valeurs de c existe pour chaque Freeform.
( à noter que certains shapes s'appellent bien FR-xx, j'en ai trouvé 6. Mais seulement 6. 😉 )

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 22 Juin 2020

• #3

Bonjour Sylvanu
Oui les shapes que j'ai mis dans l'encadré de la feuille qui sont sur la carte, ont bien le FR-et un chiffre
Il y a que ses six shapes sur la carte qui sont nommé

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Juin 2020

• #4

Lorsque vous faites :

VB:

For Each c In [départ]

Dans Départ on va de 1 à 77. Donc le premier valant 01, il va chercher FR-01 ... qui n'existe pas.

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 22 Juin 2020

• #5

Dans le fichier joint, dans la base en AA j'ai mis ce qui était fonctionnel sur la carte

 

Pièces jointes

• Essai.xlsm

  196.7 KB · Affichages: 15

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Juin 2020

• #6

Re,
Ci joint ... un truc qui marche sans erreur. J'ai pas dit qu'il faisait ce que vous vouliez. 😉
J'ai modifié :
- Départ car le tableau avait plusieurs colonne donc c valait 0 sur la 2eme colonne.
- Worksheet_Change car un clic sur un shape provoquait une erreur
- couleur car votre code utilisé p ... qui est en commentaire.
Bref, il n'y a plus d'erreur donc la base est saine.

 

Pièces jointes

• Essai (2).xlsm

  270.9 KB · Affichages: 18

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 22 Juin 2020

• #7

Re,
Merci sylvanu, mais c'est pas tout à fait sa le résultat que j'attends.
Il me faudrait que lorsque je clique sur le shape il se mette en rose et que son nom figure dans la cellule J2

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Juin 2020

• #8

Relisez mon post.😉
Le premier point est de faire un truc qui marche.
Ensuite je regarderais pour aller plus loin.

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 22 Juin 2020

• #9

Ok je te remercie
Mimi

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Juin 2020

• #10

Bonsoir,
Je n'ai pas tout compris à toutes vos macros.
Donc j'ai fait au mieux pour respecter ça :

lorsque je clique sur le shape il se mette en rose et que son nom figure dans la cellule J2

Cliquez pour agrandir...

 

Pièces jointes

• Essai (V2).xlsm

  274.4 KB · Affichages: 9

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Juin 2020

• #11

J'ai remis en place la liste déroulante, un choix dedans colore le dpt correspondant;
Je ne sais pas à quoi va vous servir cet outil, mais au cas où vous voudriez l'enrichir, j'ai mis une ressource qui ressemble concernant les dpt français, avec la possibilité d'ajouter des infos. Peut être intéressant sur le principe..

Géographie : Départements et régions françaises

En cliquant sur un département, l'outil donne la région à laquelle il appartient ainsi que diférentes données géographique et démographique. Basée sur une carte cloroplèthe, il tourne néanmoins sur XL2007. Tout en VBA sans utiliser les outils d'...

www.excel-downloads.com

 

Pièces jointes

• Essai (V3).xlsm

  275.4 KB · Affichages: 17

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 23 Juin 2020

• #12

Bonjour Sylvanu,
je te remercie de ton implication, c'est exactement ce que je recherche, je complète la base avec les 77 communes et je te redis.
Encore merci
Mimi

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 30 Juin 2020

• #13

Bonjour à tous,
J'ai complété la base, presque tout fonctionne sauf de 1 à 9 et la je ne sais pas pourquoi ??
Je joints le fichier
D'avance merci
Mimi

 

Pièces jointes

• Benin.xlsm

  262.1 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 30 Juin 2020

• #14

Bonjour Mimi,
Ceci est dû au fait que de 1 à 9 Les N° contiennent '01 et non 01.
Il suffit de modifier le code pour en tenir compte :

VB:

IndDept = Application.Match("*" & Val(Dept), [départ], 0)

 

Pièces jointes

• Benin (V2).xlsm

  281.7 KB · Affichages: 22

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 30 Juin 2020

• #15

Merci beaucoup sylvanu

 

Vote positif 0 Vote négatif