Msbox sur évènement

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:

---

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

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

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

Citation:

---

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

---

Code:

---

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

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

Mets

Code:

---

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

---

A+

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

Incompabilité de type

Merci

Véro

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

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

Merci d'avance

Véro

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 ?

Voilà mon fichier

Merci

Véro

ç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

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

Je vous enverrez le fichier dans 5 minutes

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

Voilà mon fichier

Merci d'avance

PS : j'ai changer le and en Or

Véro

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:

---

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

---

Pour avoir les N° de ligne, tu peux mettre

Code:

---

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+

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