Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Renommer plusieurs CommandButton dans un MultiPage

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tanerbus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tanerbus

Guest
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 .
 
Trier par date Trier par votes
Re : Renommer plusieurs CommandButton dans un MultiPage

Bonsoir



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

Code: 
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 😀
 
Vote positif 0 Vote négatif
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
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
722
troki74
T
G
  • Question Question
XL 2019 Répondre à des conditions d'une feuille pour un affichage dans un Userforms
Réponses
3
Affichages
1 K
cp4
A
  • Résolu(e)
XL 2010 Copier / Coller un bouton de commande (activex) avec son code dans plusieurs feuilles
Réponses
2
Affichages
1 K
Alappero
A
R
  • Question Question
caption d'un multipage dans un userform
Réponses
2
Affichages
1 K
robindr400
R
  • Question Question
(résolu) caption dans un commandbutton
Réponses
8
Affichages
850
laetitia90
L
D
  • Question Question
XL 2010 Difficulté à insérer plusieurs dates dans une même textbox pour remplir un tableau
Réponses
14
Affichages
2 K
didi2697
D
J
  • Question Question
Problème affichage sur un Multipage VBA
Réponses
8
Affichages
5 K
julianko
J
B
  • Question Question
Plusieurs pages dans un userform
Réponses
4
Affichages
6 K
ricard678
R
C
  • Question Question
Lancer d'un USF un second USF en selectionnant la multipage
Réponses
8
Affichages
1 K
creolia
C
N
  • Question Question
Insertion de variables dans un lien URL
2
Réponses
20
Affichages
3 K
Natoleza
N
A
  • Question Question
aide sur macro
Réponses
4
Affichages
728
angoul
A
J
  • Question Question
activation page dans multipage
Réponses
4
Affichages
28 K
miguelangelo
A
  • Question Question
Besoin d'aide sur VBA
Réponses
2
Affichages
839
Papou-net
N
  • Question Question
empecher de cliquer un bouton option dans plusieurs frame
Réponses
8
Affichages
2 K
nina71287
N
J
  • Question Question
Probleme dtpicker+incrémanter un numero à la nouvelle feuille
Réponses
2
Affichages
2 K
jimmy59940
J
F
  • Question Question
problème de changement de titre dans un multipage dynamique
Réponses
2
Affichages
1 K
francois91
F
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
117 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…