Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets

[juju91]

Bonjour à tous .
Encore besoin de votre aide.

Je souhaiterais imprimer en une ''action'' via une boutons, un nombre de feuilles identiques sur plusieurs onglets du même classeur, si possible en non assemblé.
Exemple :
-Feuille 1 onglet 1 / Feuille 1 onglet 2 /Feuille 1 onglet 3
-Feuille 2 onglet 1 / Feuille 2 onglet 2 /Feuille 2 onglet 3
-Feuille 3 onglet 1 / Feuille 3 onglet 2 /Feuille 3 onglet 3
Etc......

j'ai commencé à créé le code ci-dessous mais il ne fonctionne pas .

Y aurait il une âme charitable qui pourrait m'aiguiller.

Par avance merci

 

[sylvanu]

Bonjour Juju,
"To:=Range("J1")" signifie J1 de la feuille courante, non de la feuille concernée, sinon c'est Sheets("CHAUD").Range("J1")
Ce serait :

Sub Imprime_feuille_chaud()
Application.ScreenUpdating = False
Sheets("CHAUD").PrintOut From:=1, To:=Sheets("CHAUD").Range("J1").Value, Copies:=1
End Sub

Le "Application.ScreenUpdating = False" sert juste à figer l'écran.
ou encore plus simple :

Sub Imprime_feuille_chaud()
Application.ScreenUpdating = False
With Sheets("CHAUD")
    .PrintOut From:=1, To:=.Range("J1").Value, Copies:=1
End With
End Sub

Le "." signifie : utiliser la feuille défini par le With.

 

[Phil69970]

Bonjour à tous

@juju91

D’après ce que j'ai compris je te propose ce fichier pour tout imprimer d'un seul coup

Merci de ton retour

 

[juju91]

Bonjour et merci à tous les deux de vos retours.
Désolé, maïs est il possible de sélectionner le nombre de feuilles à imprimer par onglet via la valeur d'une cellule?
Dans le dossier joint la valeur a prendre en considération se trouve dans E2.
le but étant dans ce cas, d'imprimer les 3 premières feuilles de chaque onglet.

Encore merci pour le temps passé sur ma demande

 

[Phil69970]

@juju91

Je te propose ce fichier pour tout imprimer d'un seul coup

Merci de ton retour

 

[juju91]

Bonjour, désolé pour mon retour très tardif.
Mille excuses .
En fait je souhaiterais imprimer toutes les onglets mais en en imprimant la feuille 1 de chaque onglet puis la feuille deux de tous les onglets puis la feuille 3 de tous les ongles,......etc jusqu'à la feuille correspondant à la valeur de la cellule "E4" de l'onglet "liste machine"
La seconde partie de ma demande n'étant pas la priorité elle peut être subsidiaire .

Encore désolé ..

 

[Phil69970]

@juju91

En fait je souhaiterais imprimer toutes les onglets mais en en imprimant la feuille 1 de chaque onglet

Cela ne veut rien dire et n'a aucun sens et idem pour la suite de ta phrase ....

Mais as tu essayé le fichier tu post #5 et tous les boutons ???

 

[juju91]

J'ai bien essayé le fichier du post #5.
Cela Imprime bien tous les onglets.
Mais en faite je souhaiterais imprimer un nombre de feuille défini par la valeur de la cellule E2.
Si la valeur de la cellule est à 3 il faudrait imprimer uniquement les 3 premières feuilles de chaque onglet.
Pour l'autre partie, désolé de mon explication, que je pensais clair.....
j'aurais souhaiter faire une impression assemblée de la totalité des onglets

 

[TooFatBoy]

Bonjour,

En fait je souhaiterais imprimer toutes les onglets mais en en imprimant la feuille 1 de chaque onglet

Ça veut dire les deux premières pages de chaque feuille du classeur ? 🤔

 

[juju91]

Bonjour,


Ça veut dire les deux premières pages de chaque feuille du classeur ? 🤔

Bonjour,

Dans chaque onglet la mise en page est faite de sorte à avoir plusieurs " feuilles'' ..
Il y a le même nombre de ''feuille'' dans chaque onglet.

 

[juju91]

Bonjour TooFatBoy.
Dans chaque onglet, la mise en page est faite de sorte à ce qu'il ai plusieurs ''feuilles'' à imprimer
Il y a le même nombre de ''feuilles'' dans chaque onglet.

 

[TooFatBoy]

Merci pour ta réponse.


Bonne continuation.

 

[Phil69970]

@juju91

Je te propose ce fichier

Merci de ton retour

 

[Phil69970]

@juju91

Merci de ton retour