Carte de france et excel
via55 Messages postés 14730 Statut Membre -
Bonjour,
j'aurais une petite question, est ce qu'il serait possible de créer une carte de France en interactif avec les départements affiché
et en parallèle faire un tableau où je m'explique
il y a plusieurs caractéristique le 1er toujours en liste déroulante : 3 éléments
le premier : département
second : le transporteur
le troisième : le volume par le transporteur
je voudrais juste que lorsque je sélectionne un département ca le mette en évidence pour se repérer d'où il se trouve , par quoi je pourrais commencer avec Excel 2016 je peux également avoir Excel 2016 pro
Merci d'avance de votre aide
- Carte de france et excel
- Carte d'identité - Accueil - Services publics
- Word et excel gratuit - Guide
- Pile carte mere - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
6 réponses
Bonjour à tous
Si ça peut aider voilà la carte que j'avais faite pour les régions
https://www.cjoint.com/c/MAmnTOf8sxx
Il suffit de s'en inspirer avec une carte des départements en svg qu'on peut trouver sur internet en fouillant un peu
Cdlmnt
Via
Re,
J'ai retrouvé ma carte colorable des départements
https://www.cjoint.com/c/MAmpQwrA8zx
Cdlmnt
Via
Bonjour,
C'est possible mais uniquement si tu as de bonnes connaissances en VBA et de la patience parce qu'il faut commencer par constituer la carte de France département par département sous forme de Shape pour traiter indépendamment chaque département.
ce sera déjà un bon début
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOui c'est assez simple
1) dans la feuille DATA on a la liste des départements auxquels sont associés leurs codes numérique, par ex 69 pour le Rhône, la liste des départements sert pour la liste déroulante en B3
2) j'ai nommé chaque shape (forme) de département FR-code du dept, par exemple la forme Rhône est nommée FR-69
3) La macro en VBA ci-dessous se lance à chaque changement de B3
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B3], Target) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
For Each c In Sheets("DATA").Range("B2:B96") ' boucle sur les departements
num = WorksheetFunction.VLookup(c, Sheets("DATA").Range("B2:C96"), 2, 0)
If c = Target.Value Then ActiveSheet.Shapes("fr-" & num).Fill.ForeColor.RGB = RGB(255, 255, 0) Else ActiveSheet.Shapes("fr-" & num).Fill.ForeColor.RGB = RGB(255, 255, 255)
Next
End If
End If
End Sub
La macro boucle sur la liste des départements et récupère dans la variable num par une RECHERCHEV le code associé
Si le département est celui choisi dans la liste déroulante alors on colore en jaune le shape nommé fr-num sinon on le colore en blanc
et voilà