'1° tu lance
'2°
userform1.show'au debut du module
'dans userform1.intiatilize()
saut=true
call module x
',rappel du module avec une variable nommer saut de type public "Boolean" de ce fait tu pourras conditionner un saut juste après le usrform1.show que tu auras préalablement mis.
[COLOR="Red"]if saut=true then goto ici
userform1.show
ici:
'et a la fin du module
userform1.hide
saut=false[/COLOR]
Sub Lance()
Load RefreshPRV
RefreshPRV.Show 0
End Sub
Sub Entrée()
Load UserForm1
UserForm1.Show 0
....
....
MsgBox ("Le rafraichissement a été réalisé avec succès. Merci.")
Unload UserForm1
Unload RefreshPRV
End With
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
UserForm1.Caption = "Le bouton Fermer ne " & _
"fonctionne pas! Cliquez sur moi!"
End Sub