VBA Application.caller error 13 run time
Kamel
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
voici mon debut de code pour une carte interactive par contre j'ai error 13 run time
quelqu'un peut m'aider
voici mon debut de code pour une carte interactive par contre j'ai error 13 run time
Sub Freeform124_Click() Dim NomShape As String NomShape = Application.Caller For Each Shape In ActiveSheet.Shapes form.Fill.ForeColor.RGB = RGB(0, 50, 0) Next Shape End Sub
quelqu'un peut m'aider
2 réponses
-
Bonjour,
Je n'ai pas cette erreur mais objet requis a celle-ciform.Fill.ForeColor.RGB = RGB(0, 50, 0)
-
Bonjour,
1. Ne pas employer de variable nommée avec un mot du langage (For each shape in ...)
2. Tester le type de shape (tous n'ont pas une propriété Fill)
Par exempleSub Freeform124_Click() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Type = msoFreeform Then shp.Fill.ForeColor.RGB = RGB(0, 50, 0) End If Next shp End Sub
Cordialement
Patrice
