Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier cellules avec condition

Magg

XLDnaute Junior
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.

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 Sub

Auriez-vous des indications à me donner ?

D'avance, merci.
 

Pièces jointes

  • Copier cellules.xlsm
    96.1 KB · Affichages: 4

fanfan38

XLDnaute Barbatruc
Bonjour
Ci joint ma solution
Je me suis permis de modifier certaine formule.. A toi de voir..
j'ai mis sur une autre feuille les lignes qui étaient cachées sur détails en 22* et plus
A+ François
 

Pièces jointes

  • Copier cellules.xlsm
    115.9 KB · Affichages: 24

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…