Discussion :

[Antipod]

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 :

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

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 :

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

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...)

[mayekeul]

bonjour,

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

Code :

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

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

[Yolak]

Bonjour,

Pour rester dans ton résonnement, tu peux utiliser

Code :

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

 LLL = Selection.Text

au lieu de

Code :

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

 LLL = Selection.Value

Et si je peux me permettre un conseil:
Ecris :

Code :

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

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!

[Antipod]

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 :

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

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...)

[Yolak]

Code :

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

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!
Enfin, ça c'est mon avis, il est contestable...

Ravi d'avoir pu t'aider!