Créer une boucle

Bonjour à tous,

Je débute dans les macro et je cale depuis un bon moment...

J'ai réussi à enregistrer une macro qui fonctionne bien, elle me permet de prendre une valeur dans une cellule d'un premier onglet, la coller dans un autre onglet puis imprimer ce dernier onglet.

Malheureusement, je dois répéter cette intervention parfois plus de 100 fois, ce qui m'oblige à lancer sans cesse la macro...

J'aimerai l'automatiser en intégrant une boucle de type "next counter loop" si j'ai bien compris afin de répéter l'opération de la ligne x à y mais je ne comprends pas comment l'intégrer dans ma macro; à chaque modification tout plante...

Je vous joint la macro plus bas si quelqu'un peu m'aiguiller merci à vous!

Vincent.

Sub Macro1()

'

' Macro1 Macro

'

'

Selection.Copy

Sheets("3EN1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Sheets("Base de données").Select

ActiveCell.Offset(1, 0).Select

End Sub

Bonjour,

Tu peux certainement adapter un truc comme ça :

Sub Macro2()
x = 10
y = 100
  For i = x To y
    ActiveSheet.Rows(CStr(i) & ":" & CStr(i)).Select
    Call Macro1
  Next i
End Sub

Merci pour ton aide, j'ai remplacé ActiveSheet.Rows(CStr(i) & ":" & CStr(i)).Select par les cellules concernées et ça fonctionne parfaitement!

A+

Vincent.