Discussion :

[bentor22]

Bonjour,

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

j'ai le code suivant:

Code :

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

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

[Invité]

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

Code :

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

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

[Ashireon]

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 :

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

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

voila

[bentor22]

super merci pour vos réponses.

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

[Invité]

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

Code :

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

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

[Philippe Tulliez]

Bonjour,

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