Renommer dans un userform le nom d'une option par une variable
bonjour, j'ai créé un userform avec des boutons options, comment changer le nom en fonction d'une variable.
j'ai juste besoin de la commande pour renommer le nom du bouton options.
OptionButton1.Caption = "test" (ne fonction pas)
faut-il mettre cette commande entre
With Userform
OptionButton1.Caption = "test" (ne fonction pas)
End With
merci pour vos réponse
Bonjour,
La commande Optionbutton1.caption = "test" est correcte pour renommer le bouton
Par contre vos explications ne sont pas claires lorsque vous parlez de variable
Si le nom de votre variable est TEST --> mettez ceci dans le code --> Optionbutton1.caption = TEST
Cordialement
bonjour, merci pour votre réponse, mais j'avais déjà essayé et ça ne fonctionne pas.
je veux juste pouvoir modifier le nom d'un bouton "options", la commande est peut-être correcte mais il doit manquer quelque avant.
OptionButton1.Caption = "test" (ne fonction pas) ou test (ne fonction pas)
Celà me paraissait facile à faire, mais hélas je but sur ce problème.
merci de vos réponses
Bonjour,
J'ai vérifié avant de vous répondre. Il doit y avoir quelque chose d'autre qui fait que vous ne pouvez pas.
je veux juste pouvoir modifier le nom d'un bouton "options", la commande est peut-être correcte mais il doit manquer quelque avant.
Probablement d'où ma suggestion de mettre un fichier exemple ou votre fichier (sans données confidentielle) sans quoi on va faire des longueurs
Merci mais j'ai enfin trouvé la bonne commande :
Private Sub UserForm1_Initialize()
UserForm1.Caption = "Le titre"
UserForm1.OptionButton1.Caption = "test1"
UserForm1.OptionButton2.Caption = "test2"
UserForm1.Show
End Sub
Ok.
Veillez à utiliser les balises de code en cliquant sur l'icone </> dans la barre de menu et en collant votre code dans la fenêtre
Là comme je vois, votre code peut être plutôt ceci :
Private Sub UserForm_Initialize()'edit supprimé le chiffre 1 derrière userform
Me.Caption = "Le titre"
OptionButton1.Caption = "test1"
OptionButton2.Caption = "test2"
End SubCordialement
merci pour les retours, mais ça bug sur Me
question pourquoi Me ? j'ai fait un copié collé dans un nouveau module, mais rien ne fonctionne
par contre oui juste ça :
UserForm1.Caption = "Le titre"
UserForm1.OptionButton1.Caption = "test1"
UserForm1.OptionButton2.Caption = "test2"
UserForm1.Show
Private Sub UserForm1_Initialize()
Me.Caption = "Le titre"
OptionButton1.Caption = "test1"
OptionButton2.Caption = "test2"
End SubBonjour
ceci n'est pas correct -->
Private Sub UserForm1_Initialize()Vous devez prendre le code que je vous ai proposé dans mon post précédent. Je l'ai édité.
Il ne faut pas de chiffre derrière Userform
Désolé de mon inattention dans ma réponse
Cordialement