AFFICHAGE temporaire d'une MsgBox

[gds35]

Mes AMIS du forum bonjour , bon Dimanche ,

J'ai dans un USF un private sub contenant des instructions qui charge le contenu d'une combobox a partir de la premiere lettre du nom , et a un moment donné je charge une MSGBOX demandant le choix dans la liste. Pour valider je suis obligé de cliquer sur ok . Comment faire pour ne laisser apparaitre la msgboxbox pendant 5 seconde sans appuyer sur OK et afficher le contenu des items de la combobox ????? voici le p'tit bout de code
'================================================='
' CHARGEMENT DES ITEMS EN FONCTION DU CHOIX DU CC '
'================================================='
'
If Len(ChoixModifCC) = 1 Then
Message = MsgBox("CHOISIR SVP LE CC A MODIFIER", vbCritical + vbYes, "MODIF CC")
MODIFBOXNOMCC = ""
MODIFBOXNOMCC.SetFocus
'
' SI LE CHOIX EST FAIT
'
Else
MODIFBOXPRENOMCC = Range("B" & LMCC).Value
MODIFBOXIDCC1 = Range("C" & LMCC).Value
MODIFBOXIDCC2 = Range("D" & LMCC).Value
MODIFRECC = Range("H" & LMCC).Value
OLDRECC = MODIFRECC.Value
MODIFBOXUDRECC1 = Range("E" & LMCC).Value
MODIFNUMRERUCC = Range("F" & LMCC).Value
MODIFUDRECC = Range("G" & LMCC).Value
MODIFRURECC = Range("K" & LMCC).Value
MODIFBOXUDRUCC = Range("I" & LMCC).Value
MODIFNUMRURECC = Range("J" & LMCC).Value
'

 

[patricktoulon]

Attention quand même hta "Html application"utilise la librairie IE
sachant que IE va complètement disparaître ça risque de coincer dans un futur proche
sachant aussi que vbscript est proscrit depuis deja quelques années là aussi tot ou tard ca va coincer

 

[Staple1600]

@patricktoulon
Personnellement, afficher un message temporaire m'incite à penser que le contenu du message n'a pas grande valeur (Sinon pourquoi l'afficher brièvement ?)
Si je dois afficher un MsgBox, cela me dérange pas de devoir cliquer sur un bouton pour fermer le MsgBox
Donc le devenir d'IE et le futur proche ne sont pas un problème dans mon vecteur de réalité.

Spoiler: ( • précaution d'usage • )

Le mot orange indique que ce n'est là que mon opinion personnelle (qui n'engage que moi)
Ce n'est donc pas une critique à l'encontre de quiconque dans ce fil.

 

[jm.andryszak]

Bonjour
Quand j'ai l'utilité d'afficher un message temporaire j'utilise l'API MessageBoxTimeout
Si je l'ai bien déclaré pour les 64 bits voici un exemple

Option Explicit
'***********************************************
Public Declare PtrSafe Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" _
(ByVal Hwnd As LongPtr, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal uType As Long, _
ByVal wLanguageID As Long, _
ByVal lngMilliseconds As Long) As Long
'***********************************************

Function MsgBoxTimer(Prompt As String, Seconde As long, BoutonIcon As Integer, Caption As String) As Long
'***********************************************

MsgBoxTimer = MessageBoxTimeout(0, Prompt, Caption, BoutonIcon, 0, Seconde * 1000)
End Function

'***********************************************
Sub Test_MsgBoxTimer()
'***********************************************
'Appel de MsgBoxTimer
'***********************************************
Dim Reponse
'vbYes = 6, vbNo = 7, sinon 32000
'***********************************************
Reponse = MsgBoxTimer("Prompt", 5, vbYesNo, "Caption")
Select Case Reponse
Case vbYes
'Code
Case vbNo
'Code
Case Else
'Code
End Select
End Sub