Tester une valeur avec #N/A possible

Bonjour,
Sans doute basique mais je débute...

Sur saisie dans une cellule [B2],
Une formule SI me délivre soit une chaine de caractères, soit un #N/A en [B5].
Je voudrais tester si la valeur en [B5] est #N/A, et dans ce cas positionner automatiquement le curseur en [B13], question d'ergonomie...

Voici mon code, suis-je loin du compte ?
Est-ce "#N/A" qui a une fonction particulière, et qui rend ma macro caduque ?

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal target As Range) If Intersect(target, [B2]) Is Nothing Then Exit Sub Dim LLL As String Range("B5").Select LLL = Selection.Value If LLL = "#N/A" Then Range("B13").Select

---

Et suis-je obligé de passer par une variable (ici LLL) ou ce qui suit est sensé fonctionner ?

Code:

---

If Range(B5).Value = "#N/A" Then

---

Parce que là je rame...
Je vous jure, je cherche dans les tutos avant de poster !

Antipod
(d'avance, si je converse à contre-temps, normal je suis aux antipodes...)

bonjour,

une première solution toute simple serait un truc dans le genre

Code:

---

If Application.WorksheetFunction.IsNA(Range("B5")) Then MsgBox "Dites monsieur, il y a une erreur qui n'est pas juste là!"

---

il y a surement d'autre possibilités, c'est la seule qui me viens là tout de suite!

Mayekeul

Bonjour,

Pour rester dans ton résonnement, tu peux utiliser

Code:

---

LLL = Selection.Text

---

au lieu de

Code:

---

LLL = Selection.Value

---

Et si je peux me permettre un conseil:
Ecris :

Code:

---

LLL = Range("B5").Text

---

Plutôt que de faire le Range("B5").Select
Je trouve ça plus propre et en plus c'est plus rapide!

J'ai essayé avec succès la jolie ligne de Mayekeul. Comment trouver ce genre de
"Application.WorksheetFunction.IsNA" quand on débute ???

Plus abordable, le "LLL = Range("B5").Text" de Yolak me plait bien, et je cours voir la doc pour comprendre la différence fonctionnelle entre Value et Text.

Code:

---

If Range("B5").Text = "#N/A" Then...

---

fonctionne aussi, sans avoir à définir la variable (LLL dans mon cas).

Merci à tous les deux.

Antipod
(d'avance, si je converse à contre-temps, normal je suis aux antipodes...)

Citation:

---

Envoyé par Antipod

Code:

---

If Range("B5").Text = "#N/A" Then...

---

fonctionne aussi, sans avoir à définir la variable (LLL dans mon cas).

---

Biensûr mais c'est moins lisible, moins propre et moins rapide! :roll:
Enfin, ça c'est mon avis, il est contestable...

Ravi d'avoir pu t'aider! :ccool: