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.