Userform - Boucle

[jbdubreuil]

Bonjour le forum,

J'ai un userform tres simple.
Lorsque l'on clic sur le bouton, la macro lance une impression de plusieures pages en fonction des valeurs contenues dans
"a2", "a3", "a4", "a5"... "a18"

n'y aurait il pas un moyen d'utiliser une boucle plutot que de re-ecrire 17 fois le code en remplacant à chaque fois: ai par ai+1?

J'ai un debut de code mais je ne suis pas à l'aise avec les boucles.
Merci par avance,
Je vais de mon cote continuer à bidouiller le code 🙂

Jb

**********************************************************
Dim Plage, cell
Dim I as long
Set Plage= sheets("Para").Range("a2",sheets("Para").range("a3").end(Xldown))
I=0

For each Cel in Plage
...

End if

Next
**********************************************************

Donc dans les "..." il faudrait combiner avec le code suivant.


Private Sub CommandButton1_Click()

Sheet2.Visible = True
Sheet2.Select
Range("G2").Select
Range("G2") = ComboBox1


Sheet2.Select
Range("a2").Select
Selection.Copy
Range("M2").Select
ActiveSheet.Paste
Calculate
Application.CutCopyMode = False
Calculate
Sheet3.Select
Calculate
Application.ActivePrinter = Sheets("para").Range("G3").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
Sheets("para").Range("G3").Value, Collate:=True
...

Sheet2.Select
ActiveWindow.SelectedSheets.Visible = False

Sheet3.Select
Range("a2").Select

Unload UserForm1
Unload Me

End Sub