Propriété .OnAction sur SpinButton

bonjour à tous,

voilà, je n'arrive pas à faire fonctionner ce bout de code

en particulier la propriété .OnAction. ça me met erreur 1004.

je ne met peut-être pas la bonne syntaxe

merci d'avance pour votre aide

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

.Object.SmallChange = 1

.LinkedCell = Range("E2").Address

.OnAction = "Test"

End With

Bonjour

Qu'est ce que tu cherches à faire ?

Exécuter un code depuis ce Spinbutton ??

Si oui, supprime la ligne ON ACTION et place cette macro dans ta feuille (clique droite sur l'onglet où se trouve le bouton puis choisis "visualiser le code")

Private Sub SpinButton1_Change()
    Call Test
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse et ce, afin de cloturer le fil

Amicalement

bonjour Dan,

merci de ta réponse...

mais tu vois bien que c'est un SpinButton ajouter dynamiquement (.Add)

et je voudrais bien qu'il incorpore "dynamiquement" avec .OnAction la procedure "test".

et pas le faire après-coup en cliquant droit ..

si tu as une solution ... merci d'avance.

Bonjour,

Le code qui suit nécessite d'activer la référence "Visual basic For Application Extensibility 5.3"

Sub galopin()
Dim X As Integer, NewSpin
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 = 100
 .Object.SmallChange = 1
 .LinkedCell = Range("E2").Address
 End With
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub SpinButton1_Change()"
    .InsertLines X + 2, "test"
    .InsertLines X + 3, "End Sub"
End With
End Sub

Hum... Bien sur ce code n'est valable qu'à condition qu'aucun autre SpinButton n'existe dans la feuille !

A+

Merci Galopin.

ça fonctionne bien