Recuperer un code d erreur dans une cellule

cs_beub Messages postés 20 Date d'inscription dimanche 19 novembre 2000 Statut Membre Dernière intervention 20 février 2006 - 21 juil. 2005 à 06:36
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 22 juil. 2005 à 21:24
Bonjour a tous !

j ai une petite question : je voudrais savoir comment recuperer le code d erreur ecrit dans une cellule d une feuille EXcel le cas echeant ,afin de pouvoir la traiter

POur schematiser ,ce que je voudrais faire c est quelque chose du stye l :

Si cellule ( x).value = code-erreur-y then
traitement
Fin si

A priori pas tres compliqué mais j arrive pas a trouver la synthaxe correcte

Merci par avance pour votre aide et bonne journée !!!

1 réponse

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 31
22 juil. 2005 à 21:24
bonsoir


tu peux tester



Sub testErreurCellule_E5()
Dim Resultat As String


If WorksheetFunction.IsErr(Range("E5")) = True Then
Select Case Range("E5")
Case CVErr(xlErrDiv0)
Resultat = "#DIV/0!"
Case CVErr(xlErrNA)
Resultat = "#N/A"
Case CVErr(xlErrName)
Resultat = "#NOM?"
Case CVErr(xlErrNull)
Resultat = "#NULL!"
Case CVErr(xlErrNum)
Resultat = "#NOMBRE!"
Case CVErr(xlErrRef)
Resultat = "#REF!"
Case CVErr(xlErrValue)
Resultat = "#VALEUR!"
End Select
MsgBox "Il y a une erreur de type " & Resultat & " dans la cellule A1 ."
End If


End Sub

bonne soiree
michel
0
Rejoignez-nous