Discussion :

[alice333]

Coucou !

malgré mes recherches sur les forums je n'arrive toujours pas à comprendre pourquoi mon programme ne fonctionne pas.
ce que je veux est tout simple:
- le questionnaire est sur une page,
- en cliquant sur un bouton il va sur la suivante (jusque là tout va bien),
- si l'utilisateur veut revenir en arrière il clique sur un bouton (en réalité une image) qui lui ouvre le userform précédant => et ici ça fonctionne à peu près une fois sur deux !

je vous montre mon programme :
- pour la première page (ça fonctionne en général):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
n2clients.Show
Unload Me
End Sub
 
 
Private Sub CommandButton2_Click()
n2viticulteurs.Show
Unload Me
End Sub

- pour la deuxième page (et ici ça ne fonctionne presque jamais...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'le bouton retour'
 
Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Image3.ControlTipText = "Retour"
End Sub
 
'retourner à la première page'
 
Private Sub Image3_Click()
Unload Me
n1ouverture.Show
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
 
End Sub

voila j'ai essayé d'être la plus précise possible, mais si jamais c'est pas très clair n'hésitez pas...

Merci d'avance pour votre aide !

[joe.levrai]

Bonjour,

quand tu parles de "page", tu veux dire "userform" ?

dans tes codes, on ne voit que des déchargements et chargements de formulaires
(sauf le dernier où je devine que tu cherches à effacer des réponses ... mais avec visiblement un problème de méthode)

je ne vois nul part une gestion ou un stockage des réponses

peux-tu mettre une copie de ton fichier pour y jeter un oeil ? ça ira plus vite je pense, et tu as fais un effort d'explication

[alice333]

Je n'arrive pas à mettre mon fichier sur la conversation... du coup j'ai pris des photos, c'est pas le top mais ca peut peut être aider...

l'userform1 :



lorsqu'on clique sur le bouton "je souhaite acheter du vin" l'userform2 doit s'ouvrir :



puis si on clique sur la flèche en haut à gauche le userform1 doit s'ouvrir (normalement).

je sais pas si c'est beaucoup plus clair, je vais continuer d'essayer de mettre mon ficher sur la conversation.

[joe.levrai]

Ah ! je pensais à un vrai questionnaire en fait

tu n'as pas besoin de vider les valeurs de tes textbox : quand tu décharges ton formulaire, ça les vide également

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'le bouton retour'
Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Image3.ControlTipText = "Retour"
End Sub
 
'retourner à la première page'
Private Sub Image3_Click()
 
Unload Me
n1ouverture.Show
 
End Sub

essaye déjà comme ça


ensuite, quand tu dis que ça ne fonctionne pas à tous les coups, tu as message d'erreur ? que se passe-t-il exactement

[alice333]

Alors j'ai essayé avec votre code mais il m'affiche encore le même message :

"erreur d'exécution 400,
feuille déjà affichée; affichage modal impossible"

pourtant j'ai l'impression que avec "unload" j'enlève la page, donc elle ne devrait pas être déjà affichée...

[joe.levrai]

donc l'erreur provient quand on clique sur "je veux acheter du vin" n'est-ce pas ?

dans ton code sur cet userform, tu affiches n2 avant de décharger n1.


voici, j'ai juste inversé les deux lignes de chaque code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CommandButton1_Click()
Unload Me
n2clients.Show
End Sub
 
 
Private Sub CommandButton2_Click()
Unload Me
n2viticulteurs.Show
End Sub