Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Correction macro pour IMPRIMER

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Bud.boundy

XLDnaute Occasionnel
Bonjour,

J'utilise actuellement une macro réalisée grâce à ce forum que j'aimerais modifié. Actuellement, je dirige l'impression vers le nom de feuille indiquée en C6. Puis j'envoie succéssivement et tour à tour les critères remplis dans la plage de cellule A6:A25 vers la cellule G5 de la feuille indiquée...
Comment pourrais je faire pour envoyée de nouvelles données correspondant à A6:A25 contenues en B6:B25 dans la cellule B1 de la feuille indiquée...

MERCI à tous
PS : Voici la macro actuelle


Option Explicit
Sub PrintLoop()
Dim Cell As Range
Dim WSSource As Worksheet
Dim WSCible As Worksheet
Dim PageFrom As Byte, PageTo As Byte, NbCopy As Byte
Set WSSource = Worksheets("IMPRIM")
Set WSCible = Worksheets(CStr(WSSource.Range("C6").Text))
With WSSource
PageFrom = .Range("C9")
PageTo = .Range("D9")
NbCopy = .Range("D6")
End With
For Each Cell In WSSource.Range("A6:A25")
If Not Cell = "" Then
With WSCible
.Range("G5") = Cell
.Calculate
.PrintOut From:=PageFrom, To:=PageTo, Copies:=NbCopy
End With
End If
Next
End Sub
 
Trier par date Trier par votes
Re : Correction macro pour IMPRIMER

bonjour bud.boundy

a tester

Code: 
Option Explicit
Sub PrintLoop()
[COLOR=red]Dim n as Byte[/COLOR]
Dim Cell As Range
Dim WSSource As Worksheet
Dim WSCible As Worksheet
Dim PageFrom As Byte, PageTo As Byte, NbCopy As Byte
Set WSSource = Worksheets("IMPRIM")
Set WSCible = Worksheets(CStr(WSSource.Range("C6").Text))
With WSSource
PageFrom = .Range("C9")
PageTo = .Range("D9")
NbCopy = .Range("D6")
End With
[COLOR=red]For n=1 to 2[/COLOR]
For Each Cell In WSSource.Range([COLOR=red]chr(64+n )[/COLOR] & "6:" & [COLOR=red]chr(64+n)[/COLOR] & "25")
If Not Cell = "" Then
With WSCible
.Range("G5") = Cell
.Calculate
.PrintOut From:=PageFrom, To:=PageTo, Copies:=NbCopy
End With
End If
Next Cell
[COLOR=red]Next n[/COLOR]
End Sub
 
Vote positif 0 Vote négatif
Re : Correction macro pour IMPRIMER

Merci PierreJean,

Je n'arrive pas à faire fonctionner votre macro mais je pense plutôt avoir mal expliqué mon problème... je vous joint une pièce jointe avec un modèle de ce que j'aimerais obtenir... J'ai remis l'ancienne macro qu'il s'agira de faire évoluer...

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Correction macro pour IMPRIMER

Merci à tous les deux...

Votre fichier semble fonctionner à merveille Catrice... Je vous tiens au courant de l'évolution de mon projet... Merci aussi à vous PierreJean mais il me semble que votre fichier ne fonctionne pas tout à fait bien... Merci du fond du coeur à vous deux
 
Vote positif 0 Vote négatif
Re : Correction macro pour IMPRIMER

Bonjour Catrice,

Désormais votre macro marche parfaitement bien et je vous en remercie gracieusement...

J'aurais simplement une dernière requête à vous demander... Comment pourrait-on faire pour qu'à chaque changement de ligne donc à chaque changement de nom, je puisse imprimer une nommée Sommaire de la page 1 à la page 1... (Cette feuille me servira à presenter les impressions sur chacun des noms)...

Merci encore
 
Vote positif 0 Vote négatif
Re : Correction macro pour IMPRIMER

Bonjour,

Je ne suis pas sur d'avoir tout compris, mais le code suivant permet d'ecrire
Sommaire de la page : x à la page y

WSCible.Range("B2") = "Sommaire de la page : " & PageFrom & " à la page " & PageTo

Changer B2 est la cellule destination à changer et adapter au contexte.

Voir fichier joint.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Correction macro pour IMPRIMER

Re,

Pas de pb pour vous aider mais il me faudrait un peu plus d'infos 😉
Quoi, où ?
Taper ce que vous voulez où vous le voulez et je regarde comment l'automatiser ...
Mais là, c'est un peu vague ou j'ai raté qq chose ...
 
Vote positif 0 Vote négatif
Re : Correction macro pour IMPRIMER

Pardon,

Avant d'imprimer Alain + menu 1, Puis Alain + menu 2, Puis Alain + menu 3,

J'aimerais imprimer au préalable :
Alain dans la cellule C1 de la feuille Sommaire avec :
menu 1 en A4
menu 2 en A5
menu 3 en A6

Même chose à chaque changement de nom :
Sommeiare de pierre puis les différents menu avec pierre... etc

Merci beaucoup
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
232
treza88
  • Question Question
XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )
2
Réponses
15
Affichages
577
Dranreb
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
612
anthoYS
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
226
pascal21
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
907
TooFatBoy
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
C
  • Résolu(e)
XL 2019 Importer fichier csv sans consatener les colonnes
2 3
Réponses
34
Affichages
3 K
laurent950
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
415
MATLEA
M
P
  • Résolu(e)
Microsoft 365 macro qui permet de basculer entre 2 valeurs composées de formules de type "Formula local"
2
Réponses
15
Affichages
548
cathodique
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
1 K
TooFatBoy
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
484
Anthony_51
A
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
882
Nadou69
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
268
un internaute
U
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
803
MBEPID
M
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
627
francha62
F
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
612
Maxou69
M
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
S
  • Question Question
XL 2021 macro VBA excel
Réponses
1
Affichages
667
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…