[VBA Excel] Récuperation de l'erreur dans une cellule lors de sa lecture

Version imprimable

19/03/2008, 15h44
EvaristeGaloisBis

[VBA Excel] Récuperation de l'erreur dans une cellule lors de sa lecture

Bonjour,

Mon probleme est fort simple, donc un peu tatillon vu mon maigre niveau en VBA.
Je dois lire des cellules dans un fichier Excel. Ces cellules contiennent des formules et parfois il y a des erreurs. Il apparait donc un message d'erreur dans la cellule par exemple : "#N/A", "#VALEUR" etc

Or dans mon code, pour l'objet Cellules je ne trouve rien qui permet de rapporter l'erreur. Je n'ai pas envie de faire un :

Code:

on error goto Ici

.

Est ce que quelqu'un saurait comment s'y prendre ?
19/03/2008, 17h07
Gorfael

Salut EvaristeGaloisBis et le forum
Comme d'habitude, une incompréhension totale de ce que tu veux faire
Peut-être Iserror(cellule), mais le chinois que tu emploie et incompatible avec le japonais que je comprends :mouarf:
A+
19/03/2008, 17h20
EvaristeGaloisBis

Merci c'est ce que je cherchais mais en prime j'aurai aimé avoir le nom de l'erreur... Est ce possible ?

Citation:

Envoyé par EvaristeGaloisBis

Merci c'est ce que je cherchais mais en prime j'aurai aimé avoir le nom de l'erreur... Est ce possible ?

Salut
ça va commencer à nêtre cher :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
   Select Case range("A1")
        Case CVErr(xlErrDiv0)
            MsgBox "#DIV/0! error"
        Case CVErr(xlErrNA)
            MsgBox "#N/A error"
        Case CVErr(xlErrName)
            MsgBox "#NAME? error"
        Case CVErr(xlErrNull)
            MsgBox "#NULL! error"
        Case CVErr(xlErrNum)
            MsgBox "#NUM! error"
        Case CVErr(xlErrRef)
            MsgBox "#REF! error"
        Case CVErr(xlErrValue)
            MsgBox "#VALUE! error"
        Case Else
            MsgBox "This should never happen!!"
    End Select

C'est un exemple pris dans l'aide
A+