Discussion :

[Godzestla]

Bonjour,

j'essaie de tester si une cellule vaut #N/A mais mon code bloque sur l'instruction en gras quand la cellule a un contenu valide:

Code :

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

1
2
3
4
5
6
7
         Detail = .Range("K" & Idx).Value
         If Detail = CVErr(xlErrNA) Then
            MsgBox "Error at Line " & Idx & " for " & Name & " / Detail Sheet at K" & Idx & " invalid", vbCritical
            Details_Error = True
            Exit For
         End If

Dans mon cas,

• Detail de type Variant = "Administration"
  CVErr(XLErrNA) = Error 2042

L'erreur est Runtime Error 13 / type Mismatch

merci pour votre aide

[wilfried_42]

bonjour

essaye ca

Code :

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

1
2
        Detail = .Range("K" & Idx).Value
         If Detail = "#N/A" Then

[Godzestla]

Bonjour,

cela marche parfaitement pour les cellules valides mais le code calle si la cellule vaut #N/A sur l'instruction :

Code :

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

1
2
 
If Detail = "#N/A" Then

Detail vaut alors : Error 2042, ce qui correspond à CVErr(xlErrNA)

L'erreur est Runtime Error 13 / type Mismatch

[mayekeul]

bonjour,

euh juste en passant, je me demandais et si à la place de

Code :

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

Detail = .Range("K" & Idx).Value

on met ceci?

Code :

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

Detail = .Range("K" & Idx).Text

il se passe quoi?

[wilfried_42]

re:

franchement je n'en sais rien, je n'utilise jamais .text, mais j'imagime que la conversion en format text est faite automatiquement (pour les numerique)

edit:

erreur 13 est normal, tu ne peux efectuer un test en une variable Alphabétique et numerique sans avoir un conflit de type

[mayekeul]

la proriété ".Text" est censée te renvoyer ce qui est affiché dans la cellule.

Donc si tu as une variable texte représentant "#N/A" tu devrais pouvoir mieux tester non?