Ré initialisation Userform

Bonjour à tous,

j'ai un fichier où les feuilles ne sont pas visibles car l'application a été mise en invisible

Code:

---

Application.visible = false

---

Donc à l'ouverture j'ai un Userform qui s'ouvre et l'utilisateur se doit de remplir les différents champs qui l'intéresse.
Au moment de valider, une msgbox lui demande s'il veut faire une nouvelle demande. Si oui alors, l'userform du départ se réinitialise.

Mon problème est sur ce point là, dans ma commande j'ai mis

Code:

---

1 2 3 4 5 6 7 8

If MsgBox("Souhaitez-vous faire une nouvelle demande ?", vbYesNo, "Fermer ou Nouvelle Demande...") = vbYes Then Unload Me usfConges.Show Else Unload Me ActiveWorkbook.Close False End If End Sub

---

Le hic est quand le code arrive à Unload me, il prend en compte le Queryclose de mon userform qui contient le code suivant

Code:

---

1 2 3 4 5 6 7 8

Dim sh As Worksheet Unload Me Application.Visible = True For Each sh In Sheets sh.Visible = True Next sh ActiveWorkbook.Close False End Sub

---

Résultat, il me ferme l'application.

Ce que j'aimerai c'est appeler le programme de mon Userform lors de l'initialisation (Private sub userform_initialize()) lors de la commande Oui pour faire une nouvelle demande.
Est-ce possible ?
Si ce n'est pas possible, qu'avez-vous comme solution ?

Merci... Cordialement,
PLV.

1

Code:

---

1 2 3

application.enableevents=false unload me application.enableenvents = true

---

2

Code:

---

userfrom.hide

---

Bonjour EngueEngue,

la partie de ta réponse doit être placée où exactement ?
Dans la commande de mon bouton Valider ou dans le Queryclose de mon USF ?

L'explication de ton code : en gros tu bloques l'application, puis tu réinitialises l'userform puis tu débloques l'application...

A quoi va me servir l'userform.hide ? car lui il ferme l'USF met n'efface pas les données... enfin moi je dis ça mais je n'y connais pas grand chose, la preuve je suis dans le forum à chercher une réponse...

Cdlt,
PLV

Je n'avais pas compris ta question... C'est tout simple. enlève le querry close et mets le dans ton VB. ou alors mets tous tes champs à "" et recopie le code de ton initialize dans ton vbyes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

If MsgBox("Souhaitez-vous faire une nouvelle demande ?", vbYesNo, "Fermer ou Nouvelle Demande...") = vbYes Then Unload Me usfConges.Show Else Dim sh As Worksheet   Application.Visible = True For Each sh In Sheets sh.Visible = True Next sh ActiveWorkbook.Close False Unload Me End Sub End If End Sub

---

OK pour rassembler mon code dans le QueryClose...

Le problème c'est que j'ai beaucoup en code dans mon initialisation lors de l'ouverture de mon USF.
Je ne peux pas tout simplement appeler la commande

Code:

---

Private Sub userform_initialize()

---

Juste une question supplémentaire...

N'existe pas une solution qui appellerait

Code:

---

Private Sub userform_initialize()

---

un peu comme on appelle une fonction via Call...

Cdlt,
PLV