Probleme SpinButton OLEObjects

Version imprimable

Bonjour,
je me tourne vers vous parce que je n'arrive pas à faire fonctionner ce bout de code (sur excel 2003)
la propriété .OnAction ne passe pas (erreur 1004)
alors que les autres propriétés passent bien
bien sûr, j'ai bien essayé avec d'autres objets (Buttons, Shapes, etc.) et ça fonctionne bien. sauf avec le SpinButton.
pourriez vous éclairer ma lanterne
merci d'avance.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set NewSpin = ActiveSheet.OLEObjects.Add("Forms.SpinButton.1") With NewSpin .Left = 217 .Top = 184 .Width = 38 .Height = 72 .Object.Value = 1 .Object.Min = 1 .Object.Max = 65500 .Object.SmallChange = 1 .LinkedCell = Range("E2").Address .OnAction = "Test" 'j'ai essayé avec Object.OnAction ça ne fonctionne pas non plus End With

05/05/2014, 10h28
Marc-L

Bonjour, bonjour,

merci d'utiliser l'icône # pour baliser le code conformément aux règles du forum !

Sinon c'est normal, cet objet ne peut être assigné à une macro,
pourtant simple à vérifier via le menu contextuel de l'objet !

Utiliser plutôt l'équivalent dans la barre d'outils Formulaires, ne pas oublier le Générateur de macros …
05/05/2014, 17h16
tito94

Merci Marc-L
milles excuses, je ne savais pas pour le #.., et je n'ai pas vérifié le menu contextuel de l'objet.

je ne pensais pas que cet objet (SpinButton) ne pouvait être assigné à une macro alors que le "Spinner" peut l'être.... (question...pourquoi ?)
la raison de mon probleme etait qu'avec un Spinner le . max est de 30.000 alors que le SpinButton est (presque) illimité
peut on augmenter le .max du Spinner ?
si oui . comment ?
merci d'avance

Tito

bonjour à tous

finalement il fallait passer par un autre chemin

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set NewSpin = ActiveSheet.OLEObjects.Add("Forms.SpinButton.1")
        With NewSpin
       .Left = 278
        .Top = 15
        .Width = 33
        .Height = 54
        .Object.Value = 1
        .Object.Min = 1
        .Object.Max = 65500
        .Object.SmallChange = 1
        .LinkedCell = Range("E2").Address
        End With
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub SpinButton1_Change()"
    .InsertLines X + 2, "test"
    .InsertLines X + 3, "End Sub"
    End With

voilà . ça fonctionne

amicalement

06/05/2014, 10h14
Marc-L

Bien vu !