Renommer plusieurs CommandButton dans un MultiPage

[tanerbus]

bonjour le forum

je cherche un code vba pour renommer plusieurs CommandButton lors de l'initialisation de l'userform

j'ai donc un userform9
dans cette userform9 il y a MultiPage1
le multipage1 a deux page ( "page1" et "page2")
sur la page1 il y a 224 CommandButton dont le premier est CommandButton19 et le dernier CommandButton242
sur la page2 il y a aussi 224 CommandButton dont le premier est CommandButton243 et le dernier CommandButton466
ces donc ces bouton que je veut renommer par rapport au cellule qui sont dans Sheets("param").Select
pour la page 1 collone A et pour la page 2 collone B


pour résumer j'aimerai avoir sa mais avec une boucle mais je ne ces pas sectionner le bouton

Sheets("param").Select

MultiPage1.page1.CommandButton19.Caption = [a19]
MultiPage1.page1.CommandButton20.Caption = [a20]
'ect ........
MultiPage1.page1.CommandButton242.Caption = [a242]
' page 2
MultiPage1.page2.CommandButton243.Caption = [a243]
'ect ..............
MultiPage1.page2.CommandButton243.Caption = [a243]
End Sub

'NB pour plus de faciliter j'ai fait coordonner le N° du bouton avec la ligne de de la feuil


je vous remercie en exaspérants avoir été claire .

 

[Staple1600]

Re : Renommer plusieurs CommandButton dans un MultiPage

Bonsoir



Voila la syntaxe (l'idée générale je te laisse adapter)

Private Sub UserForm_Click()
For i = 1 To 3 ' adapter le chiffre ici
Me.Controls("CommandButton" & i).Caption = Cells(i,"A")
Next
End Sub

Je te laissie tester avec tes 200 boutons 😀

 

[tanerbus]

Re : Renommer plusieurs CommandButton dans un MultiPage

de plus je vient de m'apercevoir que sur la page2 j'aimerai que ce soit du Wingdings en format

merci

 

[tanerbus]

Re : Renommer plusieurs CommandButton dans un MultiPage

merci Staple1600

ton code marche très bien

mais toujours mon problème de format Wingdings pour la page deux voir nouveau fichier ci joint merci

 

[tanerbus]

Re : Renommer plusieurs CommandButton dans un MultiPage

j'ai presque résolue mon problème
en fin presque certain caractère ne veule pas s'afficher

Private Sub UserForm_Initialize()

Sheets("param").Select

For i = 19 To 466 ' adapter le chiffre ici

If i >= 243 Then
Me.Controls("CommandButton" & i).Font.Name = "Wingdings"
End If

Me.Controls("CommandButton" & i).Caption = Cells(i, "A")

Next
End Sub