Impossible d'assigner une macro à une forme

Bonjour,

Le code suivant provoque une erreur 1004, "erreur définie par l'application ou par l'objet".

Code:

---

1 2 3 4 5 6

For Each sh In ActiveSheet.Shapes(1).GroupItems If sh.TextFrame2.TextRange.Text <> "" Then sh.OnAction = "test" sh.Select End If Next sh

---

Le fait d'ajouter le nom du classeur ne change rien.

Pouvez-vous m'expliquer ?

Merci d'avance.

Bonjour,
A quoi correspond la variable sh ?

Bonjour,

Pour VBA c'est une shape, un élément d'un groupe de shapes.

Bonjour,

sh est une variable que tu n'as pas déclarée en tant que shape, l'erreur vient sans doute de la :

Code:

---

dim sh as Shape

---

Peut être que je suis loin de la réponse mais une variable sans type défini est par défaut une "variant" et donc non une "shape"

Merci, mais non, ça ne change rien. D'ailleurs, le fait qu'il ne plante pas sur la ligne :

Code:

---

If sh.TextFrame2.TextRange.Text <> "" Then

---

montre bien que VBA le reconnait comme shape, ce qui apparaît d'ailleurs dans la fenêtre des variables locales.

L'enregistreur de macro me donne :

Code:

---

1 2	ActiveSheet.Shapes.Range(Array("Freeform 58")).Select Selection.OnAction = "test"

---

Quand je veux le rejouer, j'ai une erreur 1004 "Impossible de définir la propriété OnAction de la classe Drawing".

Bonjour,

La réponse est qu'il faut dégrouper les shapes avant s'associer les macros