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

Insérer une boucle

Victor21

XLDnaute Barbatruc
Bonjour à tous.

Je souhaite coller dans ShtA (dans les 3 cellules B18, B37 et B56) les 3 premières données récupérées en colonne B de ShtM chaque fois que la ligne c de la colonne BR est >0, imprimer ShtA, et recommencer jusqu'en BR38 de ShtM.

Le code suivant parcourt BR7:BR38 de ShtM, copie et colle successivement les valeurs correspondantes de B7:B38 en B18 de ShtA

Code:
For Each c In Sheets(ShtM).Range("BR7:BR38")
        If c.Value > 0 Then
            c.Offset(columnOffset:=-68).Copy
            Sheets(ShtA).Activate
            Sheets(ShtA).Range("B18").PasteSpecial Paste:=xlPasteValues             Application.CutCopyMode = False
        End If
    Next c

    ActiveWindow.SelectedSheets.PrintPreview    'PrintOut Copies:=1

    End
Je comprends bien qu'il faut ajouter une boucle, et suppose qu'il me faut ajouter un compteur, mais ne sais pas faire.

Un nouveau coup de main me serait donc bien utile.

D'avance, merci.
 

Discussions similaires

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