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:
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:> RePeut 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 -
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: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 -
- Afficher le texte des messages précédents -- 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" a écrit dans le message
denews:
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:> RePeut 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 -
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:
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:> RePeut 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 -
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: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 -
- Afficher le texte des messages précédents -- 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" a écrit dans le message
denews:
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:> RePeut 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 -
Re
J'ai vus que dans la feuille Rapport2, il y a une colonne D avec en titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte dispara ît
après avoir fait rapport.
guy
"JB" a écrit dans le message denews:118647538
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:> ReJe 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: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:> RePeut 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-Masquerle texte des messages
précédents -- Afficher le texte des messages précédents -- Masquer le texte d es
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 -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -
Re
J'ai vus que dans la feuille Rapport2, il y a une colonne D avec en titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte dispara ît
après avoir fait rapport.
guy
"JB" <boisgont...@hotmail.com> a écrit dans le message denews:118647538 6.780715.100420@w3g2000hsg.googlegroups.com...
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: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-Masquerle texte des messages
précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es
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 -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -
Re
J'ai vus que dans la feuille Rapport2, il y a une colonne D avec en titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte dispara ît
après avoir fait rapport.
guy
"JB" a écrit dans le message denews:118647538
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:> ReJe 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: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:> RePeut 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-Masquerle texte des messages
précédents -- Afficher le texte des messages précédents -- Masquer le texte d es
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 -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -
Re
J'ai vus que dans la feuille Rapport2, il y a une colonne D avec en titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte disparaît
après avoir fait rapport.
guy
"JB" a écrit dans le message
denews:
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:> ReJe 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: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:> RePeut 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-Masquerle 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 -- 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 -
Re
J'ai vus que dans la feuille Rapport2, il y a une colonne D avec en titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte disparaît
après avoir fait rapport.
guy
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186475386.780715.100420@w3g2000hsg.googlegroups.com...
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: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-Masquerle 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 -- 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 -
Re
J'ai vus que dans la feuille Rapport2, il y a une colonne D avec en titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte disparaît
après avoir fait rapport.
guy
"JB" a écrit dans le message
denews:
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:> ReJe 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: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:> RePeut 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-Masquerle 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 -- 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 -
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais l à je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
"JB" a écrit dans le message denews:118655247
Bonjour,
Les instructions qui alimentent la colonne D(dans la procédure Private
Sub b_score_Click()):
-Sheets("rapport2").Cells(i + 7, 4) = _
Sheets("questions").Cells(i + 1, 3 +
Sheets("questions").Cells(i + 1, 8))
-Sheets("rapport2").Cells(i + 7, 4) = Sheets("questions").Cells(i + 1,
10)
JB
On 7 août, 16:09, "Guy72" wrote:> ReJ'ai vus que dans la feuille Rapport2, il y a une colonne D avec en tit re
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte dispa raît
après avoir fait rapport.
guy
"JB" a écrit dans le message
denews: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:> ReJe fait des modifications sur le UserForm, je voudrais savoir,je
souhaiterais faire apparaître le Userform (pour visualiser les modi fs)
sansêtre obliger de fermer mon fichier à chaque fois.
Guy
"JB" a écrit dans le message
denews: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:> RePeut 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-Masquerletexte 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 -- Masquer le texte d es
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 -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais l à je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
"JB" <boisgont...@hotmail.com> a écrit dans le message denews:118655247 7.203308.36710@b79g2000hse.googlegroups.com...
Bonjour,
Les instructions qui alimentent la colonne D(dans la procédure Private
Sub b_score_Click()):
-Sheets("rapport2").Cells(i + 7, 4) = _
Sheets("questions").Cells(i + 1, 3 +
Sheets("questions").Cells(i + 1, 8))
-Sheets("rapport2").Cells(i + 7, 4) = Sheets("questions").Cells(i + 1,
10)
JB
On 7 août, 16:09, "Guy72" <gu...@Bonjour.tous> wrote:> Re
J'ai vus que dans la feuille Rapport2, il y a une colonne D avec en tit re
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte dispa raît
après avoir fait rapport.
guy
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186475386.780715.100420@w3g2000hsg.googlegroups.com...
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 modi fs)
sans
être obliger de fermer mon fichier à chaque fois.
Guy
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews: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-Masquerletexte 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 -- Masquer le texte d es
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 -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais l à je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
"JB" a écrit dans le message denews:118655247
Bonjour,
Les instructions qui alimentent la colonne D(dans la procédure Private
Sub b_score_Click()):
-Sheets("rapport2").Cells(i + 7, 4) = _
Sheets("questions").Cells(i + 1, 3 +
Sheets("questions").Cells(i + 1, 8))
-Sheets("rapport2").Cells(i + 7, 4) = Sheets("questions").Cells(i + 1,
10)
JB
On 7 août, 16:09, "Guy72" wrote:> ReJ'ai vus que dans la feuille Rapport2, il y a une colonne D avec en tit re
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte dispa raît
après avoir fait rapport.
guy
"JB" a écrit dans le message
denews: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:> ReJe fait des modifications sur le UserForm, je voudrais savoir,je
souhaiterais faire apparaître le Userform (pour visualiser les modi fs)
sansêtre obliger de fermer mon fichier à chaque fois.
Guy
"JB" a écrit dans le message
denews: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:> RePeut 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-Masquerletexte 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 -- Masquer le texte d es
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 -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
"JB" a écrit dans le message
denews:
Bonjour,
Les instructions qui alimentent la colonne D(dans la procédure Private
Sub b_score_Click()):
-Sheets("rapport2").Cells(i + 7, 4) = _
Sheets("questions").Cells(i + 1, 3 +
Sheets("questions").Cells(i + 1, 8))
-Sheets("rapport2").Cells(i + 7, 4) = Sheets("questions").Cells(i + 1,
10)
JB
On 7 août, 16:09, "Guy72" wrote:> ReJ'ai vus que dans la feuille Rapport2, il y a une colonne D avec en
titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte
disparaît
après avoir fait rapport.
guy
"JB" a écrit dans le message
denews: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:> ReJe 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: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:> RePeut 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-Masquerletexte 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 -- 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 -- 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 -
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186552477.203308.36710@b79g2000hse.googlegroups.com...
Bonjour,
Les instructions qui alimentent la colonne D(dans la procédure Private
Sub b_score_Click()):
-Sheets("rapport2").Cells(i + 7, 4) = _
Sheets("questions").Cells(i + 1, 3 +
Sheets("questions").Cells(i + 1, 8))
-Sheets("rapport2").Cells(i + 7, 4) = Sheets("questions").Cells(i + 1,
10)
JB
On 7 août, 16:09, "Guy72" <gu...@Bonjour.tous> wrote:> Re
J'ai vus que dans la feuille Rapport2, il y a une colonne D avec en
titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte
disparaît
après avoir fait rapport.
guy
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186475386.780715.100420@w3g2000hsg.googlegroups.com...
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: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-Masquerletexte 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 -- 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 -- 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 -
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
"JB" a écrit dans le message
denews:
Bonjour,
Les instructions qui alimentent la colonne D(dans la procédure Private
Sub b_score_Click()):
-Sheets("rapport2").Cells(i + 7, 4) = _
Sheets("questions").Cells(i + 1, 3 +
Sheets("questions").Cells(i + 1, 8))
-Sheets("rapport2").Cells(i + 7, 4) = Sheets("questions").Cells(i + 1,
10)
JB
On 7 août, 16:09, "Guy72" wrote:> ReJ'ai vus que dans la feuille Rapport2, il y a une colonne D avec en
titre
"bonnes réponses.
Que faut il faire pour avoir les bonnes réponses inscrites ?
Car si ne frappe les bonne réponses dans ces cellules, le texte
disparaît
après avoir fait rapport.
guy
"JB" a écrit dans le message
denews: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:> ReJe 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: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:> RePeut 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-Masquerletexte 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 -- 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 -- 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 -
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et tout
cela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" a écrit dans le message de
news:
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" wrote:re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et tout
cela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186579619.818145.145770@b79g2000hse.googlegroups.com...
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" <gu...@Bonjour.tous> wrote:
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et tout
cela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" a écrit dans le message de
news:
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" wrote:re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Bonjour,
regarde le code de ton 4ème usf, il est vierge.
Il ne peut donc fonctionner comme les autres..Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et
tout
cela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" a écrit dans le message de
news:
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" wrote:re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là
je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Bonjour,
regarde le code de ton 4ème usf, il est vierge.
Il ne peut donc fonctionner comme les autres..
Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et
tout
cela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186579619.818145.145770@b79g2000hse.googlegroups.com...
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" <gu...@Bonjour.tous> wrote:
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là
je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Bonjour,
regarde le code de ton 4ème usf, il est vierge.
Il ne peut donc fonctionner comme les autres..Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et
tout
cela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" a écrit dans le message de
news:
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" wrote:re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là
je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Private Sub CommandButton4_Click()
UserForm4.Show
End Sub
tu cliques à l'intérieur (sur 4 par exemple), et tu tapes F8. Ton code
Bonjour
Oui je suis d'accord.
Mais avant j'avais copier le code du UserForm1 dans le UserForm4, en
changeant "rapport1" en "rapport4" puis "questions1" en "questions4" comme
les précédents mais là ça na vas pas.
Là j'ai le message " Erreur d'exécution 9, l'indice n'appartient pas à la
sélestion.
Et il me met en jaune ,
Private Sub CommandButton4_Click()
UserForm4.Show
End Sub
Je en voit pas ce qu'il y a.
Guy
"cousinhub" a écrit dans le message de
news:ubaBT5%Bonjour,
regarde le code de ton 4ème usf, il est vierge.
Il ne peut donc fonctionner comme les autres..Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et
toutcela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" a écrit dans le message de
news:
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" wrote:re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là
jebloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Private Sub CommandButton4_Click()
UserForm4.Show
End Sub
tu cliques à l'intérieur (sur 4 par exemple), et tu tapes F8. Ton code
Bonjour
Oui je suis d'accord.
Mais avant j'avais copier le code du UserForm1 dans le UserForm4, en
changeant "rapport1" en "rapport4" puis "questions1" en "questions4" comme
les précédents mais là ça na vas pas.
Là j'ai le message " Erreur d'exécution 9, l'indice n'appartient pas à la
sélestion.
Et il me met en jaune ,
Private Sub CommandButton4_Click()
UserForm4.Show
End Sub
Je en voit pas ce qu'il y a.
Guy
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de
news:ubaBT5%232HHA.6128@TK2MSFTNGP02.phx.gbl...
Bonjour,
regarde le code de ton 4ème usf, il est vierge.
Il ne peut donc fonctionner comme les autres..
Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et
tout
cela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1186579619.818145.145770@b79g2000hse.googlegroups.com...
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" <gu...@Bonjour.tous> wrote:
re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là
je
bloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s
Private Sub CommandButton4_Click()
UserForm4.Show
End Sub
tu cliques à l'intérieur (sur 4 par exemple), et tu tapes F8. Ton code
Bonjour
Oui je suis d'accord.
Mais avant j'avais copier le code du UserForm1 dans le UserForm4, en
changeant "rapport1" en "rapport4" puis "questions1" en "questions4" comme
les précédents mais là ça na vas pas.
Là j'ai le message " Erreur d'exécution 9, l'indice n'appartient pas à la
sélestion.
Et il me met en jaune ,
Private Sub CommandButton4_Click()
UserForm4.Show
End Sub
Je en voit pas ce qu'il y a.
Guy
"cousinhub" a écrit dans le message de
news:ubaBT5%Bonjour,
regarde le code de ton 4ème usf, il est vierge.
Il ne peut donc fonctionner comme les autres..Bonjour
J'ai réussi à faire 3 UserForm avec chacun une série de 20 questions et
toutcela fonctionne parfaitement.
Par contre, je veux mettre un 4ème UserForm et celui là ne veut pas
fonctionner et pourtant, j'ai fait la même manipe que les autres.
Y a t-il quelque chose à faire ?
Cordialement
Guy
http://cjoint.com/?iljBPiwVcJ
"JB" a écrit dans le message de
news:
Ligne 18 de B_score_click():
Sheets("rapport1").Range("B8:C100").ClearContents
JB
On 8 août, 14:41, "Guy72" wrote:re
Le seul transfert que je souhaiterais c'est :
"ok"...."faux"...."pas de réponse" ...."et mes réponses" c'est a dire.
(colonnes B et C)
Dans les colonnes A et D, le texte devrait rester dedans.
j'essais depuis pas mal de temps, j'évolue pas petite touches, mais là
jebloque.
Guy
Voici l'évolution.http://cjoint.com/?iioOJnZj8s