Bonjour,

Comme vous étiez très gentils de m'aider la dernière fois je reviens sur ce forum car me voilà à nouveau devant un problème. Encore une fois je précise que je suis vraiment novice en VB Excel (en vrai totalement nulle).

Voilà mon script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub alerte()
   Dim Dt As Range
    Dim Ws As Worksheet
    Dim Ok As Boolean
 
    Set Ws = Worksheets("Feuil1")
 
      For Each Dt In Ws.Range("I5:I1000")
      If Dt > 0.2 And Dt < -0.2 And Dt <> "" Then
            If Not Ok Then
            MsgBox "Delta inférieur à -20% ou supérieur à 20%"
               ' Shell "WScript " & """C:\Documents and Settings\Veronique.Hecker\Bureau\alerte.vbs"""'
                Ok = True
            End If
        End If
    Next Dt   
End Sub
Et il me dit "erreur d'execution 13 incompatibilité de type"

En vrai il n'aime pas 2 choses : le - et les virgules (j'ai mis des points et changer dans l'option régionale).

Si quelqu'un avait une solution, ce serait merveilleux.

Merci d'avance

Véro