Discussion :

[Maxence_vba]

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

Sur la ligne commande.Show :

Code :

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

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 :

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

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 :

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

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

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

[patricktoulon]

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

[unparia]

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

est inexact

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

[anasecu]

Bonjour,

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 :

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

1
2
3
4
Public Sub reinit()
    Unload commande
    commande.Show
End Sub

et le code de ton bouton devient

Code :

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

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.

[Pierre Fauconnier]

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



Voici le code à placer dans le module du userform

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

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

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