Carte de France interactive

Bonsoir,

J'ai déjà regarder dans le forum sans trouver réponse à ma question donc je viens vers vous.

Je souhaite faire une carte de France interactive. En suivant des tutos, je suis arrivé à faire en sorte que quand je clique sur le département, ça me sélectionne le nom de celui-ci dans la liste à côté.

Maintenant j'aimerai faire en sorte que cela fonctionne dans le sens inverse aussi, c'est-à-dire que quand je clique sur le nom du département dans la liste, le département change de couleur. En tout cas, qu'un indicateur apparaisse sur le département sur la carte.

Merci pour votre aide.

David

101carte-de-france.xlsm (187.15 Ko)

Bonjour, Bonne année et bienvenue sur le forum

Un essai à tester. Te convientt-il ?

Bye !

Salut gmb,

Bonne année à toi aussi !

Merci beaucoup pour ta réponse rapide mais je ne peux pas ouvrir le fichier.

Excel me dit que le fichier est corrompu ou endommagé. En l'ouvrant quand même, il me supprime presque tout le contenu.

Aurais-tu une autre version ?

Merci encore

Bonjour

Curieux !

Voilà un nouvel enregistrement de mon fichier.

Bye !

Merci mais ça ne marche toujours pas.

Je ne sais pas pourquoi ça me met toujours le même message.

Je n'arrive pas non plus à ouvrir l'éditeur VBA lorsque je désactive les macro...

capture d ecran 2020 01 05 a 00 27 23 capture d ecran 2020 01 05 a 00 27 40

A la réflexion, je pense que cela vient du fait que tu travailles sur un Mac et moi sur un PC.

On va essayer autrement.

Ouvre ton fichier, celui que tu as joint à ton premier message.

Fait un clic droit dans l'onglet de la feuille "Accueil" et choisis "Visualiser le code" pour ouvrir VBA

Dans la feuille VBA qui a en première ligne la macro "Sub clicOnShape()", tu colles à la suite de la dernière ligne la macro suivante :

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("I2:K34")) Is Nothing Then
        For Each Shape In ActiveSheet.Shapes
            Shape.Fill.ForeColor.RGB = RGB(55, 125, 128)
        Next Shape
        Nom = Target.Value
        ActiveSheet.Shapes(Nom).Fill.ForeColor.RGB = RGB(220, 220, 220)
    End If
End Sub

Retourne sur la feuille "Accueil" et clique sur un nom de département.

Dis moi alors ce qu'il se passe.

Bonne chance !

Bye !

Super ! Ca fonctionne parfaitement.

Merci encore pour l'aide et la réactivité !

A bientôt,

David

Bonjour le forum,

Très belle carte de France.

Par contre, dommage que la "RégionParisienne" ne comporte que la moitié des départements concernés.

Rechercher des sujets similaires à "carte france interactive"