Arrêt de la boucle quand feuille inexistante

Question

Bonjour Je ne fais pas depuis bien longtemps du VB et la je bloque complètement. Voici mon problème : Je travaille sur un programme qui me permet de récupérer dans une feuille (A) les données existantes dans d'autres feuilles (B), ces données étant calculées à partir encore d'autres feuilles (C). Chaque feuille B correspond à un groupe. Ces feuilles ont toutes le même nom (Courbe) sauf qu'à la fin il y a un chiffre pour les différencier. Au départ, je demande combien j'ai de groupes. Ce que je voudrais c'est que mon programme arrête de récupérer mes données quand il n'y a plus de feuille B. Voila ce que j'ai fait pour l'instant mais ça ne marche pas : For J = 1 To Sheets("Courbe" & NbGpe) For I = 3 To 65536 If Sheets("Courbe" & J).Cells(I, 1) <> "" Then Sheets("Tous").Cells(I + 1, J) = Sheets("Courbe" & J).Cells(I, 1) End If If Sheets("Courbe" & J).Cells(I, 7) <> "" Then Sheets("Tous").Cells(I + 1, 1 + J) = Sheets("Courbe" & J).Cells(I, 7) End If If Sheets("Courbe" & J).Cells(I, 10) <> "" Then Sheets("Tous").Cells(I + 1, 2 + J) = Sheets("Courbe" & J).Cells(I, 10) End If If Sheets("Courbe" & J).Cells(I + 2, 1) = "" Then Exit For End If Next I If Not Sheets("Courbe" & J) Then Exit For Next J Je ne sais pas si j'ai été assez claire. Merci d'avance.

forum_ma · Answer

Je ne sais pas en quel version de VB tu es, mais j'imagine que lorsque la feuille n'existe pas, le programme envoie une erreur, donc si tu es en VB.net tu devrais utiliser un Try ... Catch et si tu est en VB6 utilise un on error go to ...

J'espere que cela a pu t'aidé!!

Polack77 · Answer

Si je comprends
bien ton probl&#232;me est de stopper ta boucle.
Moi je le ferait plutot comme
&#231;a :



For cpt = 1 to Sheets.count



            If instr(1,"sheets(cpt).name","Courbe")
then



                        Blablabla&#133;



            End if



next




 D'oh! Nuts!
 Mmmmm...
 DONUTS

Emakhtila · Answer

Merci pour votre aide. Ca ne voulait pas marcher exactement mais je m'en suis inspirer et la &#231;a marche.

Polack77 · Answer

Peut tu m&#234;tre ta solution et la valier (pour d'autre qui pourais avoir le m&#234;me probl&#233;me)
Merci
Ravie d'avoir pue t'aider

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Arrêt de la boucle quand feuille inexistante

4 réponses

Discussions similaires