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