VBA changer caption à l'ouverture de la userf
Résolu
carbone54
-
Carbone54 -
Carbone54 -
Bonjour,
je souhaite que lorsque j'ouvre ma userform que les optionbutton présent a l'intérieur charge leur nom qui est dans une feuille excel.
j'espere avoir était assez clair.
Merci d'avance pour les réponse.
je souhaite que lorsque j'ouvre ma userform que les optionbutton présent a l'intérieur charge leur nom qui est dans une feuille excel.
j'espere avoir était assez clair.
Merci d'avance pour les réponse.
A voir également:
- VBA changer caption à l'ouverture de la userf
- Changer dns - Guide
- Changer de carte graphique - Guide
- Changer wifi chromecast - Guide
- Changer extension fichier - Guide
- Changer clavier qwerty en azerty - Guide
9 réponses
Bonjour,
Soit un userform composé de 5 optionbutton :
optionbutton1, optionbutton2 etc... optionbutton5.
Vous voulez leur attribuer respectivement les valeurs comprises en A1, A2 etc... A5 de la feuille "Feuil1" :
Soit un userform composé de 5 optionbutton :
optionbutton1, optionbutton2 etc... optionbutton5.
Vous voulez leur attribuer respectivement les valeurs comprises en A1, A2 etc... A5 de la feuille "Feuil1" :
Private Sub UserForm_Activate()
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Ctrl In UserForm1.Controls
If TypeOf Ctrl Is MSForms.OptionButton Then
Ctrl.Caption = Sheets("Feuil1").Range("A" & i).Value
i = i + 1
End If
Next
End Sub
Bonjour,
Tout d'abord merci de votre réponse.
Pour des questions d'organisation de ma feuille je me suis contenté de ça:
Mais cela ne me convient pas totalement car mon but est de prendre l'information dans 2 cellules.
J'ai essayé ça:
Mais ça ne fonctionne malheureusement pas "Erreur d'exécution '13' : incompatibilité de type"
Enfin il me reste une exigence c'est que ces 2 cellules soit écrient sur 2 lignes dans mon OptionButton.
Merci de vos réponse.
Tout d'abord merci de votre réponse.
Pour des questions d'organisation de ma feuille je me suis contenté de ça:
OptionButton2.Caption = Sheets("BDD").Range("B7").Value
Mais cela ne me convient pas totalement car mon but est de prendre l'information dans 2 cellules.
J'ai essayé ça:
OptionButton2.Caption = Sheets("BDD").Range("B7:B8").Value
Mais ça ne fonctionne malheureusement pas "Erreur d'exécution '13' : incompatibilité de type"
Enfin il me reste une exigence c'est que ces 2 cellules soit écrient sur 2 lignes dans mon OptionButton.
Merci de vos réponse.
J'ai modifié votre code par ceci:
Et cela fonctionne parfaitement.
Merci beaucoup.
OptionButton2.Caption = Sheets("BDD").Range("B7") & vbCr & Range("B8").Value
Et cela fonctionne parfaitement.
Merci beaucoup.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
En faite pas tout à fait je viens de découvrir un problème des que je passe par le CommandButton qui est sur la feuille excel il ne m'affiche que la première partie je ne sais pas pourquoi.
Le plus simple peut être de vous envoyer le programme.
Le plus simple peut être de vous envoyer le programme.
la taille de ton controle est a modifier dans le mode création, s'il est trop petit il n'affiche pas tout
Non car ça fonctionne si on passe pas par le commandboutton mais par la flèche lecture dans le code.
Salut,
Je reprends aujourd'hui.
Comprends pas pourquoi cela ne fonctionne pas avec le commandbutton. Effectivement, colle ici ton fichier (avec cjoit par exemple).
Je reprends aujourd'hui.
Comprends pas pourquoi cela ne fonctionne pas avec le commandbutton. Effectivement, colle ici ton fichier (avec cjoit par exemple).