Problème de récupération de données dans une boucleRésolu

Question

Bonjour tout le monde. Voilà le problème sur lequel j'ai besoin d'aide : Je cherche à récupérer des données de plusieurs feuilles sur une seule avec VB6. A l'aide d'une boucle for je précise que je veux faire cette étape le nombre de fois équivalent à mon nombre de feuille (moins celle sur laquelle je recopie mes données). Dans ces feuilles, je ne récupère que 3 variables à chaque fois. Le problème c'est que au lieu de recopier pour ma deuxième feuille à la quatrième colonne, il me le recopie sur la deuxième colonne c'est à dire sur les données de ma premire feuille. Ce que je voudrait c'est que pour chaque feuille il me copie les données n'ont pas sur la colonne qui suit la première de la précédente feuille mais sur la quatrième colonne qui suit la première colonne de la feuille précédente. Je ne sais pas si j'ai été assez clair. Voici mon programme : Dim NbFeuil As Integer NbFeuil = Sheets.Count For cpt = 1 To (NbFeuil - 1) For I = 3 To 65536 If Sheets("Courbe" & cpt).Cells(I, 1) <> "" Then Sheets("Tous").Cells(I + 1, cpt) = Sheets("Courbe" & cpt).Cells(I, 1) End If If Sheets("Courbe" & cpt).Cells(I, 7) <> "" Then Sheets("Tous").Cells(I + 1, 1 + cpt) = Sheets("Courbe" & cpt).Cells(I, 7) End If If Sheets("Courbe" & cpt).Cells(I, 10) <> "" Then Sheets("Tous").Cells(I + 1, 2 + cpt) = Sheets("Courbe" & cpt).Cells(I, 10) End If If Sheets("Courbe" & cpt).Cells(I + 2, 1) = "" Then Exit For End If Next I Next cpt

linasteph · Accepted Answer

Moi j'essaierai bien un truc dans ce genre là Dim NbFeuil As Integer NbFeuil = Sheets.Count For cpt = 1 To NbFeuil For I = 3 To 65536 If Sheets("Courbe" & cpt).Cells(I, 1) <> "" Then Sheets("Tous").Cells(I + 1, 1 + ((cpt - 1) * NbFeuil)) = Sheets("Courbe" & cpt).Cells(I, 1) End If If Sheets("Courbe" & cpt).Cells(I, 7) <> "" Then Sheets("Tous").Cells(I + 1, 2 + ((cpt - 1) * NbFeuil)) = Sheets("Courbe" & cpt).Cells(I, 7) End If If Sheets("Courbe" & cpt).Cells(I, 10) <> "" Then Sheets("Tous").Cells(I + 1, 3 + ((cpt - 1) * NbFeuil)) = Sheets("Courbe" & cpt).Cells(I, 10) End If If Sheets("Courbe" & cpt).Cells(I + 2, 1) = "" Then Exit For End If Next I Next cpt

crenaud76 · Answer

Donne un exemple avec des nom de feuille et des nom de colonnes, ce sera plus simple ...

Emakhtila · Answer

Merci beaucoup linasteph. Cela m'a bien débloqué et permis d'avancer.

Problème de récupération de données dans une boucle

3 réponses

Discussions similaires