Créer à partir d'un bouton

[flamel]

Bonjour.

Peut-on créer de nouveaux boutons (ou autres objets) à partir d'un bouton, c'est à dire sans être en mode création ?

Merci.

 

[_Thierry]

Bonjour Flamel, le Forum

Oui c'est tout à fait possible, tu peux regarder deux démos :

=> Lien supprimé

=> Lien supprimé

Pour un CommandButton, tu peux t'orienter sur un code comme ceci :

Sub MyButton()
Dim Bouton As OLEObject
Dim Target As Range
Dim MyWidth As Integer, MyHeight As Integer

MyWidth = 150
MyHeight = 25

Set Target = ActiveCell

        Set Bouton = ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Left:=Target.Left, Top:=Target.Top, Width:=MyWidth, Height:=MyHeight)
        With Bouton
        .Name = 'MyButton'
            With .Object
                With .Font
                  .Name = 'Arial'
                  .Size = 8
                End With
              .Caption = 'Hello XLD'
            End With
        End With
End Sub

Bonne Journée (T.G.I.F. !!!!)

[ol]@+Thierry[/ol]

 

[flamel]

Merci Thierry, je vais essayer.

 

[flamel]

Bonjour Thierry.

Ca ne marche pas.
Ce que je désirerais, c'est de créer des boutons dans une UserForm et ton logiciel les crée dans une feuille Excel.

Merci si tu, peux m'aider.

flamel