Bouton impression de plusieurs feuilles

[mcz29]

Bonjour,

J'ai créé (ave l'aide du forum) une macro qui imprime différents graphiques intéractifs. Comme mon fichier a évolué je souhaite modifier cette macro.

La voici (après 1 modif de ma part)

Sub imprim()

t = Sheets("don").Range("b2").Value

For t = 3 To 10

With Sheets("don").Range("b2").Value = t + 1
End With

With Sheets("p_garde")
'.PrintOut
End With

With Sheets("Feuil1")
'.PrintOut
End With

With Sheets("Feuil2")
'.PrintOut
End With

Next t

End Sub

Mon souci, la macro a été conçue pour une feuille de graphiques mais j'ai maintenant 6 feuilles et ma variable est sur la cellule b2 de la feuille '("don"). La cellule ne s'incrémente pas.

Merci

 

[mcz29]

Re : Bouton impression de plusieurs feuilles

re,

j'ai trouvé une solution :

j'ai mis à la place de

With Sheets("don").Range("b2").Value = t + 1
End With

Sheets("don").Range("b2").Value = t + 1

et çà marche

Mais si vous pouvez simplifier cette macro, je prends !!

merci