Faire disparaitre un USF après cinq secondes

[Claudy]

bonjour à tous,
j'ai ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C2:C50000")) Is Nothing Then
Photo.Show
End If
'Application.Wait (Now + TimeValue("00:00:05"))
'Photo.Hide
End Sub

Mais je vois pas où placer Application.wait...

Merci d'avance,
A+
Claudy

 

[laetitia90]

Re : Faire disparaitre un USF après cinq secondes

BONJOUR Claudy🙂
dans user..

Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue("00:00:05"))
Unload Me
End Sub

 

[mutzik]

Re : Faire disparaitre un USF après cinq secondes

bonjour

sinon
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C2:C50000")) Is Nothing Then
Photo.Show 0
Application.Wait (Now + TimeValue("00:00:05"))
Photo.Hide
End If
End Sub

 

[laetitia90]

Re : Faire disparaitre un USF après cinq secondes

RE ,bonjour mutzik🙂

pour faire simple on pourrait utiliser un popUP egalement

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Intersect(T, [C2:C50000]) Is Nothing Then _
CreateObject("Wscript.shell").popUP "Texte d'attente", 3, "Titre de la fenêtre", 32
End Sub