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