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