Impressions multiples

Résolu/Fermé
gigipong Messages postés 110 Date d'inscription samedi 27 avril 2013 Statut Membre Dernière intervention 18 décembre 2022 - Modifié le 23 déc. 2021 à 11:58
gigipong Messages postés 110 Date d'inscription samedi 27 avril 2013 Statut Membre Dernière intervention 18 décembre 2022 - 25 déc. 2021 à 23:12
Bonjour,

Sur l'exemple joint, j'ai en feuille 1 une liste nominative (réduite exprès pour l'exemple).
En feuille 2, je voudrais imprimer tous les noms de la liste page par page automatiquement en faisant changer le numéro qui apparaît en case B5.
Comme il y a 7 lignes, je devais avoir 7 pages différentes.

https://www.cjoint.com/c/KLxkVfzEmqC

J'espère m'avoir fait comprendre et je souhaite que quelqu'un puisse m'aider.
Cordialement.

5 réponses

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
25 déc. 2021 à 19:29
Bonjour

La macro doit être placée dans un module de l'éditeur VBA
Ensuite depuis la page à imprimer lancer la macro (Onglet Developpeur - Macro -. ..)
Il est alors demandé à l'utilisateur le n° de la dernière feuille à imprimer, si tu réponds par exemple 5, la valeur de la cellule C2 doit varier de 1 à 5, les données doivent changer en fonction des formules dans ta feuille et chaque fois la feuille est imprimée, tu auras donc dans cet exemples 5 feuilles imprimées
1
gigipong Messages postés 110 Date d'inscription samedi 27 avril 2013 Statut Membre Dernière intervention 18 décembre 2022 1
25 déc. 2021 à 23:12
Bonsoir,
C'est excellent, je viens de tester et je te remercie pour les explications.
ça fonctionne très bien.
Très cordialement.
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
23 déc. 2021 à 15:59
Bonjour

Avec une macro :
https://www.cjoint.com/c/KLxo3ET080g

Depuis la feuille 2 lancer la macro avec le raccourci clavier Ctrl + i
Pour l'instant pour test la macro n'imprime pas mais lance un aperçu avant impression pour test
Pour modifier la macro pour imprimer ouvrir l'éditeur VBA (Alt + F11) - aller dans Module 1 et suivre les indications données dans les commentaires

Cdlmnt
Via

0
gigipong Messages postés 110 Date d'inscription samedi 27 avril 2013 Statut Membre Dernière intervention 18 décembre 2022 1
Modifié le 23 déc. 2021 à 16:30
Bonjour et merci pour la réponse.
C'est presque ce que je voulais.
Explication : en simplifiant mon exemple, je sous-entendais plusieurs cellules formant une page complète (en réalité de A1 à E28 et la cellule à incrémenter est C2).
Je suis désolé si j'ai raccourci mes explications, je pensais pouvoir utiliser ce que je recevrais et l'adapter.
Autre point, il faudrait que les impressions se fassent toutes sans intervention selon un nombre défini en commençant à 1 bien sûr et terminant à … nombre à définir.
Mais en tout cas, ce que j'ai reçu fonctionne très bien.
Cordialement
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
23 déc. 2021 à 17:36
Pour avoir une aide efficace il faut fournir un exemple réel de ton fichier (avec des noms bidons si nécessaire) et de sa structure et on verra pour une macro adéquate
0
gigipong Messages postés 110 Date d'inscription samedi 27 avril 2013 Statut Membre Dernière intervention 18 décembre 2022 1
23 déc. 2021 à 23:02
Les pages que je veux imprimer rassemblent des informations récupérées avec la fonction "recherche" depuis plusieurs onglets, et chaque onglet contient beaucoup d'informations.
La liste concernée dépasse les 130 entrées (d'où 130 tirages à incrémenter).
C'est très difficile de faire un fichier qui ressemblerait mais sans les données réelles.
Si mes explications sont insuffisantes, je m'orienterai vers un travail au coup par coup.
Et je ne remercierai jamais assez les gens qui peuvent m'aider.
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
23 déc. 2021 à 23:41
Ce que je ne comprend pas c'est si tu as 130 pages déjà remplies avec ta fonction RECHERCHE et que tu veux imprimer ces 130 pages ou si tu as une seule page dans laquelle en fonction du n° en C2 qui change les infos (par des formules RECHERCHE ?) changent aussi et que tu veux imprimer cette page 130 fois selon les 130 changements ou si c'est encore autre chose ?

0
gigipong Messages postés 110 Date d'inscription samedi 27 avril 2013 Statut Membre Dernière intervention 18 décembre 2022 1
24 déc. 2021 à 11:15
Je n'ai qu'une seule page où toutes les infos sont récupérées sur plusieurs onglets grâce au numéro qui change en C2.
Et c'est ce numéro que je voudrais incrémenter automatiquement et lancer les impressions également automatiquement en commençant par 1 en C2.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
24 déc. 2021 à 14:05
Re,

Dans ce cas là c'est même plus simple, il suffit de demander à l'utilisateur le dernier n° à imprimer, de faire varier C2 de 1 à ce dernier n° en imprimant à chaque fois :
Sub imprime()
nl = InputBox("Indiquer le dernier n° à imprimer")
For n = 1 To nl
ActiveSheet.Range("C2") = n
ActiveSheet.PrintOut
Next
End Sub

0
gigipong Messages postés 110 Date d'inscription samedi 27 avril 2013 Statut Membre Dernière intervention 18 décembre 2022 1
24 déc. 2021 à 17:40
Merci via55 de ta patience, je ne suis pas chez moi, j'essaierai demain.
Je pense que ça va être bien.
Cordialement
0
gigipong Messages postés 110 Date d'inscription samedi 27 avril 2013 Statut Membre Dernière intervention 18 décembre 2022 1
25 déc. 2021 à 16:54
Bonjour,
J'essaie de comprendre et d'assimiler toutes les solutions proposées pour m'aider dans mes demandes.
Mais je reconnais être limité.
C'est pourquoi j'ai placé la macro dans mon fichier mais je n'arrive pas à imprimer plus que la feuille avec 1 en C2.
Je souhaite avoir encore un peu d'aide pour savoir comment utiliser cette macro.
Cordialement.
0