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

Résolu/Fermé
adil.e Messages postés 2 Date d'inscription samedi 19 janvier 2013 Statut Membre Dernière intervention 19 janvier 2013 - 19 janv. 2013 à 14:56
adil.e Messages postés 2 Date d'inscription samedi 19 janvier 2013 Statut Membre Dernière intervention 19 janvier 2013 - 19 janv. 2013 à 17:43
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
19 janv. 2013 à 16:03
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 samedi 19 janvier 2013 Statut Membre Dernière intervention 19 janvier 2013
19 janv. 2013 à 17:43
Merci gbinforme
0