Msgbox personnalisé se ferme sans fermer Userform

[news]

Bonjour à tous du forum,

j'air repris un sujet traité de ce forum, dans j'utilise une boite de dialogue pour Msgbox personalisé.

'http://www.excel-downloads.com/forum/66993-msgbox.html

Lorsque je veux utiliser une Msgbox personnalisé dans un Userform"info_année",
lorsqu'on clique sur le bouton Ok, la Msgbox personalisé se ferme et le USerform se ferme, mais le Userform"info_année" ne devrait pas se fermer.

Function mDFmsgBox(Titre$, Message$, Align As Byte, Police$, TailleCaract As Byte, ParamArray B()) As Byte
Dim USF_verify As Object
Dim btnB As MSForms.CommandButton
Dim lblM As MSForms.Label
Dim LngMaxB As Integer, Marge As Integer, NbC As Integer
Dim i As Byte
'Création du USF_verify
Set USF_verify = ThisWorkbook.VBProject.VBComponents.Add(3)
...
'Procédures évènementielles liées aux boutons
With .CodeModule
.InsertLines .CountOfLines + 1, "Sub CommandButton" & i + 1 & "_Click():VmsgBox =" _
& i + 1 & " :Unload Me:End Sub"
End With

Le bug provient de Unload Me

Est-ce qu'il y a des possibilités de résoudre, afin que le Msgbox personnlisé se ferme, mais le Userform"info_année" ne se ferme pas ?

ci-joint fichier explicite,

news

 

[Guest]

Re : Msgbox personnalisé se ferme sans fermer Userform

Bonjour News.

Cela provient du fait que la propriété ShowModal de 'info_année' est = False.

Mets la à True et tu verras que tout se passe bien.

A+

 

[news]

Re : Msgbox personnalisé se ferme sans fermer Userform

Bonjour à tous du fourm,

Re: merci Hasco pour réponse

ne savais pas ce truc, de mettre dans le Userform Show Modal on true,

news