Imprimer 8 fois la même feuille en changeant la valeur de G11

Résolu
adil.e Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
adil.e Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour a tous
C'est mon premier message et je vous félicite car j'ai souvent utiliser vos services!
Je veut programmer ma première macro
la cellule G11 peut est un indice qui peut prendre plusieurs valeurs
dans le cas présent de 1 à 8
pour chaque valeur de G11 je veut imprimer la page courante soit 8 pages en tout
merci pour votre aide



A voir également:

2 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 725
 
Bonjour,

Comme ceci cela devrait fonctionner :

Sub imprim()
Dim nbi As Integer
For nbi = 1 To 8
    [G11].Value = nbi
    Calculate
    ActiveWindow.SelectedSheets.PrintOut
Next nbi
End Sub
0
adil.e Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci gbinforme
0