Ouvrir un userform sur vba

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:

---

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:

---

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 ! :D

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 ;)

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 :

Pièce jointe 174526

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

Pièce jointe 174527

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.

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:

---

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

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...

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:

---

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

---

En effet ça fonction !!!!

cool merci beaucoup !

Ravi de t'avoir aidé

n'oublie de marquer le sujet à [Resolu]