Bouton qui apparaisse et disparaisse dans Userform
3 réponses
Domy
Bonjour,
J'ai fait un userform dedans il y a 3 TextBox et 2 OptionButton.
Selon que je clique sur l'OptionButton1 ou l'OptionButton2
Cela choisit la feuille voulut et ecrit en A1;B1etC1 ce qu'il y a
dans les TextBox.
Ce que je voudrait en plus, c'est qu'une fois cliqué sur l'OptionButton1 ou
2,
Cela fasse ma petite procedure et qu'une fois finit,
cela me créé un Label ou il y aurais d'ecrit dedans :
" Une autre saisie ? "
Et 2 boutons 1 qui serait ecrit " OUI " en vert et 1 autre " NON" en rouge.
Je suis allé sur http://www.excelabo.net
et j'ai trouvé un code a peu pres comme cela.
Mais je bloque ici :
Si je viens a cliqué sur le bouton " OUI " je voudrais que cela
vide les ecritures qui sont dans les TextBox et me fasse
disparaitre le Label et les 2 Boutons.
Si qqun sait comment faire,
Merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Fauconnier
Bonsoir
En adaptant les noms des contrôles, ce qui suit devrait te convenir . Pour cela, Label1, CommandButton1 et CommandButton2 sont positionnés sur la feuille dès le départ et doivent avoir leur propriété Visible à FALSE à la création de la feuille. Note que dans l'exemple que tu donnes, c'est le click sur un bouton radio, ou bouton d'option, qui déclenche la macro. C'est à mon avis une mauvaise approche si l'un des boutons est coché par défaut, puisque dans ce cas, un click sur ce bouton ne déclenche pas la macro... Perso, pour des raisons d'ergonomie Windows, je préfère déclencher l'action avec un CommandButton qui testera l'option cochée pour choisir la feuille... A toi de voir, mais ma façon de procéder.
Cela étant, l'exemple suivant ne tient pas compte de cette remarque et son code est à adapter...
Private Sub CommandButton1_Click() CacherControles End Sub
Private Sub OptionButton1_Click() ViderTextBox MontrerControles End Sub
Private Sub OptionButton2_Click() ViderTextBox MontrerControles End Sub Sub MontrerControles() Me.Label1.Visible = True Me.CommandButton1.Visible = True Me.CommandButton2.Visible = True End Sub
Sub CacherControles() Me.Label1.Visible = False Me.CommandButton1.Visible = False Me.CommandButton2.Visible = False End Sub
Sub ViderTextBox() TextBox1 = "" TextBox2 = "" TextBox3 = "" End Sub
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
Domy wrote:
Bonjour, J'ai fait un userform dedans il y a 3 TextBox et 2 OptionButton. Selon que je clique sur l'OptionButton1 ou l'OptionButton2 Cela choisit la feuille voulut et ecrit en A1;B1etC1 ce qu'il y a dans les TextBox. Ce que je voudrait en plus, c'est qu'une fois cliqué sur l'OptionButton1 ou 2, Cela fasse ma petite procedure et qu'une fois finit, cela me créé un Label ou il y aurais d'ecrit dedans : " Une autre saisie ? " Et 2 boutons 1 qui serait ecrit " OUI " en vert et 1 autre " NON" en rouge. Je suis allé sur http://www.excelabo.net et j'ai trouvé un code a peu pres comme cela. Mais je bloque ici : Si je viens a cliqué sur le bouton " OUI " je voudrais que cela vide les ecritures qui sont dans les TextBox et me fasse disparaitre le Label et les 2 Boutons. Si qqun sait comment faire, Merci d'avance.
Domy
Bonsoir
En adaptant les noms des contrôles, ce qui suit devrait te convenir . Pour
cela, Label1, CommandButton1 et CommandButton2 sont positionnés sur la
feuille dès le départ et doivent avoir leur propriété Visible à FALSE à la
création de la feuille.
Note que dans l'exemple que tu donnes, c'est le click sur un bouton radio,
ou bouton d'option, qui déclenche la macro. C'est à mon avis une mauvaise
approche si l'un des boutons est coché par défaut, puisque dans ce cas, un
click sur ce bouton ne déclenche pas la macro... Perso, pour des raisons
d'ergonomie Windows, je préfère déclencher l'action avec un CommandButton
qui testera l'option cochée pour choisir la feuille... A toi de voir, mais
ma façon de procéder.
Cela étant, l'exemple suivant ne tient pas compte de cette remarque et son
code est à adapter...
Private Sub CommandButton1_Click()
CacherControles
End Sub
Private Sub OptionButton1_Click()
ViderTextBox
MontrerControles
End Sub
Private Sub OptionButton2_Click()
ViderTextBox
MontrerControles
End Sub
Sub MontrerControles()
Me.Label1.Visible = True
Me.CommandButton1.Visible = True
Me.CommandButton2.Visible = True
End Sub
Sub CacherControles()
Me.Label1.Visible = False
Me.CommandButton1.Visible = False
Me.CommandButton2.Visible = False
End Sub
Sub ViderTextBox()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub
--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
Domy wrote:
Bonjour,
J'ai fait un userform dedans il y a 3 TextBox et 2 OptionButton.
Selon que je clique sur l'OptionButton1 ou l'OptionButton2
Cela choisit la feuille voulut et ecrit en A1;B1etC1 ce qu'il y a
dans les TextBox.
Ce que je voudrait en plus, c'est qu'une fois cliqué sur
l'OptionButton1 ou 2,
Cela fasse ma petite procedure et qu'une fois finit,
cela me créé un Label ou il y aurais d'ecrit dedans :
" Une autre saisie ? "
Et 2 boutons 1 qui serait ecrit " OUI " en vert et 1 autre " NON" en
rouge. Je suis allé sur http://www.excelabo.net
et j'ai trouvé un code a peu pres comme cela.
Mais je bloque ici :
Si je viens a cliqué sur le bouton " OUI " je voudrais que cela
vide les ecritures qui sont dans les TextBox et me fasse
disparaitre le Label et les 2 Boutons.
Si qqun sait comment faire,
Merci d'avance.
En adaptant les noms des contrôles, ce qui suit devrait te convenir . Pour cela, Label1, CommandButton1 et CommandButton2 sont positionnés sur la feuille dès le départ et doivent avoir leur propriété Visible à FALSE à la création de la feuille. Note que dans l'exemple que tu donnes, c'est le click sur un bouton radio, ou bouton d'option, qui déclenche la macro. C'est à mon avis une mauvaise approche si l'un des boutons est coché par défaut, puisque dans ce cas, un click sur ce bouton ne déclenche pas la macro... Perso, pour des raisons d'ergonomie Windows, je préfère déclencher l'action avec un CommandButton qui testera l'option cochée pour choisir la feuille... A toi de voir, mais ma façon de procéder.
Cela étant, l'exemple suivant ne tient pas compte de cette remarque et son code est à adapter...
Private Sub CommandButton1_Click() CacherControles End Sub
Private Sub OptionButton1_Click() ViderTextBox MontrerControles End Sub
Private Sub OptionButton2_Click() ViderTextBox MontrerControles End Sub Sub MontrerControles() Me.Label1.Visible = True Me.CommandButton1.Visible = True Me.CommandButton2.Visible = True End Sub
Sub CacherControles() Me.Label1.Visible = False Me.CommandButton1.Visible = False Me.CommandButton2.Visible = False End Sub
Sub ViderTextBox() TextBox1 = "" TextBox2 = "" TextBox3 = "" End Sub
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
Domy wrote:
Bonjour, J'ai fait un userform dedans il y a 3 TextBox et 2 OptionButton. Selon que je clique sur l'OptionButton1 ou l'OptionButton2 Cela choisit la feuille voulut et ecrit en A1;B1etC1 ce qu'il y a dans les TextBox. Ce que je voudrait en plus, c'est qu'une fois cliqué sur l'OptionButton1 ou 2, Cela fasse ma petite procedure et qu'une fois finit, cela me créé un Label ou il y aurais d'ecrit dedans : " Une autre saisie ? " Et 2 boutons 1 qui serait ecrit " OUI " en vert et 1 autre " NON" en rouge. Je suis allé sur http://www.excelabo.net et j'ai trouvé un code a peu pres comme cela. Mais je bloque ici : Si je viens a cliqué sur le bouton " OUI " je voudrais que cela vide les ecritures qui sont dans les TextBox et me fasse disparaitre le Label et les 2 Boutons. Si qqun sait comment faire, Merci d'avance.
Domy
Clément Marcotte
Bonjour,
vide les ecritures qui sont dans les TextBox
textbox1.value = "" textbox2.value = ""
et me fasse disparaitre le Label et les 2 Boutons.
