Microsoft 365 MsgBox temporisation

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle fin de journée

Je me tourne une nouvelle fois vers nos ténors pour une temporisation que je ne sais pas modifier pour un temps d'affichage d'1/2 seconde.

Malgré mes tests et recherches, je n'y arrive pas
Voici mon code :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("i14")) Is Nothing Then
CreateObject("Wscript.shell").Popup "MsgBox Affiché - Attendre fermeture", 1, "Etat"
'UF1.Show
[a1].Select
End If
End Sub

CreateObject("Wscript.shell").Popup "MsgBox Affiché - Attendre fermeture", 1, "Etat"
Je n'arrive pas à modifier le 1 pour faire 1/2 seconde

Si vous aviez la solution, ça m'arrangerait bien ,
En cas, je joins un petit fichier test,
Je continue mes recherches,
Avec mes remerciements,
Amicalement,
lionel,

 

[Phil69970]

Bonjour Lionel, le forum

Avec

Avec CreateObject("Wscript.shell").Popup

je ne pense pas que l'on peux faire plus court en temps mais avec un USF on peut faire

Private Sub UserForm_Activate()
' Récupération de l'heure d'affichage
TimeDebut = Timer
' Donne la main à excel
DoEvents
' Boucle tant que 0.5 seconde ne se sont pas écoulé
While Timer < TimeDebut + 0.5
Wend
' Fermeture
Unload Me
End Sub

@Phil69970

 

[job75]

Bonjour Lionel, Phil69970,

Bah 1 seconde pour lire ce n'est déjà pas beaucoup...

A+

 

[Usine à gaz]

Bonjour Gérard,

Merci d'être encore là et merci pour le fichier.
"Bah 1 seconde pour lire ce n'est déjà pas beaucoup..."

Je suis d'accord...
La temporisation (1 seconde) est qq fois respectée mais le plus souvent c'est +++ long (voir plus de 2 sec),
je voulais voir si 1/2 serait mieux quelque soit le moment du clic.

Je vais voir ce que ça donne avec un UserForm,
Encore merci,
lionel

 

[job75]

et merci pour le fichier.

Le fichier c'est Phil69970...

 

[Usine à gaz]

LOL merci Phil69970...
J'arrête le cognac le matin .. je me remets au café au lait lol

 

[Phil69970]

Re
Bonjour @job75

Euh nous sommes l’après midi il me semble et bientôt l’apéro

J'arrête le cognac le matin

Encore une dose peut-être pour tout remettre en place ?

@Phil69970

 

[Usine à gaz]

Bonjour Phil69970,
Merci pour ton fichier
"Encore une dose peut-être pour tout remettre en place ?"
lol j'm'l'demande

 

[Usine à gaz]

Re-Bonjour Phil69970,

Avec l'UserForm, ça fonctionne très bien.
Je te remercie
lionel,