Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Useform conditionnel

5 réponses
Avatar
jacques77
Bonsoir,
Dans un Useform, j'insère 3 zones de texte avec leur label associé ainsi que 2
boutons d'option (oui et non).
Si le bouton d'option non est choisi, je souhaite ajouter à mon Useform 3
nouvelles zones de texte avec leur label.
Pas de changement si l'option oui est choisie
Comment faire ?

Merci de vos réponses

5 réponses

Avatar
Jean-Claude
In news:46f93157$0$27381$,
____________________
Bonsoir,
Dans un Useform, j'insère 3 zones de texte avec leur label associé
ainsi que 2 boutons d'option (oui et non).
Si le bouton d'option non est choisi, je souhaite ajouter à mon
Useform 3 nouvelles zones de texte avec leur label.
Pas de changement si l'option oui est choisie
Comment faire ?



Les mettre en .visibleúlse

L'évènement associé à l'OptionButton les mets à true

--
A+
Jean-Claude


Avatar
jacques77
"Jean-Claude" a écrit dans le message de news:
%23aKmED6$
In news:46f93157$0$27381$,
____________________
Bonsoir,
Dans un Useform, j'insère 3 zones de texte avec leur label associé
ainsi que 2 boutons d'option (oui et non).
Si le bouton d'option non est choisi, je souhaite ajouter à mon
Useform 3 nouvelles zones de texte avec leur label.
Pas de changement si l'option oui est choisie
Comment faire ?



Les mettre en .visibleúlse

L'évènement associé à l'OptionButton les mets à true

--
A+
Jean-Claude

Merci Jean-Claude,

Tout fonctionne bien au masquage des labels.( les labels sont nommés "ville" et
"cp")
Par contre impossible de les afficher si le bouton option "non" est activé
Voici le code :

Private Sub non_Click()
ville.Visible = True
cp.Visible = True

Voyez-vous où se situe le problème ?
Encore merci.



Avatar
Jean-Claude
Tout fonctionne bien au masquage des labels.( les labels sont nommés
"ville" et "cp")
Par contre impossible de les afficher si le bouton option "non" est
activé Voici le code :

Private Sub non_Click()
ville.Visible = True
cp.Visible = True




Private Sub non_Click()
ville.Visible = True
cp.Visible = True
End Sub

Private Sub oui_Click()
ville.Visible = False
cp.Visible = False
End Sub

Chez moi cela fonctionne
--
A+
Jean-Claude
- Evitez lez gaz mous


Avatar
lSteph
Bonjour,
si ce sont bien des optionbutton et qu'il sont dans le même groupe
lorsque tu cliques sur oui tu dois voir non se désactiver au profit de
oui et vice versa.
Vérifie ce point et si c'est le cas corrige, qu'ils'agisse d'une frame
ou onglet d' userform , outre devoir être dans un seul et même objet,
pour t'en départir regarde la propriété groupname (Clic droit Fenêt re
des propriétés)


Sinon, pour le plaisir tu peux n'utiliser qu'un seul bouton

Private Sub CommandButton1_click()
ville.Visible = not ville.visible
cp.Visible = not cp.visible
end sub

--
LSteph

On 25 sep, 21:46, "jacques77" wrote:
"Jean-Claude" a écrit dans le message de news:
%23aKmED6$

Innews:46f93157$0$27381$,
____________________
Bonsoir,
Dans un Useform, j'insère 3 zones de texte avec leur label associ é
ainsi que 2 boutons d'option (oui et non).
Si le bouton d'option non est choisi, je souhaite ajouter à mon
Useform 3 nouvelles zones de texte avec leur label.
Pas de changement si l'option oui est choisie
Comment faire ?



Les mettre en .visiblelse

L'évènement associé à l'OptionButton les mets à true

--
A+
Jean-Claude


Merci Jean-Claude,
Tout fonctionne bien au masquage des labels.( les labels sont nommés "v ille" et
"cp")
Par contre impossible de les afficher si le bouton option "non" est activ é
Voici le code :

Private Sub non_Click()
ville.Visible = True
cp.Visible = True

Voyez-vous où se situe le problème ?
Encore merci.





Avatar
jacques77
Bonsoir à tous,
Tout fonctionne correctement. J'avais un problème d'orthographe sur les noms
attribués dans le Userform et mon code VBA.

Cordialement
"lSteph" a écrit dans le message de news:

Bonjour,
si ce sont bien des optionbutton et qu'il sont dans le même groupe
lorsque tu cliques sur oui tu dois voir non se désactiver au profit de
oui et vice versa.
Vérifie ce point et si c'est le cas corrige, qu'ils'agisse d'une frame
ou onglet d' userform , outre devoir être dans un seul et même objet,
pour t'en départir regarde la propriété groupname (Clic droit Fenêtre
des propriétés)


Sinon, pour le plaisir tu peux n'utiliser qu'un seul bouton

Private Sub CommandButton1_click()
ville.Visible = not ville.visible
cp.Visible = not cp.visible
end sub

--
LSteph

On 25 sep, 21:46, "jacques77" wrote:
"Jean-Claude" a écrit dans le message de news:
%23aKmED6$

Innews:46f93157$0$27381$,
____________________
Bonsoir,
Dans un Useform, j'insère 3 zones de texte avec leur label associé
ainsi que 2 boutons d'option (oui et non).
Si le bouton d'option non est choisi, je souhaite ajouter à mon
Useform 3 nouvelles zones de texte avec leur label.
Pas de changement si l'option oui est choisie
Comment faire ?



Les mettre en .visibleúlse

L'évènement associé à l'OptionButton les mets à true

--
A+
Jean-Claude


Merci Jean-Claude,
Tout fonctionne bien au masquage des labels.( les labels sont nommés "ville"
et
"cp")
Par contre impossible de les afficher si le bouton option "non" est activé
Voici le code :

Private Sub non_Click()
ville.Visible = True
cp.Visible = True

Voyez-vous où se situe le problème ?
Encore merci.