Erreur procédure unload pour réinitialiser un userform

Bonjour j'ai un userform assez complet avec plusieurs multipages et des options et étant donné que l'utilisateur doit pouvoir réitérer la manipulation autant de fois qu'il le souhaite je dois réinitialiser mon userform à la fin de ses choix.

J'ai donc décidé de Unload l'userform pour le re-load juste après afin de le faire réapparaitre mais avec toutes les options et valeurs réinitialisées
Or j'ai une erreur de type
Pièce jointe 437183
Sur la ligne commande.Show :

Code:

---

1 2 3 4 5 6 7 8

choix = MsgBox("Etes vous sûr de vouloir abandonner votre commande ?", vbYesNo, "Confirmation de l'abandon") If choix = vbYes Then Me.Hide Unload commande Load commande commande.Show End If

---

Serait-ce parce que ça n'a pas de sens d'écrire commande.Show lorsqu'on n'est sur cet userform ?
Auquel cas est-il possible de réinitialiser mon userform sans passer un userform de transition contenant un bouton :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Me.Hide Unload commande commande.Show End Sub

---

Autrement j'ai essayé autre chose :

Code:

---

1 2 3 4 5 6 7

choix = MsgBox("Etes vous sûr de vouloir abandonner votre commande ?", vbYesNo, "Confirmation de l'abandon") If choix = vbYes Then Me.Hide Unload commande Load commande End If

---

Résultant à cette erreur (sur unload commande)...
Pièce jointe 437188
Voilà donc si vous avez des idées je suis preneur !
A noter que j'ai déjà fait des recherches sur internet mais sans succès car les solutions proposées pour certains ne fonctionnent pas pour moi...

En vous souhaitant une bonne soirée !

Cordialement

re
je suis pas sur que tout code dans le module userform puisse s'executer normalement apres le unload car le module est dechargé

d'autant plus que hide le rend inaccessible meme si il reste chargé
donc peut etre enleve le hide deja pour commencer

edit:
je viens de tester avec 2007 et 2013 sur 2007 ca marche mais sur 2013 ca plante aussi

Citation:

---

d'autant plus que hide le rend inaccessible meme si il reste chargé

---

est inexact

Citation:

---

donc peut etre enleve le hide deja pour commencer

---

oui, mais pour une raison bien simple : il est de toutes manières totalement inutile (il est inutile de cacher ce que l'on décharge)
Ce sont les deux dernières instructions qui, censées être exécutées après un déchargement de l'userform qui les abrite, ne risquent bien évidemment pas d'être exécutées ;)

Bonjour,

Citation:

---

Envoyé par Maxence_vba

J'ai donc décidé de Unload l'userform pour le re-load juste après afin de le faire réapparaitre mais avec toutes les options et valeurs réinitialisées

---

Pour résoudre ton souci, dans un module standard tu crées cette procédure :

Code:

---

1 2 3 4

Public Sub reinit() Unload commande commande.Show End Sub

---

et le code de ton bouton devient

Code:

---

1 2 3

Dim choix As Variant choix = MsgBox("Etes vous sûr de vouloir abandonner votre commande ?", vbYesNo, "Confirmation de l'abandon") If choix = vbYes Then Call reinit

---

Lorsque tu fait Unload dans ton formulaire, c'est la dernière action alors qu'un module te permet de continuer.

Salut.

Tu veux faire faire trop de choses à ton userform. Ce n'est pas à lui à gérer sa réinitialisation, mais au code qui l'appelle.

Je te propose ici une esquisse à adapter à ton cas, le principal étant que tu comprennes le mécanisme mis en place.

On dispose d'un formulaire avec trois boutons, d'une propriété publique du formulaire nommée UserChoice qui va exposer au client du userform le choix de l'utilisateur. Chaque bouton cliqué modifie cette propriété puis cache le formulaire pour rendre la main au code appelant. C'est ce code appelant qui décide de la suite du traitement en fonction du bouton cliqué.

Pièce jointe 437237

Voici le code à placer dans le module du userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Option Explicit   Public UserChoice As String     Private Sub btnCancel_Click() If MsgBox("Voulez-vous abandonner votre saisie?", vbQuestion + vbYesNo, "Mon appli") = vbYes Then UserChoice = "Quit" Me.Hide End If End Sub   Private Sub btnSaveAndNew_Click() UserChoice = "New" Me.Hide End Sub   Private Sub btnSaveAndQuit_Click() UserChoice = "Save" Me.Hide End Sub

---

Le code qui appelle le userform travaille en boucle tant que l'utilisateur le souhaite

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test() Dim Choice As String   Do UserForm1.Show Choice = UserForm1.UserChoice Unload UserForm1 Loop While Choice = "New" End Sub

---