Gestion des erreurs

SUM · 22 Février 2011

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 · 22 Février 2011

Re : Gestion des erreurs

Bonsoir,
qqchose comme

Code:

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 · 22 Février 2011

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 !

Code:

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 · 23 Février 2011

Re : Gestion des erreurs

Bonsoir,

Merci pour votre aide. Les deux solutions fonctionnent parfaitement

Bonne soirée

Gestion des erreurs

SUM

XLDnaute Occasionnel

Hippolite

XLDnaute Accro

Gorfael

XLDnaute Barbatruc

SUM

XLDnaute Occasionnel

Discussions similaires

Gestion des erreurs

SUM

XLDnaute Occasionnel

Hippolite

XLDnaute Accro

Gorfael

XLDnaute Barbatruc

SUM

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency