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
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.
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
Un nouveau coup de main me serait donc bien utile.
D'avance, merci.