Afficher une seule fois un Popup sous excel et codé en VBA

[mimy]

Bonsoir tout le monde,

Je suis en train de réaliser un fichier excel ou j'ai récupéré des cours boursiers. Donc dans une colonne, j'ai mis les cours et dans une autre mes "alertes".

Je désire afficher un pop up temporaire lorsque mon alerte se déclanche. Voici le code qui marche:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim mess As String

If Target.Address = "$B$7" Then

If Range("B7") < Range("C7") Then
CreateObject("WScript.Shell").Popup ("ALERTE INDICE BLABLA "), 3 'affichage popup limité a 3 secondes
End If

End If

End Sub

Imaginons que le cours baisse plusieurs fois à la suite, j'ai plusieurs popup qui s'affiche et excel se bloque.

J'aurais donc voulu savoir si on pouvait limiter l'affichage de popup dans ce cas !!

Merci beaucoup!

 

[Pierrot93]

Re : Afficher une seule fois un Popup sous excel et codé en VBA

Re,

En la matière, la variable "target" n'est pas gérée par cet événement, il va falloir utilisée une variable "public" placée dans un module standard, l'alimenter à l'ouverture du classeur, et la comparer à chaque recalcule de la feuille tout en la faisant évoluer…. Une petite recherche sur le forum devrait te fournir des exemples….

 

[mimy]

Re : Afficher une seule fois un Popup sous excel et codé en VBA

Merci Pierrot

J'ai cherché mais pas trouvé.

Je te remercie encore.