XL 2016 Carte interactive

[Mimi]

Bonjour à tous,
J'ai repris un classeur excel avec une carte de france interactive que j'avais créer avec votre aide.
Dans le classeur joint j'ai seulement changer la carte de france par une autre carte, j'ai exactement attribué les même chose sur les shapes et rien ne marche.
Dans l'encadré de la feuille c'est ce qui est configuré sur la carte pour fonctionné.
D'avance je vous remercie
Mimi

 

[sylvanu]

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

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

 

[Mimi]

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é

 

[sylvanu]

Lorsque vous faites :

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.

 

[Mimi]

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

 

[sylvanu]

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.

 

[Mimi]

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

 

[sylvanu]

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

 

[Mimi]

Ok je te remercie
Mimi

 

[sylvanu]

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

 

[sylvanu]

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

 

[Mimi]

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

 

[Mimi]

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

 

[sylvanu]

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 :

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

 

[Mimi]

Merci beaucoup sylvanu