Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guy
http://cjoint.com/?igpyP5e735
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Guy72
Bonjour JB J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai du faire une bêtise? quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message" erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me surligne en jaune dans le code la ligne "UserForm1 Show". Qu'ai-je fait comme bêtise ? Cordialement guy "JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Bonjour JB
J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai du
faire une bêtise?
quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message"
erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me
surligne en jaune dans le code la ligne "UserForm1 Show".
Qu'ai-je fait comme bêtise ?
Cordialement
guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186410630.939941.195570@57g2000hsv.googlegroups.com...
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735
Bonjour JB J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai du faire une bêtise? quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message" erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me surligne en jaune dans le code la ligne "UserForm1 Show". Qu'ai-je fait comme bêtise ? Cordialement guy "JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
cousinhub
Bonsoir, dans l'initialisation de ton userform, tu as ceci : Sheets("rapport").Unprotect ("jacques") il semblerait qu'il faille plutôt : Sheets("rapport2").Unprotect ("jacques") bon courage
Bonjour JB J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai du faire une bêtise? quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message" erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me surligne en jaune dans le code la ligne "UserForm1 Show". Qu'ai-je fait comme bêtise ? Cordialement guy "JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Bonsoir,
dans l'initialisation de ton userform, tu as ceci :
Sheets("rapport").Unprotect ("jacques")
il semblerait qu'il faille plutôt :
Sheets("rapport2").Unprotect ("jacques")
bon courage
Bonjour JB
J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai du
faire une bêtise?
quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message"
erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me
surligne en jaune dans le code la ligne "UserForm1 Show".
Qu'ai-je fait comme bêtise ?
Cordialement
guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186410630.939941.195570@57g2000hsv.googlegroups.com...
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735
Bonsoir, dans l'initialisation de ton userform, tu as ceci : Sheets("rapport").Unprotect ("jacques") il semblerait qu'il faille plutôt : Sheets("rapport2").Unprotect ("jacques") bon courage
Bonjour JB J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai du faire une bêtise? quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message" erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me surligne en jaune dans le code la ligne "UserForm1 Show". Qu'ai-je fait comme bêtise ? Cordialement guy "JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Guy72
Merci cousinhub guy "cousinhub" a écrit dans le message de news:
Bonsoir, dans l'initialisation de ton userform, tu as ceci : Sheets("rapport").Unprotect ("jacques") il semblerait qu'il faille plutôt : Sheets("rapport2").Unprotect ("jacques") bon courage
Bonjour JB J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai du
faire une bêtise? quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message" erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me surligne en jaune dans le code la ligne "UserForm1 Show". Qu'ai-je fait comme bêtise ? Cordialement guy "JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Merci cousinhub
guy
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de
news:ONjZsWF2HHA.5796@TK2MSFTNGP05.phx.gbl...
Bonsoir,
dans l'initialisation de ton userform, tu as ceci :
Sheets("rapport").Unprotect ("jacques")
il semblerait qu'il faille plutôt :
Sheets("rapport2").Unprotect ("jacques")
bon courage
Bonjour JB
J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai
du
faire une bêtise?
quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message"
erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me
surligne en jaune dans le code la ligne "UserForm1 Show".
Qu'ai-je fait comme bêtise ?
Cordialement
guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186410630.939941.195570@57g2000hsv.googlegroups.com...
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735
Merci cousinhub guy "cousinhub" a écrit dans le message de news:
Bonsoir, dans l'initialisation de ton userform, tu as ceci : Sheets("rapport").Unprotect ("jacques") il semblerait qu'il faille plutôt : Sheets("rapport2").Unprotect ("jacques") bon courage
Bonjour JB J'ai vu ce qu'il fallait faire, mais je ne peut pas contrôler car, j'ai du
faire une bêtise? quand j'ouvre mon fichier, je n'ai plus le UserForm et j'ai un message" erreur d'exécution 9, l'indice n'appartient pas à la sélection" et me surligne en jaune dans le code la ligne "UserForm1 Show". Qu'ai-je fait comme bêtise ? Cordialement guy "JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Guy72
Merci JB
"JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Merci JB
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186410630.939941.195570@57g2000hsv.googlegroups.com...
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Guy72
Re Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
Re
Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ?
"Me.question_image.Picture = LoadPicture("transparent.gif")"
Guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186410630.939941.195570@57g2000hsv.googlegroups.com...
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735
Re Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message de news: Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735
JB
Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas d'image.
JB On 6 août, 22:55, "Guy72" wrote:
Re Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message denews:118641063 Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas
d'image.
JB
On 6 août, 22:55, "Guy72" <gu...@Bonjour.tous> wrote:
Re
Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ?
"Me.question_image.Picture = LoadPicture("transparent.gif")"
Guy
"JB" <boisgont...@hotmail.com> a écrit dans le message denews:118641063 0.939941.195570@57g2000hsv.googlegroups.com...
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages préc édents -
C'est pour effacer l'image en cours lorsqu'une question n'a pas d'image.
JB On 6 août, 22:55, "Guy72" wrote:
Re Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message denews:118641063 Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Guy72
Bonjour ok merci Guy
"JB" a écrit dans le message de news: Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas d'image.
JB On 6 août, 22:55, "Guy72" wrote:
Re Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message denews:
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour
ok merci
Guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186467322.128204.100090@19g2000hsx.googlegroups.com...
Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas
d'image.
JB
On 6 août, 22:55, "Guy72" <gu...@Bonjour.tous> wrote:
Re
Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ?
"Me.question_image.Picture = LoadPicture("transparent.gif")"
Guy
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186410630.939941.195570@57g2000hsv.googlegroups.com...
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages
précédents -
C'est pour effacer l'image en cours lorsqu'une question n'a pas d'image.
JB On 6 août, 22:55, "Guy72" wrote:
Re Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message denews:
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Guy72
Re Je fait des modifications sur le UserForm, je voudrais savoir,je souhaiterais faire apparaître le Userform (pour visualiser les modifs) sans être obliger de fermer mon fichier à chaque fois. Guy
"JB" a écrit dans le message de news: Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas d'image.
JB On 6 août, 22:55, "Guy72" wrote:
Re Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message denews:
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re
Je fait des modifications sur le UserForm, je voudrais savoir,je
souhaiterais faire apparaître le Userform (pour visualiser les modifs) sans
être obliger de fermer mon fichier à chaque fois.
Guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186467322.128204.100090@19g2000hsx.googlegroups.com...
Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas
d'image.
JB
On 6 août, 22:55, "Guy72" <gu...@Bonjour.tous> wrote:
Re
Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ?
"Me.question_image.Picture = LoadPicture("transparent.gif")"
Guy
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186410630.939941.195570@57g2000hsv.googlegroups.com...
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages
précédents -
Re Je fait des modifications sur le UserForm, je voudrais savoir,je souhaiterais faire apparaître le Userform (pour visualiser les modifs) sans être obliger de fermer mon fichier à chaque fois. Guy
"JB" a écrit dans le message de news: Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas d'image.
JB On 6 août, 22:55, "Guy72" wrote:
Re Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message denews:
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JB
Bonjour,
-Créer un bouton et lui affecter la macro auto_open() -Pour enlever la protection qui empêche de fermer le formulaire:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'If Me.témoin <> 0 Then ' Cancel = True ' End If End Sub
-Pour ne pas sortir de l'appli avec le bouton quitter:
Private Sub b_annule_Click() 'Application.Quit Unload Me End Sub
http://cjoint.com/?ihkDp4Vt4Y
JB On 7 août, 09:40, "Guy72" wrote:
Re Je fait des modifications sur le UserForm, je voudrais savoir,je souhaiterais faire apparaître le Userform (pour visualiser les modifs) sans être obliger de fermer mon fichier à chaque fois. Guy
"JB" a écrit dans le message denews:118646732 Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas d'image.
JB On 6 août, 22:55, "Guy72" wrote:> Re
Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message
denews:
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735-Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
-Créer un bouton et lui affecter la macro auto_open()
-Pour enlever la protection qui empêche de fermer le formulaire:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
'If Me.témoin <> 0 Then
' Cancel = True
' End If
End Sub
-Pour ne pas sortir de l'appli avec le bouton quitter:
Private Sub b_annule_Click()
'Application.Quit
Unload Me
End Sub
http://cjoint.com/?ihkDp4Vt4Y
JB
On 7 août, 09:40, "Guy72" <gu...@Bonjour.tous> wrote:
Re
Je fait des modifications sur le UserForm, je voudrais savoir,je
souhaiterais faire apparaître le Userform (pour visualiser les modifs) sans
être obliger de fermer mon fichier à chaque fois.
Guy
"JB" <boisgont...@hotmail.com> a écrit dans le message denews:118646732 2.128204.100090@19g2000hsx.googlegroups.com...
Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas
d'image.
JB
On 6 août, 22:55, "Guy72" <gu...@Bonjour.tous> wrote:> Re
Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ?
"Me.question_image.Picture = LoadPicture("transparent.gif")"
Guy
"JB" <boisgont...@hotmail.com> a écrit dans le message
For i = 1 To 4
NomChamp = "option" & i
Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1,
i + 3)
Me(NomChamp) = False
Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
j'ai rajouter une colonne réponse 4 en feuille "questions"
Que faut-il faire pour pouvoir lire les textes "colonne G"
Merci de votre aide
guyhttp://cjoint.com/?igpyP5e735-Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
-Créer un bouton et lui affecter la macro auto_open() -Pour enlever la protection qui empêche de fermer le formulaire:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'If Me.témoin <> 0 Then ' Cancel = True ' End If End Sub
-Pour ne pas sortir de l'appli avec le bouton quitter:
Private Sub b_annule_Click() 'Application.Quit Unload Me End Sub
http://cjoint.com/?ihkDp4Vt4Y
JB On 7 août, 09:40, "Guy72" wrote:
Re Je fait des modifications sur le UserForm, je voudrais savoir,je souhaiterais faire apparaître le Userform (pour visualiser les modifs) sans être obliger de fermer mon fichier à chaque fois. Guy
"JB" a écrit dans le message denews:118646732 Bonjour,
C'est pour effacer l'image en cours lorsqu'une question n'a pas d'image.
JB On 6 août, 22:55, "Guy72" wrote:> Re
Peut tu me dire à quoi sert cette ligne dans le code "Affiche" ? "Me.question_image.Picture = LoadPicture("transparent.gif")" Guy
"JB" a écrit dans le message
denews:
Bonjour,
Dans la procédure Affiche(), remplacer 3 par 4
For i = 1 To 4 NomChamp = "option" & i Me(NomChamp).Caption = Sheets("questions").Cells(No_question + 1, i + 3) Me(NomChamp) = False Next i
(testé sur la version d'origine, je n'ai pas tes images)
JB
On 6 août, 15:25, "Guy72" wrote:
Bonjour j'ai rajouter une colonne réponse 4 en feuille "questions" Que faut-il faire pour pouvoir lire les textes "colonne G" Merci de votre aide guyhttp://cjoint.com/?igpyP5e735-Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -