Sub imprim()
Application.ScreenUpdating = False [COLOR=darkgreen]'bloque le rafraichissement de l'écran[/COLOR]
Dim i As Byte, j As Byte 'définition des variables i et j
With Sheets("Feuil1") [COLOR=darkgreen]' Travaille sur la feuille 1, ouverture par WITH, fermeture par Een With[/COLOR]
For j = 1 To 2 [COLOR=darkgreen]' de j = 1 à 2, soit pour zone d'iompression 1, et ensuite zone d'impression 2[/COLOR]
.PageSetup.PrintArea = "Page" & j 'définit [COLOR=darkgreen]la zone d'impression j (donc Page1, puis Page2)[/COLOR]
For i = 1 To 5 [COLOR=darkgreen]'i = 1 à 5, soit du 1er au dernier choix de la liste déroulante[/COLOR]
.Range("F3") = i [COLOR=darkgreen]'on impose la valeur de la liste déroulante à i[/COLOR]
[COLOR=darkgreen] ' donc successisvement 1, puis 2, 3 4 et enfin 5[/COLOR]
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" [COLOR=darkgreen]'imprime[/COLOR]
Next i [COLOR=darkgreen]'passe au choix suivant de la liste déroulante[/COLOR]
Next j [COLOR=darkgreen]' passe à la deuxième zone d'impression[/COLOR]
End With
Application.ScreenUpdating = True [COLOR=darkgreen]' rétablit le rafraichissement de l'écran[/COLOR]
End Sub