recuperer un code d erreur dans une cellule

Question

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&#233; mais j arrive pas a trouver la synthaxe correcte  

Merci par avance pour votre aide et bonne journ&#233;e !!!

michelxld · Answer

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

Recuperer un code d erreur dans une cellule

1 réponse