macro impression selon liste

D

Droussel

XLDnaute Occasionnel

• 13 Octobre 2006

• #2

Re : macro impression selon liste

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

Denis

 

Pièces jointes

• Classeur3.xls

  34 KB · Affichages: 77
• Classeur3.xls

  34 KB · Affichages: 84
• Classeur3.xls

  34 KB · Affichages: 88

Vote positif 0 Vote négatif

S

SSI

Guest

• 13 Octobre 2006

• #3

Re : macro impression selon liste

Merci beaucoup pour cette reponse rapide

Je la teste des lundi au bureau.

Bon week-end a tous

 

Vote positif 0 Vote négatif

S

SSI

Guest

• 16 Octobre 2006

• #4

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Octobre 2006

• #5

Re : macro impression selon liste

Bonjour

a priori

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

 

Vote positif 0 Vote négatif

S

SSI

Guest

• 16 Octobre 2006

• #6

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]

 

Dernière modification par un modérateur: 16 Octobre 2006

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Octobre 2006

• #7

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

 

Vote positif 0 Vote négatif

S

SSI

Guest

• 16 Octobre 2006

• #8

Re : macro impression selon liste

Un tout grand merci

Cela fonctionne parfaitement

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

 

Vote positif 0 Vote négatif