Discussion :

[tito94]

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 :

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

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

[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 …

[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

[tito94]

bonjour à tous

finalement il fallait passer par un autre chemin

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

[Marc-L]

Bien vu !