Useform conditionnel

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-Claude
Le #4859431
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


jacques77
Le #4859311
"Jean-Claude" %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.



Jean-Claude
Le #4859081
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


lSteph
Le #4859041
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"
"Jean-Claude" %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 "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.





jacques77
Le #4856811
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"
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"
"Jean-Claude" %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.





Publicité
Poster une réponse
Anonyme