CommandButton1..2..3..etc

bonjour Charly,

voici un exemple :

Private WithEvents Bouton1 As MSForms.CommandButton

Private Sub UserForm_Initialize()
x = InputBox("Entrer le nombre de bouton désirer")
For i = 1 To x
Set Bouton1 = UserForm1.Controls.Add("Forms.CommandButton.1", "Bouton1", True)
Bouton1.Left = 18
Bouton1.Top = 20 * i
Bouton1.Width = 175
Bouton1.Height = 20
Bouton1.Caption = "MonBouton" & i
Next
End Sub

isabelle

Oyez brave gens et bonne année a tous les fêlés d'excel,
je voudrais savoir s'il est possible d'une façon ou d'une autre de
"variabiliser" le numéro attribué aux boutons sur un userform ? J'en ai
besoin pour faire apparaître un certain nombre de bouton dans un Userform
selon les cas .
merci d'avance.
Charby.

Merci Isabelle pour ta réponse.

Charby.
"isabelle" <i@v> a écrit dans le message de news:
utXQvoMNHHA.4912@TK2MSFTNGP02.phx.gbl...

bonjour Charly,

voici un exemple :

Private WithEvents Bouton1 As MSForms.CommandButton

Private Sub UserForm_Initialize()
x = InputBox("Entrer le nombre de bouton désirer")
For i = 1 To x
Set Bouton1 = UserForm1.Controls.Add("Forms.CommandButton.1", "Bouton1",
True)

Bouton1.Left = 18
Bouton1.Top = 20 * i
Bouton1.Width = 175
Bouton1.Height = 20
Bouton1.Caption = "MonBouton" & i
Next
End Sub

isabelle

Oyez brave gens et bonne année a tous les fêlés d'excel,
je voudrais savoir s'il est possible d'une façon ou d'une autre de
"variabiliser" le numéro attribué aux boutons sur un userform ? J'en ai
besoin pour faire apparaître un certain nombre de bouton dans un
Userform

selon les cas .
merci d'avance.
Charby.

Merci a toi Hervé j'vé éssayé çà tout de suite.

Charby.

"Hervé" <Herv@discussions.microsoft.com> a écrit dans le message de news:
3DC6F0D5-3083-4CAF-94EA-B41A546955E8@microsoft.com...

bonjour

peut etre comme ceci :

dim i as byte

for i=1 to 10
controls("commandbutton" & i).....
next i

salut