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.

[vero12]

Le fait que ma colonne I soit le résultat d'un calcul, est-ce que cela peux jouer ?

Merci d'avance

Véro

[ouskel'n'or]

Non, j'ai testé avec une formule et n'ai pas d'erreur (avec ou sans Value. Quelle version d'Excel as-tu ?

N'as-tu pas déclaré l'une des variables "ailleurs" en Public ?

[vero12]

Voilà mon fichier

Merci

Véro

[vero12]

ça n'a pas fonctionné je ne sais pas où la pièce jointe est passée !

Ma version : Excel 2003

Je n'ai pas déclarée de variables aiileurs (j'en suis bien incapable)

Véro

[ouskel'n'or]

Pour joindre un fichier, tu dois le "zipper", le sélectionner et faire "Ajouter"
A+

[vero12]

Je vous enverrez le fichier dans 5 minutes

[obsolète]

Bonjour,
pouvez-vous m'expliquer comment
Dt.Value > 0.2 And Dt.Value < -0.2
que je "traduis" par 'dt est supérieur à 0.2 ET dt est inférieur à -0.2'

Je me doute que ma traduction n'est pas la bonne mais j'aimerais savoir comment je
dois comprendre cette ligne de code.
Merci de m'éclairer

[vero12]

Voilà mon fichier

Merci d'avance

PS : j'ai changer le and en Or

Véro

[ouskel'n'or]

En effet tu as une erreur quand la cellule présente une erreur (#DIV/0!)
Modifie toutes tes formules de la colonne afin qu'elles ne provoquent pas cette erreur. Par exemple :

Code :

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

=SI(F323<>0;+(G323-F323)/F323;"")

Pour avoir les N° de ligne, tu peux mettre

Code :

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

1
2
3
4
5
On error resume next
    For Each Dt In Ws.Range("I5:I1000")
        if err<> 0 then MsgBox Dt.Row
        '...
        err.clear

A+

[vero12]

Bonjour

Merci de vos réponses.

Evidemment c'est moi qui suis trop nulle. Maintenant ça marche. Merci vraiment, mes chefs seront content

Véro