Discussion :

[anthony78340]

Bonjour,

Je souhaiterai modifier (après sa création) les propriétés d'un bouton créé dans une page par une macro. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub test()
    Set nouvelle_page = Sheets.Add(After:=Sheets("Feuil1"))
    nouvelle_page.Name = "test"
 
    Set Obj = ActiveWorkbook.ActiveSheet.OLEObjects.Add("Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False)
    With Obj
        .Left = 220
        .Top = 90
        .Width = 150
        .Height = 40
        .Object.Caption = "startstop"
    End With
 
    test1
 
End Sub
 
Sub test1()
    Sheets("test").CommandButton1.BackColor = &HFF00&
 
End Sub

Excel me renvoi :

Erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet.

Pour information, sur un deuxième PC utilisant la même version d'Excel, je n'ai pas l'erreur.
Je pense donc à un problème de configuration d'Excel : case à cocher.

Savez vous d'où cela peut venir?

Merci

Anthony

[anthony78340]

Personne n'a d'idée ?

J'ai la sensation, qu'il ne trouve pas l'objet tout juste crée. Peut-être un problème de "compilation"...
En tout cas pourquoi ça marche sur un Pc et pas un autre, aucune idée....

[Marc-L]

Bonjour, bonjour,

le message d'erreur ne suffit pas pour répondre car sans indiquer la ligne déclenchant l'erreur …

[anthony78340]

Oui effectivement, c'est cette ligne qui pose problème :

Code :

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

Sheets("test").CommandButton1.BackColor = &HFF00&

[Marc-L]

Rien ne m'interpelle, à part si la feuille "test" n'existe pas ou s'il n'y a pas de contrôle de type bouton …

[anthony78340]

Oui ça ne m'étonne pas, car ça marche sur un pc et pas l'autre. Je ne pense pas à un problème de code, mais plus à un problème de configuration d'Excel ou VBA.
Au moment ou la ligne est exécuté ça donne l'impression qu'il ne sait pas qu'un bouton a été crée.
Une fois que la macro test est terminée (arrêté par l'erreur), et que je relance uniquement la macro test1 et cela fonctionne...

[Marc-L]

Tenter l'instruction DoEvents juste avant la ligne déclenchant l'erreur (après la création), sait-on jamais …

[anthony78340]

Ça ne change rien ....

Mais je viens de trouver une nouvelle piste, l'erreur apparait lorsque Visual Basic est ouvert, si j'ouvre uniquement Excel il n'y a pas de problème.
Je suppose donc un problème de configuration de VB...

[Theze]

Bonjour,

Et en utilisant une variable "Shape" ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub test()
 
    Dim nouvelle_page As Worksheet
    Dim Obj As OLEObject
 
    Set nouvelle_page = Sheets.Add(After:=Sheets("Feuil1"))
 
    nouvelle_page.Name = "test"
 
    Set Obj = nouvelle_page.OLEObjects.Add("Forms.CommandButton.1")
 
    With Obj
 
        .Left = 220
        .Top = 90
        .Width = 150
        .Height = 40
        .Object.Caption = "startstop"
 
    End With
 
    test1
 
End Sub
 
Sub test1()
 
    Dim S As Shape
 
    Set S = Sheets("test").Shapes("CommandButton1")
    S.Fill.BackColor.RGB = RGB(255, 0, 0)
 
End Sub

Hervé.