Carte de france et excel

Fermé
titoune21312 Messages postés 35 Date d'inscription vendredi 4 novembre 2022 Statut Membre Dernière intervention 1 décembre 2023 - 11 janv. 2023 à 14:59
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 - 27 janv. 2023 à 13:28

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 

A voir également:

6 réponses

via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
12 janv. 2023 à 14:58

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


1
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
Modifié le 12 janv. 2023 à 16:42

Re,

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

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

Cdlmnt

Via


1
titoune21312 Messages postés 35 Date d'inscription vendredi 4 novembre 2022 Statut Membre Dernière intervention 1 décembre 2023 2
27 janv. 2023 à 09:43

Salut , 

merci super top juste par curiosité comment tu as fait ? 

0
Raymond PENTIER Messages postés 58751 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 6 décembre 2024 17 249
11 janv. 2023 à 15:15

Bonjour.

Toutes les infos sont ici


0
Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 106
11 janv. 2023 à 21:29

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


0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lynyrd1960 Messages postés 207 Date d'inscription jeudi 26 janvier 2012 Statut Membre Dernière intervention 30 juin 2023 245
12 janv. 2023 à 15:09

Bonjour le forum

Si ca peut aider.

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

A+

0
titoune21312 Messages postés 35 Date d'inscription vendredi 4 novembre 2022 Statut Membre Dernière intervention 1 décembre 2023 2
27 janv. 2023 à 09:55

Bonjour , 

merci pour faire celà cest du vba ? Comment tu as fait pour dès lors que l'on choisit une ville tout se mette à jour avec l'indication de la région ?

Merciii

0
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
Modifié le 27 janv. 2023 à 13:29

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à


0