Gestion des erreurs

[SUM]

Bonsoir,

Existe-t-il un moyen pour gérer un type d'erreur "il n'y a pas de données dans A1". En fait ma macro ne s'exécute pas si la cellule A1 est vide. Existe-il une solution pour dire s' il n'y a pas de données dans A1 de la feuille 1 alors passe au traitement des données dans la feuille 2 du même classeur?

feuil1.select
Code vba....
si pas de données alors
feuil2.select
code vba.....
et ainsi de suite

Merci d'avance pour votre aide
Bonne soirée

 

[Hippolite]

Re : Gestion des erreurs

Bonsoir,
qqchose comme

If Range("A1") = "" Then
Textbox "il n'y a pas de données dans A1"
Else
ton code
End If

A+

ajout
je suppose que tu es dans une boucle sur les feuilles

 

[Gorfael]

Re : Gestion des erreurs

Salut SUM et le forum
Rappel : pas de télépathe, ni de devin sur ce site, et comme t'es devant ton écran tu masque !

Dim F as Worksheet
for each F in ThisWorkBook.Sheets
         with F
                 if .[A1]<>" then
                         Code de traitement
                         exit for
                 end if
         end with
next F

Un code dans ce style. Ou autre : ça dépend de ce que doit réellement faire ton code inconnu. Si c'est des code différent en fonction de la feuille, un select case, avec variable booléenne serait peut-être préférable.
A+

 

[SUM]

Re : Gestion des erreurs

Bonsoir,

Merci pour votre aide. Les deux solutions fonctionnent parfaitement

Bonne soirée