carte de france et excel Fermé

Question

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

Raymond PENTIER · Answer

Bonjour.

Toutes les infos sont ici

Mike-31 · Answer

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

via55 · Answer

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

lynyrd1960 · Answer

Bonjour le forum

Si ca peut aider.

https://www.cjoint.com/c/MAmohriQFcU

A+

via55 · Answer

Re,

J'ai retrouvé ma carte colorable des départements

https://www.cjoint.com/c/MAmpQwrA8zx

Cdlmnt

Via

via55 · Answer

Oui 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à

Carte de france et excel

6 réponses

Discussions similaires