Bonjour,
J'aurai besoin de votre aide sur VBA. Je voudrais remplir l'onglet Bilan automatiquement (j'ai rentré manuellement les résultats attendus pour les trois premières colonnes pour que vous compreniez mieux ce que je souhaite faire).
Je chercher à copier les cellules de l'onglet détail jusqu'à tomber sur une valeur qui vaut 0 dans la colonne C puis reprendre dès qu'on change de référence.
J'ai donc essayé de faire une boucle avec DO WHILE mais elle ne fonctionne pas dès le début, notamment à cause de For sans Next mais même en essayant autre chose que For, je n'arrive pas à présenter mes plages pour mes variables.
Auriez-vous des indications à me donner ?
D'avance, merci.
J'aurai besoin de votre aide sur VBA. Je voudrais remplir l'onglet Bilan automatiquement (j'ai rentré manuellement les résultats attendus pour les trois premières colonnes pour que vous compreniez mieux ce que je souhaite faire).
Je chercher à copier les cellules de l'onglet détail jusqu'à tomber sur une valeur qui vaut 0 dans la colonne C puis reprendre dès qu'on change de référence.
J'ai donc essayé de faire une boucle avec DO WHILE mais elle ne fonctionne pas dès le début, notamment à cause de For sans Next mais même en essayant autre chose que For, je n'arrive pas à présenter mes plages pour mes variables.
VB:
Sub Réf()
Dim lv As Integer 'n° ligne vide bilan
For a = 33 To 51 Step 1 'n° ligne des intervalles
For b = 52 To 70 Step 1
For c = 71 To 89 Step 1
For d = 90 To 108 Step 1
lv = Worksheets("Bilan").Cells(Rows.Count, 1).End(xlUp).Row + 1
Do
Worksheets("Détail").Range(Cells(a, 1)).Copy Worksheets("Bilan").Range(Cells(lv, 1))
Loop While Worksheets("Détail").Range(Cells(a, 3)).Value <> 0 'Adapter le 3 en fonction du nombre de cellules de la ligne à copier
' réappliquer la formule pour b, c, d ...
End SubAuriez-vous des indications à me donner ?
D'avance, merci.
