imprimer 8 fois la même feuille en changeant la valeur de G11 Résolu

Question

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 



Configuration: Windows 8 / Chrome 24.0.1312.52

gbinforme · Answer

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

adil.e · Answer

Merci gbinforme

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

2 réponses

Votre réponse

Discussions similaires