Discussion :

[maxval18]

Bonjour,

J'ai un onglet avec la valeur de 25 feuilles A4, l'une sous l'autre sa part de la ligne 1 jusqu'a la ligne 425 et chaque feuille A4 comprend 17 lignes. Et j'aimerai via un code pouvoir imprimer le nombre de feuille A4...choisi?

Je vous remercie de votre aide

Cordialement

Max

[JPierreM]

Bonjour,

Pour imprimer de la feuille 2 à la feuille 4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveWindow.SelectedSheets.PrintOut From:=2, To:=4, Copies:=1, Collate:=True

[maxval18]

Bonjour JPierre

Merci d'avoir répondu mais le probleme il est que chaque fois que l'on imprim ce n'est jamais la même zone, je m'explique si j'ai 10 tables de joueurs chaque table correspond a une feuille A4 soit de la premiere ligne a la 17 éme ligne, multiplier par 10 tables sa fait de la premiere ligne a la 170 éme ligne il serais peut-être bon d'avoir un USF avec le nbre de ligne.......

Bonne journée

Max

[JPierreM]

10 tables donc 10 feuilles

dans le code il faut mettre From:=1, To:=10

[maxval18]

Re,

Oui mais je ne peut pas a chaque fois que je change de nombre de table changer le code.
Aujourdh'ui j'ai 10 tables demain peut être 8 tables apres peut être 12 tables ect...

[JPierreM]

Peut être une piste de recherche par InputBox, peut être par un formulaire ...
Il faut aussi chercher de votre coté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sub sc
depuis = InputBox("A partir de la page n° ")
jusqua = InputBox("Jusqu'à la page n° ")
ActiveWindow.SelectedSheets.PrintOut From:=depuis, To:=jusqua, Copies:=1, Collate:=True
end sub