XL 2016 Carte interactive

Mimi

XLDnaute Occasionnel
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
 

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
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. ;) )
 

Mimi

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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.
 

Mimi

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

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Fichiers joints

Mimi

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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..
 

Fichiers joints

Mimi

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
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)
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas