Recuperer un code d erreur dans une cellule

Question

Sujet Précédent Sujet Suivant

Recuperer un code d erreur dans une cellule

Signaler

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 !!!

A voir également:

Recuperer un code d erreur dans une cellule
Récupération du code d'erreur d'un cfftp ✓ - Forum - ColdFusion
Récupérer le code couleur rgb d'une cellule excel - Forum - VB.NET
Récupérer le code d'une erreur ✓ - Forum - Delphi / Pascal
Visual Basic / VB.NET : Recuperer le code rgb d'un pixel d'une image grace a l'api getpixel - CodeS - Guide
Récupération du code html d'une url via jmail. - Codes sources - ASP / ASP.NET (Astuces)

1 réponse

Posez votre question

michelxld · Answer 1 · 2005-07-22T21:24:49+0200

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

Votre réponse