Usine à gaz
XLDnaute Barbatruc
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 :
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,
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 :
VB:
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 SubCreateObject("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,