cs_beub
Messages postés20Date d'inscriptiondimanche 19 novembre 2000StatutMembreDernière intervention20 février 2006
-
21 juil. 2005 à 06:36
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 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 !!!
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 200831 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