impression multiple

J

Jacques

Guest

• 4 Mai 2003

• #2

Bonsoir Éric

la liste des numéros de tes collaborateurs est-elle une liste continue (c'est à dire de 1 à n sans trou) ou bien discontinue?
le numéro, dans ta feuille de synthèse, tu l'inscrit dans quelle cellule?

à bientôt

 

Vote positif 0 Vote négatif

E

ERIC

Guest

• 4 Mai 2003

• #3

Salut Jacques,
les numéros de la liste collaborateur sont variable mais toujours à 6 chiffres.
j'inscris le numéro du collaborateur dont je souhaite la synthése dans une cellule toute simple (en l'occurence C4), et les formules de recherche utilisée (recherchev) y font juste reférence pour la recherche.

Merci beaucoup de ton aide précieuse.

Eric

 

Vote positif 0 Vote négatif

J

Jacques

Guest

• 5 Mai 2003

• #4

Bonsoir Éric
J'ai l'impression que tu n'as pas bien compris l'objet de mes questions. En fait si je te demandais si ta liste était continue ou pas, c'était pour prévoir un traitement différent. mais en fait je la remplace par une autre question : Y a-t-il une feuille dans ton classeur qui comporte la liste exhaustive des numéros de tes collaborateurs et si oui comment se nomme-t-elle et dans quelle colonne est-elle?
Le principe de la procédure que j'envisage, est de prendre la liste complète des numéros et pour chaque numéro de cette liste, de l'écrire en C4 de ta feuille de synthèse puis d'imprimer cette dernière.

Bonne soirée

 

Vote positif 0 Vote négatif

E

ERIC

Guest

• 5 Mai 2003

• #5

Bonsoir Jacques,
effectivement les numéros de collaborateurs se trouvent dans une autre feuille appelé "diff de caisse" et se trouve entre la cellule A4 et A152.
Merci mille fois de ton aide.
Eric

 

Vote positif 0 Vote négatif

J

Jacques

Guest

• 6 Mai 2003

• #6

Bonsoir Éric,
Je te propose la macro suivante à lancer avec ta feuille de synthèse active,

Sub imprtotalité()
Set mafeuille = Sheets("diff de caisse")
derlig = mafeuille.Range("A4", mafeuille.[a65535].End(xlUp)).Cells.Count + 3

For i =4 To derlig
ActiveSheet.Range("c4").Value = mafeuille.Range("a" & i).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub

j'espère que celà te permettra de faire ce que tu souhaites.

Bonne soirée

 

Vote positif 0 Vote négatif

E

ERIC

Guest

• 7 Mai 2003

• #7

Bonsoir Jacques,

Je te remercie de l'aide que tu veux bien m'apporter, mais je rencontre un probléme avec la macro, j'ai un message "erreur de compilation" qui apparait.
Peut etre ai je mal suivi tes consignes.. je te propose de t'envoyer le fichier test sur lequel je travaille si tu es d'accord.
En attendant ta réponse , je te remercie une nouvelle fois de ton aide.

Eric

 

Vote positif 0 Vote négatif

J

Jacques

Guest

• 8 Mai 2003

• #8

Bonjour le forum

pas de problème. Envoie quand tu veux

Bonne journée à tous

 

Vote positif 0 Vote négatif