Vba excel2000 : CVErr(xlErrNA) etcellule vide
Résolu
luneafr
Messages postés
2
Statut
Membre
-
luneafr Messages postés 2 Statut Membre -
luneafr Messages postés 2 Statut Membre -
Bonjour,
le but est de comparer le contenu de 2 cellules avec :
If macell1.Value <> _
macell2.Value Then
le problème se présente lorsque le contenu de la cellule est = #N/A
j'y ai pallié avec le code suivant :
If macell1.Value = CVErr(xlErrNA) Then macell1.Value = "non trouvé" placé avant la comparaison ci-dessus.
Mais lorsque le code "CVErr(xlErrNA)" passe sur un cellule vide j'ai l'erreur suivante :
"incompatibilité de type : erreur d'exécution 13"
Je n'ai rien trouvé ni dans l'aide excel ni sur le net pour résoudre mon pb.
Quelqu'n(e) pourrait-il elle m'aider?
Merci d'avance.
le but est de comparer le contenu de 2 cellules avec :
If macell1.Value <> _
macell2.Value Then
le problème se présente lorsque le contenu de la cellule est = #N/A
j'y ai pallié avec le code suivant :
If macell1.Value = CVErr(xlErrNA) Then macell1.Value = "non trouvé" placé avant la comparaison ci-dessus.
Mais lorsque le code "CVErr(xlErrNA)" passe sur un cellule vide j'ai l'erreur suivante :
"incompatibilité de type : erreur d'exécution 13"
Je n'ai rien trouvé ni dans l'aide excel ni sur le net pour résoudre mon pb.
Quelqu'n(e) pourrait-il elle m'aider?
Merci d'avance.
1 réponse
rebonjour,
voici ce que j'ai fait et qui fonctionne au cas où ça pourrait servir à d'autre :
je remplace :
If macell1.Value = CVErr(xlErrNA) Then macell1.Value = "non trouvé"
par
If WorksheetFunction.IsNA(macellule) Then macellule.Value = "non trouvé"
End If
et ensuite le code
If macell1.Value <> _
macell2.Value Then
fonctionne parfaitement
Youpi merci internet.
voici ce que j'ai fait et qui fonctionne au cas où ça pourrait servir à d'autre :
je remplace :
If macell1.Value = CVErr(xlErrNA) Then macell1.Value = "non trouvé"
par
If WorksheetFunction.IsNA(macellule) Then macellule.Value = "non trouvé"
End If
et ensuite le code
If macell1.Value <> _
macell2.Value Then
fonctionne parfaitement
Youpi merci internet.
