macro impression selon liste

[SSI]

Bonjour à tous,

Je dois imprimer 250 fois un historique de chiffre d'affaires par client.

Difficulté : les clients francophones et neerlandophones
--> 2 sheet differentes (1 FR / 1 NL)

Autre astuce : actuellement, je modifie manuellement la cellulle E2 et les données sont ajustées.

Comment faire une macro qui imprime chaque client dans sa langue
(colonne O) ?

D'avance merci pour votre aide

 

[Droussel]

Re : macro impression selon liste

bonjour
ci joint un exemple de ce qu'on peut faire
ai-je répondu ?

Denis

 

[SSI]

Re : macro impression selon liste

Merci beaucoup pour cette reponse rapide

Je la teste des lundi au bureau.

Bon week-end a tous

 

[SSI]

Re : macro impression selon liste

Hello,

Cela marche mais bon, comme je suis quelqu'un de difficile, j'aimerais savoir s'il est possible d'y rajouter la condition de langue :

donc imprimer uniquement quand il y a un 'F' dans la colonne 'O'

D'avance merci

 

[ERIC S]

Re : macro impression selon liste

Bonjour

a priori

for i=...
if range("O" & i).value = "F" then
............
endif
next

 

[SSI]

Re : macro impression selon liste

Merci ERIC mais je ne suis pas assez douee pour le reintegrer dans la macro
J'ai essaye mais il m'indique chaque fois une erreur
Ou dois-je le re-intégrer, svp ?
D'avance merci

compteur = Range("M3").End(xlDown).Row
For i = 3 To compteur
Range("M" & i).Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$18"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Range("M3").Select


End Sub[/COLOR]

 

[ERIC S]

Re : macro impression selon liste

re, je pense que c'est comme suit

compteur = Range("M3").End(xlDown).Row
For i = 3 To compteur
'si il y a F en O alors on fait le copier/coller
if range("O" & i).value = "F" then
Range("M" & i).Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$18"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
end if
Next
Range("M3").Select

 

[SSI]

Re : macro impression selon liste

Un tout grand merci

Cela fonctionne parfaitement

PS : J'avais mis le "End IF" au mauvais endroit