Problème dans une macro

Bonjour,

j'ai un souci dans une macro, je pense que c'est assez simple.

j'ai le code suivant:

Code:

---

If .Range("I6").Offset(I, -8) > 0 Then

---

sur la cellule I6.offset(i,-8) j ai des nombres >0
toutefois j ai par moment des mots tels que hs ou non identifié .

des que la macro ne voit pas un chiffre, elle bugge.

sauriez vous comment remédier à cela?
et egalement si la cellule ne contient pas un chiffre > 0 alors ne rien faire.

merci pour votre aide,

bien cordialement

Peut être avec une double condition de ce type la:

Code:

---

1 2 3 4 5 6 7 8

If TypeName(.Range("I6").Offset(i, -8).Value) <> "String" Then 'Cas où la cellule n'est pas de type "String" If .Range("I6").Offset(i, -8).Value > 0 Then 'Cas où la valeur est positive Else 'Cas où la valeur n'est pas positive End If End If

---

Perso je prefere tester si c'est numeric que de tester si c'est different d'un string ( car dans l'absolu ca pourrait etre autre chose une date par ex...)

Code:

---

1 2	If isnumeric(.Range("I6").Offset(I, -8)) and (.Range("I6").Offset(I, -8) > 0) Then

---

voila

super merci pour vos réponses.

pour ce qui n est pas numérique, existe t il une fonction ( isnotnumeric?)

Il suffit de rajouter le mot clé "Not":

Code:

---

If Not IsNumeric(.Range("I6").Offset(I, -8)) Then

---

Bonjour,

Citation:

---

Envoyé par bentor22

super merci pour vos réponses.
pour ce qui n est pas numérique, existe t il une fonction ( isnotnumeric?)

---

IsNumeric(Range("E1")) renvoie TRUE ou FALSE