Discussion :

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

Bonjour,
A quoi correspond la variable sh ?

[Daniel.C]

Bonjour,

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

[Overeath]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Daniel.C]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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".

[Daniel.C]

Bonjour,

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