Créer 50 boutons avec une boucle

Bonjour à tous,

Je voudrais créer 50 boutons en VBA nommés "Button1", "Button2", "Button3"... à l'aide d'une boucle for, j'ai donc procédé comme suit :

Sub a()
Dim i As Integer
For i = 0 To 50
    Dim Button & i as New Button
Next
End Sub

hélas ça ne marche pas. Je ne sais comment faire.

Je serais très heureux que quelqu'un puisse m'aider.

Cordialement

Bonjour,

OUSSA ? Dans une feuille ou dans un UserForm ?

Détailler un peu l'utilisation envisagée SVP.

A+

Dans une feuil.

Cordialement

Bonjour Stéphane Guidon, Galopin1

Voici le code pour l'insersion de bouton de commande "Contrôle Activx". A adapter pour le positionnement dans la cellule

Sub INSERER_BOUTON()
Dim i As Integer
Cells(1, 1).Select
For i = 1 To 50

      With Cells(1, i)
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.ColumnWidth, Height:=.RowHeight)
    End With
Next i
End Sub

J'avais oublié de te remercier et de clore la demande !

Alors merci beaucoup, et je clos la demande ^^