Discussion :

[vero12]

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

[vero12]

Bonjour

et merci de votre aide

Mais malheureusement cela ne fonctionne pas non plus avec les parenthèses.

Je sais vraiment pas ce qui coince, et j'ai fait attention aussi au format de cellules dans ma feuille Excel

Merci d'avance

Véro

[vero12]

Moi aussi j'ai pensé à cela mais quand je mets Double voilà ce qu'il me dit :

La Variable de contrôle For Each doit être de type Variant ou Objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Dt As Double
    Dim Ws As Worksheet
    Dim Ok As Boolean
 
   Set Ws = Worksheets("Feuil1")
 
    For Each Dt In Ws.Range("I5:I1000")

Forcément, mais comme je n'est jamais fait de VB je ne sais pas ce que je doit changer

Merci d'avance

Véro

[ouskel'n'or]

Autant pour moi, c'est bien un range La prochaine fois je lirai tout au départ.

Mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      If Dt.Value > 0.2 And Dt.Value < -0.2 And Dt <> "" Then

A+

[vero12]

Et non désolée mais c'est toujours le même message d'erreur

Incompabilité de type

Merci

Véro

[ouskel'n'or]

Désolé mais là je ne vois pas car j'ai testé ce code et chez moi ça fonctionne avec Dt as range.