message lié à un évènement

Version imprimable

Bonjour,

Etant très novice sous VBA Excel je sollicite votre aide :
Je voulais ouvrir un script lorsqu'un évènement se produit sur mon classeur excel, cela fonctionne très bien, mais malheureusement le message apparait autant de fois que la condition se réalise. Comment faire pour que le script n'apparaît qu'une seule fois (et pas 50 fois quand la condition est vraie 50 fois )?

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub alerte() Dim Dt As Range Dim Ws As Worksheet Set Ws = Worksheets("Statut") For Each Dt In Ws.Range("A1:C17") If Dt > 100 Or Dt < 30 And Dt <> "" Then _ Shell "WScript " & """C:\Documents and Settings\xxxxx\Bureau\alerte.vbs""" Next Dt End Sub
Merci d'avance

Véro

15/01/2008, 14h56
Jean-Philippe André

bonjour,
tu peux ajouter une variable de type booléen, que tu testeras avant de lancer la fonction. Si OK alors tourne si NOK alors tourne pas, et si tourne, alors pas à NOK.
15/01/2008, 15h05
vero12

message lié a évènement

Bonjour,

C'est gentil de me répondre, malheureusement comme je l'ai dit je suis novice et je ne sait pas ou et comment ajouter cette variable.

De plus, je crois qu'avec ce genre de variable j'aurais le même problème puisqu'il y aura toujours des choses qui entre dans mes conditions, ce que je voudrais c'est qu'à chaque changement dans ma feuille le message n'apparaît qu'une seule fois

Merci

Véro

essai un peu ce code là :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub alerte()
    Dim Dt As Range
    Dim Ws As Worksheet
    Dim Ok As Boolean
 
    Set Ws = Worksheets("Statut")
 
    For Each Dt In Ws.Range("A1:C17")
        If Dt > 100 Or Dt < 30 And Dt <> "" Then 
            If Not Ok Then
                Shell "WScript " & """C:\Documents and Settings\xxxxx\Bureau\alerte.vbs"""
                Ok = True
            End If
        End If
    Next Dt
End Sub

15/01/2008, 15h19
vero12

Evenement

C'est super ça marche

Merci de tout coeur

Véro