Bonsoir à tous,
Là j'ai le regard hagard (;;;+(((
Un code simplicissime (même pour moi) ne s'execute plus alors qu'il
fonctionnait normalement.
Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites
à cocher soient sur True lors de userform_initialize.
BoiteAcocher.value=True.
Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas
F8) y compris sur les codes des BoiteAcocher_click
If BoiteAcocher.value=True then Range(A1).value="zaza"
Et bien la valeur ne s'inscrit pas dans A1!
J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien
ici), mais point de "zaza" dans A1!
Ce code fonctionnait très bien. Je ne l'ai pas touché.
Que me suggérez-vous?
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
LSteph
Bonsoir, Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize() CheckBox1 = True If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
Private Sub CheckBox1_Click() If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
'?
'lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir à tous, Là j'ai le regard hagard (;;;+((( Un code simplicissime (même pour moi) ne s'execute plus alors qu'il fonctionnait normalement. Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites à cocher soient sur True lors de userform_initialize. BoiteAcocher.value=True. Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas F8) y compris sur les codes des BoiteAcocher_click If BoiteAcocher.value=True then Range(A1).value="zaza" Et bien la valeur ne s'inscrit pas dans A1! J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien ici), mais point de "zaza" dans A1! Ce code fonctionnait très bien. Je ne l'ai pas touché. Que me suggérez-vous?
Bonsoir,
Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize()
CheckBox1 = True
If CheckBox1 Then
[a1] = "coché"
Else
[a1] = "non coché"
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 Then
[a1] = "coché"
Else
[a1] = "non coché"
End If
End Sub
'?
'lSteph
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
%233gv3Pb1FHA.268@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
Là j'ai le regard hagard (;;;+(((
Un code simplicissime (même pour moi) ne s'execute plus alors qu'il
fonctionnait normalement.
Dans un formulaire doté d'un controle multipage, j'ai demandé que des
boites à cocher soient sur True lors de userform_initialize.
BoiteAcocher.value=True.
Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas
F8) y compris sur les codes des BoiteAcocher_click
If BoiteAcocher.value=True then Range(A1).value="zaza"
Et bien la valeur ne s'inscrit pas dans A1!
J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne
bien ici), mais point de "zaza" dans A1!
Ce code fonctionnait très bien. Je ne l'ai pas touché.
Que me suggérez-vous?
Private Sub UserForm_Initialize() CheckBox1 = True If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
Private Sub CheckBox1_Click() If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
'?
'lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir à tous, Là j'ai le regard hagard (;;;+((( Un code simplicissime (même pour moi) ne s'execute plus alors qu'il fonctionnait normalement. Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites à cocher soient sur True lors de userform_initialize. BoiteAcocher.value=True. Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas F8) y compris sur les codes des BoiteAcocher_click If BoiteAcocher.value=True then Range(A1).value="zaza" Et bien la valeur ne s'inscrit pas dans A1! J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien ici), mais point de "zaza" dans A1! Ce code fonctionnait très bien. Je ne l'ai pas touché. Que me suggérez-vous?
ManBas
Bonsoir LSteph, Merci de ta réponse. Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Je ne comprends toujours pas mon problème.
"LSteph" a écrit dans le message de news:
Bonsoir, Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize() CheckBox1 = True If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
Private Sub CheckBox1_Click() If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
'?
'lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir à tous, Là j'ai le regard hagard (;;;+((( Un code simplicissime (même pour moi) ne s'execute plus alors qu'il fonctionnait normalement. Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites à cocher soient sur True lors de userform_initialize. BoiteAcocher.value=True. Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas F8) y compris sur les codes des BoiteAcocher_click If BoiteAcocher.value=True then Range(A1).value="zaza" Et bien la valeur ne s'inscrit pas dans A1! J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien ici), mais point de "zaza" dans A1! Ce code fonctionnait très bien. Je ne l'ai pas touché. Que me suggérez-vous?
Bonsoir LSteph,
Merci de ta réponse.
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans
CheckBox1_Click().
Je ne comprends toujours pas mon problème.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
u64xZcb1FHA.2884@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize()
CheckBox1 = True
If CheckBox1 Then
[a1] = "coché"
Else
[a1] = "non coché"
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 Then
[a1] = "coché"
Else
[a1] = "non coché"
End If
End Sub
'?
'lSteph
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
%233gv3Pb1FHA.268@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
Là j'ai le regard hagard (;;;+(((
Un code simplicissime (même pour moi) ne s'execute plus alors qu'il
fonctionnait normalement.
Dans un formulaire doté d'un controle multipage, j'ai demandé que des
boites à cocher soient sur True lors de userform_initialize.
BoiteAcocher.value=True.
Le code passe normalement (repéré avec des msgbox) (surveillé au pas à
pas F8) y compris sur les codes des BoiteAcocher_click
If BoiteAcocher.value=True then Range(A1).value="zaza"
Et bien la valeur ne s'inscrit pas dans A1!
J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne
bien ici), mais point de "zaza" dans A1!
Ce code fonctionnait très bien. Je ne l'ai pas touché.
Que me suggérez-vous?
Bonsoir LSteph, Merci de ta réponse. Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Je ne comprends toujours pas mon problème.
"LSteph" a écrit dans le message de news:
Bonsoir, Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize() CheckBox1 = True If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
Private Sub CheckBox1_Click() If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
'?
'lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir à tous, Là j'ai le regard hagard (;;;+((( Un code simplicissime (même pour moi) ne s'execute plus alors qu'il fonctionnait normalement. Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites à cocher soient sur True lors de userform_initialize. BoiteAcocher.value=True. Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas F8) y compris sur les codes des BoiteAcocher_click If BoiteAcocher.value=True then Range(A1).value="zaza" Et bien la valeur ne s'inscrit pas dans A1! J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien ici), mais point de "zaza" dans A1! Ce code fonctionnait très bien. Je ne l'ai pas touché. Que me suggérez-vous?
LSteph
Re, Bizarre,chez moi cela fonctionne
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Tu as bien un Checkbox1 dans ton Userform?
Tout de suite, je vois pas... A+
lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir LSteph, Merci de ta réponse. Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Je ne comprends toujours pas mon problème.
"LSteph" a écrit dans le message de news:
Bonsoir, Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize() CheckBox1 = True If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
Private Sub CheckBox1_Click() If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
'?
'lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir à tous, Là j'ai le regard hagard (;;;+((( Un code simplicissime (même pour moi) ne s'execute plus alors qu'il fonctionnait normalement. Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites à cocher soient sur True lors de userform_initialize. BoiteAcocher.value=True. Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas F8) y compris sur les codes des BoiteAcocher_click If BoiteAcocher.value=True then Range(A1).value="zaza" Et bien la valeur ne s'inscrit pas dans A1! J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien ici), mais point de "zaza" dans A1! Ce code fonctionnait très bien. Je ne l'ai pas touché. Que me suggérez-vous?
Re,
Bizarre,chez moi cela fonctionne
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans
CheckBox1_Click().
Tu as bien un Checkbox1 dans ton Userform?
Tout de suite, je vois pas...
A+
lSteph
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
%23RZcJnb1FHA.3780@TK2MSFTNGP12.phx.gbl...
Bonsoir LSteph,
Merci de ta réponse.
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans
CheckBox1_Click().
Je ne comprends toujours pas mon problème.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
u64xZcb1FHA.2884@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize()
CheckBox1 = True
If CheckBox1 Then
[a1] = "coché"
Else
[a1] = "non coché"
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 Then
[a1] = "coché"
Else
[a1] = "non coché"
End If
End Sub
'?
'lSteph
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
%233gv3Pb1FHA.268@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
Là j'ai le regard hagard (;;;+(((
Un code simplicissime (même pour moi) ne s'execute plus alors qu'il
fonctionnait normalement.
Dans un formulaire doté d'un controle multipage, j'ai demandé que des
boites à cocher soient sur True lors de userform_initialize.
BoiteAcocher.value=True.
Le code passe normalement (repéré avec des msgbox) (surveillé au pas à
pas F8) y compris sur les codes des BoiteAcocher_click
If BoiteAcocher.value=True then Range(A1).value="zaza"
Et bien la valeur ne s'inscrit pas dans A1!
J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne
bien ici), mais point de "zaza" dans A1!
Ce code fonctionnait très bien. Je ne l'ai pas touché.
Que me suggérez-vous?
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Tu as bien un Checkbox1 dans ton Userform?
Tout de suite, je vois pas... A+
lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir LSteph, Merci de ta réponse. Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Je ne comprends toujours pas mon problème.
"LSteph" a écrit dans le message de news:
Bonsoir, Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize() CheckBox1 = True If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
Private Sub CheckBox1_Click() If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
'?
'lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir à tous, Là j'ai le regard hagard (;;;+((( Un code simplicissime (même pour moi) ne s'execute plus alors qu'il fonctionnait normalement. Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites à cocher soient sur True lors de userform_initialize. BoiteAcocher.value=True. Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas F8) y compris sur les codes des BoiteAcocher_click If BoiteAcocher.value=True then Range(A1).value="zaza" Et bien la valeur ne s'inscrit pas dans A1! J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien ici), mais point de "zaza" dans A1! Ce code fonctionnait très bien. Je ne l'ai pas touché. Que me suggérez-vous?
ManBas
Ben non, j'ai adapté à mes checkbox. J'suis à fond là... Merci beaucoup quand même.
"LSteph" a écrit dans le message de news:
Re, Bizarre,chez moi cela fonctionne
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Tu as bien un Checkbox1 dans ton Userform?
Tout de suite, je vois pas... A+
lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir LSteph, Merci de ta réponse. Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Je ne comprends toujours pas mon problème.
"LSteph" a écrit dans le message de news:
Bonsoir, Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize() CheckBox1 = True If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
Private Sub CheckBox1_Click() If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
'?
'lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir à tous, Là j'ai le regard hagard (;;;+((( Un code simplicissime (même pour moi) ne s'execute plus alors qu'il fonctionnait normalement. Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites à cocher soient sur True lors de userform_initialize. BoiteAcocher.value=True. Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas F8) y compris sur les codes des BoiteAcocher_click If BoiteAcocher.value=True then Range(A1).value="zaza" Et bien la valeur ne s'inscrit pas dans A1! J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien ici), mais point de "zaza" dans A1! Ce code fonctionnait très bien. Je ne l'ai pas touché. Que me suggérez-vous?
Ben non, j'ai adapté à mes checkbox.
J'suis à fond là...
Merci beaucoup quand même.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
Oo4369b1FHA.3720@TK2MSFTNGP14.phx.gbl...
Re,
Bizarre,chez moi cela fonctionne
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans
CheckBox1_Click().
Tu as bien un Checkbox1 dans ton Userform?
Tout de suite, je vois pas...
A+
lSteph
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
%23RZcJnb1FHA.3780@TK2MSFTNGP12.phx.gbl...
Bonsoir LSteph,
Merci de ta réponse.
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans
CheckBox1_Click().
Je ne comprends toujours pas mon problème.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
u64xZcb1FHA.2884@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize()
CheckBox1 = True
If CheckBox1 Then
[a1] = "coché"
Else
[a1] = "non coché"
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 Then
[a1] = "coché"
Else
[a1] = "non coché"
End If
End Sub
'?
'lSteph
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
%233gv3Pb1FHA.268@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
Là j'ai le regard hagard (;;;+(((
Un code simplicissime (même pour moi) ne s'execute plus alors qu'il
fonctionnait normalement.
Dans un formulaire doté d'un controle multipage, j'ai demandé que des
boites à cocher soient sur True lors de userform_initialize.
BoiteAcocher.value=True.
Le code passe normalement (repéré avec des msgbox) (surveillé au pas à
pas F8) y compris sur les codes des BoiteAcocher_click
If BoiteAcocher.value=True then Range(A1).value="zaza"
Et bien la valeur ne s'inscrit pas dans A1!
J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne
bien ici), mais point de "zaza" dans A1!
Ce code fonctionnait très bien. Je ne l'ai pas touché.
Que me suggérez-vous?
Ben non, j'ai adapté à mes checkbox. J'suis à fond là... Merci beaucoup quand même.
"LSteph" a écrit dans le message de news:
Re, Bizarre,chez moi cela fonctionne
Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Tu as bien un Checkbox1 dans ton Userform?
Tout de suite, je vois pas... A+
lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir LSteph, Merci de ta réponse. Ton code réclame un objet (erreur 424) sur [a1] = "coché" dans CheckBox1_Click(). Je ne comprends toujours pas mon problème.
"LSteph" a écrit dans le message de news:
Bonsoir, Ceci devrait fonctionner par exemple:
Private Sub UserForm_Initialize() CheckBox1 = True If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
Private Sub CheckBox1_Click() If CheckBox1 Then [a1] = "coché" Else [a1] = "non coché" End If End Sub
'?
'lSteph
"ManBas" a écrit dans le message de news: %
Bonsoir à tous, Là j'ai le regard hagard (;;;+((( Un code simplicissime (même pour moi) ne s'execute plus alors qu'il fonctionnait normalement. Dans un formulaire doté d'un controle multipage, j'ai demandé que des boites à cocher soient sur True lors de userform_initialize. BoiteAcocher.value=True. Le code passe normalement (repéré avec des msgbox) (surveillé au pas à pas F8) y compris sur les codes des BoiteAcocher_click If BoiteAcocher.value=True then Range(A1).value="zaza" Et bien la valeur ne s'inscrit pas dans A1! J'ai même donné la valeur de A1 au caption d'un label ("zaza" ça tourne bien ici), mais point de "zaza" dans A1! Ce code fonctionnait très bien. Je ne l'ai pas touché. Que me suggérez-vous?
