Recuperer un code d erreur dans une cellule

Signaler
Messages postés
20
Date d'inscription
dimanche 19 novembre 2000
Statut
Membre
Dernière intervention
20 février 2006
-
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
-
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

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
28
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