Correction macro pour IMPRIMER

[Bud.boundy]

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

 

[Catrice]

Re : Correction macro pour IMPRIMER

Re,

On doit donc imprimer d'abord la feuille Sommaire avec :
Alain en C1
menu 1 en A4
menu 2 en A5
menu 3 en A6

Puis les x feuilles correspondant à Alain dans Essai ?
Etc ....

C'est ça ?

 

[Bud.boundy]

Re : Correction macro pour IMPRIMER

EXCATEMENT CATRICE,

Merci beaucoup

 

[Catrice]

Re : Correction macro pour IMPRIMER

Re,

Le fichier joint devrait faire l'affaire ...
La feuille sommaire est imprimée à la fin, ça pose un pb ?
En fait, elle est imprimée à la fin car construite au fur et à mesure de l'impression des autres ...
Bons tests.

 

[Bud.boundy]

Re : Correction macro pour IMPRIMER

Merci,

mais effectivement oui, ça pose problème... il me la faut impérativement au début... j'en suis navré

merci beaucoup neanmoins

 

[Catrice]

Re : Correction macro pour IMPRIMER

Bon, je m'en doutais 😀

Ci-joint le code ad hoc.
Il y a un peu plus de ligne mais c'est pas plus cher 😛

A+

 

[Bud.boundy]

Re : Correction macro pour IMPRIMER

Merci C Enorme

Vous Etez Formidable

Merci Beaucoup Je Regarde Ca Tout De Suite