XL 2016 Application.Caller Shape

Clemence Spr · 31 Mars 2020

Bonjour à tous !

Je voudrais créer une carte interactive sur excel (ci-joint le fichier excel avec vba)
J’ai déjà dissocier les formes etc mais je ne n'arrive pas à utiliser le code "Application.Caller"

Je voudrais simplement que quand je clique sur une des formes (ici un pays) il se mette d'une couleur particulière et ensuite mettre à jour des tableaux graphiques etc..

Mais je suis bloquée au premier point : quand je clique sur une des formes il n'y a pas la petite main comme il devrait avec l’application caller

J'ai ce code d'erreur quand je run la macro à la main ..

Pouvez-vous m'aider sur ce sujet ?
Ci-dessous le code que j'ai ecrit,

Merci beaucoup !!!!!

Staple1600 · 31 Mars 2020

Bonjour le fil, Clemence Spr

•>Clemence Spr
Ce petit test fonctionne chez moi

VB:

Sub Test()
ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 0, 200)
End Sub

EDITION: Bonjour kingfadhel, sylvanu

kingfadhel · 31 Mars 2020

Bonsoir à tous,
un petit ajout qui permet de réinitialiser les shapes.

VB:

Sub test()
Dim forme As Object, ws As Object
Set ws = ActiveSheet
    For Each forme In ws.Shapes
        forme.Fill.ForeColor.RGB = RGB(191, 191, 191)
    Next forme

ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 0, 200)
End Sub

sylvanu · 31 Mars 2020

Bonsoir le fil,
A la main, le code bute sur Application.Caller puisqu'il n'existe pas.
Application.Caller est initialisé lors d'une action sur un objet.

Sinon une carte de l'Europe qui ressemble beaucoup à votre exemple.
Les matrices de données sont très facilement modifiables.

Géographie : L' Europe, les pays constituants et son évolution.

Petit jeu ludique de quizz sur l'Europe, ainsi qu'une vue temporelle de sa construction, de 1957 à nos jours.

www.excel-downloads.com

Clemence Spr · 1 Avril 2020

Merci beaucoup a vous deux c'est good maintenant !!!

XL 2016 Application.Caller Shape

Clemence Spr

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

kingfadhel

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Géographie : L' Europe, les pays constituants et son évolution.

Clemence Spr

XLDnaute Nouveau

Discussions similaires