Detecter erreur

[noir_desir]

Bonjour

Je voudrai savoir comme détecté une case en erreur type : #VALEUR!,sinon le programme plante lorsque il essaye d'ouvrir ce classeur inexistant.

Dans mon programme j'ai essayé de mettre cette structure mais cela ne fonctionne pas :

With Range("A1:A" & Range("A65536").End(xlUp).Row)
                Set c = .Find("#VALEUR!", LookIn:=xlValues, lookat:=xlPart)
                If Not c Is Nothing Then
                    firstAddress = c.Address
                    Do
                    lignes.Add c.Row
                      Set c = .FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> firstAddress
                End If
            End With
            For n = lignes.Count To 1 Step -1
             Rows(lignes(n)).Delete
            Next n

Il ne trouve pas mon erreur

 

[Staple1600]

Re : Detecter erreur

Bonjour


En utilisant

Application.WorksheetFunction.IsError


peut-etre ?

 

[noir_desir]

Re : Detecter erreur

tu as des précision sur cette fonction j'en trouve pas sur excel il me met impossible de trouver la page

 

[Pierrot93]

Re : Detecter erreur

Bonjour NoirDesir, Staple

regarde le code ci dessous, test la cellule c3 :

If IsError(Range("C3").Value) Then MsgBox "erreur dans cellule"

bon après midi
@+

 

[Staple1600]

Re : Detecter erreur

Re


j'ai été voir dans l'aide VBA

liste des fonctions utilisables en VBA

cela correspond à la formule ESTERREUR

 

[noir_desir]

Re : Detecter erreur

Merci beaucoup
Ca marche bien .