[résolu] Interception de l'erreur 1004 si le résultat de SpecialCells(...) est vide.

[mapomme]

Bonjour le forum,

Je dois être un peu fatigué car je ne vois pas (ou plus) comment intercepter l'erreur 1004 quand j'utilise "SpecialCells(xlCellTypeBlanks)" par exemple et qu'aucune cellule ne répond à la condition.

Si ce phénomène ne se produit pas chez vous, pouvez-vous me donner une piste (sans doute triviale et évidente) car pour l'instant je sèche lamentablement et presque honteusement 😱

D'avance, merci 🙄

Le code:

Sub Sans_rien()
'une erreur 1004 se produit
Dim Vides As Range
    Application.DisplayAlerts = False
    Set Vides = Nothing
    Set Vides = Range("A1:A10").SpecialCells(xlCellTypeBlanks)
End Sub

Sub Avec__Resume_Next()
'une erreur 1004 se produit
Dim Vides As Range
    Application.DisplayAlerts = False
    On Error Resume Next
    Set Vides = Nothing
    Set Vides = Range("A1:A10").SpecialCells(xlCellTypeBlanks)
End Sub

Sub Avec_Goto()
'une erreur 1004 se produit
Dim Vides As Range
    Application.DisplayAlerts = False
    On Error GoTo Err1
    Set Vides = Nothing
    Set Vides = Range("A1:A10").SpecialCells(xlCellTypeBlanks)
    Exit Sub
    
Err1:
MsgBox Err.Description
End Sub

 

[mapomme]

Re : Interception de l'erreur 1004 si le résultat de SpecialCells(...) est vide.

Bonsoir le forum,

Bon! Ne cherchez plus!

J'ai raison d'avoir honte et de vouloir rentrer dans un trou de souris pour me cacher de la raillerie des xldiens 😱

En fait, l'option "Arrêt sur toutes les erreurs" était cochée dans les options de VBA. Comment n'y avais je pas pensé?
J'ai re-coché "Arrêt sur les erreurs non gérées" et tout est rentré dans l'ordre.

 

[Roland_M]

Re : Interception de l'erreur 1004 si le résultat de SpecialCells(...) est vide.

bonsoir,

et puis c'est normal puisqu'il n'y a pas de cellule vide !
c'est le traitement d'erreurs qui permet justement de l'intercepter.
il suffit d'effacer une seule cellule et il n'y a plus d'erreur.
si erreur on peut en conclure que le champ est incomplet.

 

[mapomme]

Re : Interception de l'erreur 1004 si le résultat de SpecialCells(...) est vide.

Bonsoir Roland_M,

c'est le traitement d'erreurs qui permet justement de l'intercepter.

Tu as raison et puisque je n'interceptais pas l'erreur j'aurais dû penser à aller voir tout de suite du côté des options de VBA. Option que je ne me souviens pas avoir modifiée mais, comme il n'y a pas de génération spontanée, j'ai bien du le faire à un moment donné.

Merci de ta réponse et de t'être intéressé à la question 🙂 et bonne soirée!