XL 2016 Afficher msgbox en avant plan de userform

[KTM]

Bonsoir chers tous
J'aimerais savoir comment paramétrer ma msgbox pour qu'elle s'affiche en avant plan de mon userform.
Merci.

 

[_Thierry]

Bonsoir @KTM , le Forum

Si la Msgbox est lancée depuis le Userform, elle est automatiquement en avant plan de ce UserForm...
Je ne comprends pas la question ?

@+Thierry

 

[KTM]

Bonsoir @KTM , le Forum

Si la Msgbox est lancée depuis le Userform, elle est automatiquement en avant plan de ce UserForm...
Je ne comprends pas la question ?

@+Thierry

La msgbox est conditionnée et lancée à l'ouverture de l'userform
Voici mon code pour lancer le userform

UserForm1.Show
Dim c As Range
With Sheets("Grille_de_Dispensation").Range("A1:K" & Sheets("Grille_de_Dispensation").Range("A" & Rows.Count).End(xlUp).Row)
    Set c = .Find("", .Cells(.Rows.Count, .Columns.Count), xlFormulas)
If Not c Is Nothing Then MsgBox " Le Patient Code " & .Range("A" & c.Row) & Chr(13) & Chr(10) & "N°" & .Range("M" & c.Row) & _
" a des informations manquantes  !" & Chr(13) & Chr(10) & " Veuillez Rechercher et corriger", 64
End With

 

[jmfmarques]

Bonjour
n'affiche donc ton userform qu'après l'affichage de ta combobox ...

 

[_Thierry]

Bonjour @KTM, @jmfmarques , le Forum

Dans ton cas, je ferai un warning directement dans le Userform avec un Label comme dans l'exemple ci-joint. (Bouton 1)

Le Bouton 2, permet le message car on le lance avant le USF.show... Comme dit @jmfmarques

Bonne journée
@+Thierry

 

[VIARD]

Bonjour à tous

et pourquoi pas un message temporaire, déclenché avant l'apparition de User.

Sub Popup()
CreateObject("wscript.shell").Popup "N'oubliez pas -->" & Chr(10) & _
"Nécessite d'activer la référence" & Chr(10) & _
"Ce message restera quelque seconde affiché" & chr(10) & _
"Visual Basic For Application Extensibility 5.3", 3, "ToTo"
End Sub

A+ Jean-Paul

 

[KTM]

Bonjour à tous

et pourquoi pas un message temporaire, déclenché avant l'apparition de User.

Sub Popup()
CreateObject("wscript.shell").Popup "N'oubliez pas -->" & Chr(10) & _
"Nécessite d'activer la référence" & Chr(10) & _
"Ce message restera quelque seconde affiché" & chr(10) & _
"Visual Basic For Application Extensibility 5.3", 3, "ToTo"
End Sub

A+ Jean-Paul

Merci à tous pour les contributions.
J'ai inséré le code dans Userform.Activate et j'ai obtenu le résultat voulu.