Autres (RESOLU)Erreur d'exécution 13

[chaelie2015]

Bonjour forum

Option Explicit
'****************************************************
'Procédure permettant de rendre la carte interactive
'****************************************************
Sub CarteInteractive()
'Déclaration des variables
Dim NomCadre As String
Dim Shape

'Propriété caller : permettre d'afficher la manière dont vb est appelé
NomCadre = Application.Caller

'Mise en couleur par défaut de la carte
For Each Shape In ActiveSheet.Shapes 'pour chacune des formes de la feuille active
 Shape.Fill.ForeColor.RGB = RGB(0, 0, 200) 'on applique une couleur bleue à la forme
Next Shape

End Sub

après exécution j'ai une erreur d'exécution 13 au niveau
NomCadre = Application.Caller ???
Merci par avance

 

[Hasco]

Bonjour,

Votre macro ne se sert pas de la variable NomCadre.
Supprimez la ligne "NomCadre = Application.Caller"
Sans doute que votre macro n'est pas appelée par un 'Shape'.
Voyez l'aide sur Application.Caller et vous saurez comment tester cette propriété.

Propriété Application.Caller (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Cordialement

 

[Bernard_XLD]

Bonjour chaelie2015, le forum
[édition: bonjour à toi aussi, Roblochon !]

cela te renvoie un objet erreur comme prévu par cette propriété dans ce cas précis et tu le mets dans une variable string
tu le verras avec un Typename(Application.Caller)
https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.caller

Bien cordialement, @+

 

[chaelie2015]

Bonjour Roblochon, yeahou
merci pour les réponses et le lien.
a+