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
Jacky
Bonjour,
2 Solutions.... '------------------ Private Sub Ckb_Hors_CEE_Click() If Ckb_Hors_CEE Then Label_TSéj.Visible = True Else Label_TSéj.Visible = False End If End Sub '--------------------- OU '------------ Private Sub Ckb_Hors_CEE_Click() Label_TSéj.Visible = Ckb_Hors_CEE.Value End Sub
-- Salutations JJ
"JeanYvesGascon" a écrit dans le message de news:
Bonjour
Dans un formulaire, il y a un CheckBox pour faire apparaitre un label et sa TextBox
Avec ceci, cela fonctionne;
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then Label_TSéj.Visible = True If Ckb_Hors_CEE Then TB_TSéj.Visible = True
Maintenant, je voudrais pouvoir faire l'inverse, c'est à dire qu'en cliquant à nouveau sur le CheckBox le label et la TextBox disparaisse.
Y aurait il quelqu'un pour m'éclairer ? D'avance merci
Cordialement
JeanYves
Bonjour,
2 Solutions....
'------------------
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then
Label_TSéj.Visible = True
Else
Label_TSéj.Visible = False
End If
End Sub
'---------------------
OU
'------------
Private Sub Ckb_Hors_CEE_Click()
Label_TSéj.Visible = Ckb_Hors_CEE.Value
End Sub
--
Salutations
JJ
"JeanYvesGascon" <jeanyves.gascon@gmail.com> a écrit dans le message de news:
870dfdb7-3702-4152-a56f-ad541669eefb@n13g2000vbv.googlegroups.com...
Bonjour
Dans un formulaire, il y a un CheckBox pour faire apparaitre un label
et sa TextBox
Avec ceci, cela fonctionne;
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then Label_TSéj.Visible = True
If Ckb_Hors_CEE Then TB_TSéj.Visible = True
Maintenant, je voudrais pouvoir faire l'inverse, c'est à dire qu'en
cliquant à nouveau sur le CheckBox
le label et la TextBox disparaisse.
Y aurait il quelqu'un pour m'éclairer ?
D'avance merci
2 Solutions.... '------------------ Private Sub Ckb_Hors_CEE_Click() If Ckb_Hors_CEE Then Label_TSéj.Visible = True Else Label_TSéj.Visible = False End If End Sub '--------------------- OU '------------ Private Sub Ckb_Hors_CEE_Click() Label_TSéj.Visible = Ckb_Hors_CEE.Value End Sub
-- Salutations JJ
"JeanYvesGascon" a écrit dans le message de news:
Bonjour
Dans un formulaire, il y a un CheckBox pour faire apparaitre un label et sa TextBox
Avec ceci, cela fonctionne;
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then Label_TSéj.Visible = True If Ckb_Hors_CEE Then TB_TSéj.Visible = True
Maintenant, je voudrais pouvoir faire l'inverse, c'est à dire qu'en cliquant à nouveau sur le CheckBox le label et la TextBox disparaisse.
Y aurait il quelqu'un pour m'éclairer ? D'avance merci
Cordialement
JeanYves
Jacky
Re... Il est évident qu'il en est de même pour le textbox dans ce cas '------------ Private Sub Ckb_Hors_CEE_Click() If Ckb_Hors_CEE Then Label_TSéj.Visible = True TB_TSéj.Visible = True Else Label_TSéj.Visible = False TB_TSéj.Visible = False End If End Sub '--------------- Ou '---------------- Private Sub Ckb_Hors_CEE_Click() Label_TSéj.Visible = Ckb_Hors_CEE.Value TB_TSéj.Visible = Ckb_Hors_CEE.Value End Sub '--------------- Sans oublier qu' a l'ouverture de l'userform il faut initialiser selon que le checkbox est à true ou non par exemple '------------- Private Sub UserForm_Initialize() Label_TSéj.Visible = Ckb_Hors_CEE.Value TB_TSéj.Visible = Ckb_Hors_CEE.Value End Sub '--------------
-- Salutations JJ
"Jacky" a écrit dans le message de news: j8ej0l$im7$
Bonjour,
2 Solutions.... '------------------ Private Sub Ckb_Hors_CEE_Click() If Ckb_Hors_CEE Then Label_TSéj.Visible = True Else Label_TSéj.Visible = False End If End Sub '--------------------- OU '------------ Private Sub Ckb_Hors_CEE_Click() Label_TSéj.Visible = Ckb_Hors_CEE.Value End Sub
-- Salutations JJ
"JeanYvesGascon" a écrit dans le message de news:
Bonjour
Dans un formulaire, il y a un CheckBox pour faire apparaitre un label et sa TextBox
Avec ceci, cela fonctionne;
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then Label_TSéj.Visible = True If Ckb_Hors_CEE Then TB_TSéj.Visible = True
Maintenant, je voudrais pouvoir faire l'inverse, c'est à dire qu'en cliquant à nouveau sur le CheckBox le label et la TextBox disparaisse.
Y aurait il quelqu'un pour m'éclairer ? D'avance merci
Cordialement
JeanYves
Re...
Il est évident qu'il en est de même pour le textbox dans ce cas
'------------
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then
Label_TSéj.Visible = True
TB_TSéj.Visible = True
Else
Label_TSéj.Visible = False
TB_TSéj.Visible = False
End If
End Sub
'---------------
Ou
'----------------
Private Sub Ckb_Hors_CEE_Click()
Label_TSéj.Visible = Ckb_Hors_CEE.Value
TB_TSéj.Visible = Ckb_Hors_CEE.Value
End Sub
'---------------
Sans oublier qu' a l'ouverture de l'userform il faut initialiser selon que le checkbox est à true ou non
par exemple
'-------------
Private Sub UserForm_Initialize()
Label_TSéj.Visible = Ckb_Hors_CEE.Value
TB_TSéj.Visible = Ckb_Hors_CEE.Value
End Sub
'--------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: j8ej0l$im7$1@speranza.aioe.org...
Bonjour,
2 Solutions....
'------------------
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then
Label_TSéj.Visible = True
Else
Label_TSéj.Visible = False
End If
End Sub
'---------------------
OU
'------------
Private Sub Ckb_Hors_CEE_Click()
Label_TSéj.Visible = Ckb_Hors_CEE.Value
End Sub
--
Salutations
JJ
"JeanYvesGascon" <jeanyves.gascon@gmail.com> a écrit dans le message de news:
870dfdb7-3702-4152-a56f-ad541669eefb@n13g2000vbv.googlegroups.com...
Bonjour
Dans un formulaire, il y a un CheckBox pour faire apparaitre un label
et sa TextBox
Avec ceci, cela fonctionne;
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then Label_TSéj.Visible = True
If Ckb_Hors_CEE Then TB_TSéj.Visible = True
Maintenant, je voudrais pouvoir faire l'inverse, c'est à dire qu'en
cliquant à nouveau sur le CheckBox
le label et la TextBox disparaisse.
Y aurait il quelqu'un pour m'éclairer ?
D'avance merci
Re... Il est évident qu'il en est de même pour le textbox dans ce cas '------------ Private Sub Ckb_Hors_CEE_Click() If Ckb_Hors_CEE Then Label_TSéj.Visible = True TB_TSéj.Visible = True Else Label_TSéj.Visible = False TB_TSéj.Visible = False End If End Sub '--------------- Ou '---------------- Private Sub Ckb_Hors_CEE_Click() Label_TSéj.Visible = Ckb_Hors_CEE.Value TB_TSéj.Visible = Ckb_Hors_CEE.Value End Sub '--------------- Sans oublier qu' a l'ouverture de l'userform il faut initialiser selon que le checkbox est à true ou non par exemple '------------- Private Sub UserForm_Initialize() Label_TSéj.Visible = Ckb_Hors_CEE.Value TB_TSéj.Visible = Ckb_Hors_CEE.Value End Sub '--------------
-- Salutations JJ
"Jacky" a écrit dans le message de news: j8ej0l$im7$
Bonjour,
2 Solutions.... '------------------ Private Sub Ckb_Hors_CEE_Click() If Ckb_Hors_CEE Then Label_TSéj.Visible = True Else Label_TSéj.Visible = False End If End Sub '--------------------- OU '------------ Private Sub Ckb_Hors_CEE_Click() Label_TSéj.Visible = Ckb_Hors_CEE.Value End Sub
-- Salutations JJ
"JeanYvesGascon" a écrit dans le message de news:
Bonjour
Dans un formulaire, il y a un CheckBox pour faire apparaitre un label et sa TextBox
Avec ceci, cela fonctionne;
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then Label_TSéj.Visible = True If Ckb_Hors_CEE Then TB_TSéj.Visible = True
Maintenant, je voudrais pouvoir faire l'inverse, c'est à dire qu'en cliquant à nouveau sur le CheckBox le label et la TextBox disparaisse.
Y aurait il quelqu'un pour m'éclairer ? D'avance merci
Cordialement
JeanYves
JeanYvesGascon
On 28 oct, 18:27, "Jacky" wrote:
Re... Il est vident qu'il en est de m me pour le textbox dans ce cas '------------ Private Sub Ckb_Hors_CEE_Click() If Ckb_Hors_CEE Then Label_TS j.Visible = True TB_TS j.Visible = True Else Label_TS j.Visible = False TB_TS j.Visible = False End If End Sub '--------------- Ou '---------------- Private Sub Ckb_Hors_CEE_Click() Label_TS j.Visible = Ckb_Hors_CEE.Value TB_TS j.Visible = Ckb_Hors_CEE.Value End Sub '--------------- Sans oublier qu' a l'ouverture de l'userform il faut initialiser selon qu e le checkbox est true ou non par exemple '------------- Private Sub UserForm_Initialize() Label_TS j.Visible = Ckb_Hors_CEE.Value TB_TS j.Visible = Ckb_Hors_CEE.Value End Sub '--------------
-- Salutations JJ
"Jacky" a crit dans le message de news: j8ej0l$ peranza.aioe.org...
> Bonjour,
> 2 Solutions.... > '------------------ > Private Sub Ckb_Hors_CEE_Click() > If Ckb_Hors_CEE Then > Label_TS j.Visible = True > Else > Label_TS j.Visible = False > End If > End Sub > '--------------------- > OU > '------------ > Private Sub Ckb_Hors_CEE_Click() > Label_TS j.Visible = Ckb_Hors_CEE.Value > End Sub
> -- > Salutations > JJ
> "JeanYvesGascon" a crit dans le message de news: > > Bonjour
> Dans un formulaire, il y a un CheckBox pour faire apparaitre un label > et sa TextBox
> Avec ceci, cela fonctionne;
> Private Sub Ckb_Hors_CEE_Click()
> If Ckb_Hors_CEE Then Label_TS j.Visible = True > If Ckb_Hors_CEE Then TB_TS j.Visible = True
> Maintenant, je voudrais pouvoir faire l'inverse, c'est dire qu'en > cliquant nouveau sur le CheckBox > le label et la TextBox disparaisse.
> Y aurait il quelqu'un pour m' clairer ? > D'avance merci
> Cordialement
> JeanYves
Mille merci de vos soutiens. Cela fonctionne de façon iméccable
cordialement
JeanYves
On 28 oct, 18:27, "Jacky" <Dup...@marcel.fr> wrote:
Re...
Il est vident qu'il en est de m me pour le textbox dans ce cas
'------------
Private Sub Ckb_Hors_CEE_Click()
If Ckb_Hors_CEE Then
Label_TS j.Visible = True
TB_TS j.Visible = True
Else
Label_TS j.Visible = False
TB_TS j.Visible = False
End If
End Sub
'---------------
Ou
'----------------
Private Sub Ckb_Hors_CEE_Click()
Label_TS j.Visible = Ckb_Hors_CEE.Value
TB_TS j.Visible = Ckb_Hors_CEE.Value
End Sub
'---------------
Sans oublier qu' a l'ouverture de l'userform il faut initialiser selon qu e le checkbox est true ou non
par exemple
'-------------
Private Sub UserForm_Initialize()
Label_TS j.Visible = Ckb_Hors_CEE.Value
TB_TS j.Visible = Ckb_Hors_CEE.Value
End Sub
'--------------
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a crit dans le message de news: j8ej0l$im...@s peranza.aioe.org...
> Bonjour,
> 2 Solutions....
> '------------------
> Private Sub Ckb_Hors_CEE_Click()
> If Ckb_Hors_CEE Then
> Label_TS j.Visible = True
> Else
> Label_TS j.Visible = False
> End If
> End Sub
> '---------------------
> OU
> '------------
> Private Sub Ckb_Hors_CEE_Click()
> Label_TS j.Visible = Ckb_Hors_CEE.Value
> End Sub
> --
> Salutations
> JJ
> "JeanYvesGascon" <jeanyves.gas...@gmail.com> a crit dans le message de news:
> 870dfdb7-3702-4152-a56f-ad541669e...@n13g2000vbv.googlegroups.com...
> Bonjour
> Dans un formulaire, il y a un CheckBox pour faire apparaitre un label
> et sa TextBox
> Avec ceci, cela fonctionne;
> Private Sub Ckb_Hors_CEE_Click()
> If Ckb_Hors_CEE Then Label_TS j.Visible = True
> If Ckb_Hors_CEE Then TB_TS j.Visible = True
> Maintenant, je voudrais pouvoir faire l'inverse, c'est dire qu'en
> cliquant nouveau sur le CheckBox
> le label et la TextBox disparaisse.
> Y aurait il quelqu'un pour m' clairer ?
> D'avance merci
> Cordialement
> JeanYves
Mille merci de vos soutiens.
Cela fonctionne de façon iméccable
Re... Il est vident qu'il en est de m me pour le textbox dans ce cas '------------ Private Sub Ckb_Hors_CEE_Click() If Ckb_Hors_CEE Then Label_TS j.Visible = True TB_TS j.Visible = True Else Label_TS j.Visible = False TB_TS j.Visible = False End If End Sub '--------------- Ou '---------------- Private Sub Ckb_Hors_CEE_Click() Label_TS j.Visible = Ckb_Hors_CEE.Value TB_TS j.Visible = Ckb_Hors_CEE.Value End Sub '--------------- Sans oublier qu' a l'ouverture de l'userform il faut initialiser selon qu e le checkbox est true ou non par exemple '------------- Private Sub UserForm_Initialize() Label_TS j.Visible = Ckb_Hors_CEE.Value TB_TS j.Visible = Ckb_Hors_CEE.Value End Sub '--------------
-- Salutations JJ
"Jacky" a crit dans le message de news: j8ej0l$ peranza.aioe.org...
> Bonjour,
> 2 Solutions.... > '------------------ > Private Sub Ckb_Hors_CEE_Click() > If Ckb_Hors_CEE Then > Label_TS j.Visible = True > Else > Label_TS j.Visible = False > End If > End Sub > '--------------------- > OU > '------------ > Private Sub Ckb_Hors_CEE_Click() > Label_TS j.Visible = Ckb_Hors_CEE.Value > End Sub
> -- > Salutations > JJ
> "JeanYvesGascon" a crit dans le message de news: > > Bonjour
> Dans un formulaire, il y a un CheckBox pour faire apparaitre un label > et sa TextBox
> Avec ceci, cela fonctionne;
> Private Sub Ckb_Hors_CEE_Click()
> If Ckb_Hors_CEE Then Label_TS j.Visible = True > If Ckb_Hors_CEE Then TB_TS j.Visible = True
> Maintenant, je voudrais pouvoir faire l'inverse, c'est dire qu'en > cliquant nouveau sur le CheckBox > le label et la TextBox disparaisse.
> Y aurait il quelqu'un pour m' clairer ? > D'avance merci
> Cordialement
> JeanYves
Mille merci de vos soutiens. Cela fonctionne de façon iméccable
cordialement
JeanYves
Maude Este
bONSOUR®
;o))) Private Sub UserForm_Initialize() Ckb_Hors_CEE.Value=True Label_TSéj.Visible = True TB_TSéj.Visible = True End Sub
'------------
Private Sub Ckb_Hors_CEE_Click() Label_TSéj.Visible = Not Label_TSéj.Visible TB_TSéj.Visible = Not TB_TSéj.Visible End Sub
bONSOUR®
;o)))
Private Sub UserForm_Initialize()
Ckb_Hors_CEE.Value=True
Label_TSéj.Visible = True
TB_TSéj.Visible = True
End Sub
'------------
Private Sub Ckb_Hors_CEE_Click()
Label_TSéj.Visible = Not Label_TSéj.Visible
TB_TSéj.Visible = Not TB_TSéj.Visible
End Sub
