impression multiple filtre

S

sebastien450

XLDnaute Occasionnel

• 14 Janvier 2016

• #2

Re : impression multiple filtre

De l'aide svp

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 14 Janvier 2016

• #3

Re : impression multiple filtre

Merci de l'aide.

 

Pièces jointes

• CNQ 2010-20xx IND B.xlsm

  77.1 KB · Affichages: 38
• CNQ 2010-20xx IND B.xlsm

  77.1 KB · Affichages: 33

Vote positif 0 Vote négatif

P

ploz

XLDnaute Occasionnel

• 14 Janvier 2016

• #4

Re : impression multiple filtre

Bonsoir,

a mettre dans un nouveau module

Sub imprime()
'
' imprime Macro
'

'
ActiveSheet.PageSetup.PrintArea = "D5:Z65,D66:Z127,D129:Z189,D192:Z203"
ActiveWindow.SelectedSheets.PrintOut
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 14 Janvier 2016

• #5

Re : impression multiple filtre

Merci,

Je cherche a mettre une mise en forme conditionnelle, si le numero de semaine est inférieur de 1 semaine a aujourd'hui => orange
Si = ou supérieur a aujourd'hui => rouge.

J'ai mis ce code, mais ne marche pas

=ET(ANNEE(AUJOURDHUI())=ANNEE(K7);NO.SEMAINE(K7)-1>NO.SEMAINE(AUJOURDHUI()))

 

Vote positif 0 Vote négatif

P

ploz

XLDnaute Occasionnel

• 14 Janvier 2016

• #6

Re : impression multiple filtre

Dans la mise en forme je galère aussi :s dsl sur ce je ne pourrais t'aider

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Janvier 2016

• #7

Re : impression multiple filtre

Bonsoir,

Que vient faire la Mise en forme conditionnelle dans le problème posé au post #1 ?

Code:

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Me.Hide
With Feuil2.[B6].CurrentRegion.Offset(3)
  .AutoFilter
  .AutoFilter 9, "*" & ComboBox1 & "*"
  .Parent.PageSetup.PrintArea = .Address
  .Parent.PageSetup.Orientation = xlLandscape
  .Parent.PageSetup.FitToPagesWide = 1
  .Parent.PageSetup.FitToPagesTall = False
  .Parent.PrintPreview 'aperçu pour tester
  '.PrintOut 'impression
  .AutoFilter
End With
Me.Show
End Sub

Bonne nuit.

 

Dernière édition: 15 Janvier 2016

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Janvier 2016

• #8

Re : impression multiple filtre

Re,

Vous préférerez peut-être ceci :

Code:

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Me.Hide
With Feuil2.[B6].CurrentRegion.Offset(3)
  .AutoFilter
  .AutoFilter 9, "*" & ComboBox1 & "*"
  .Parent.PageSetup.PrintArea = .Parent.Range("B1", .Cells).Address
  .Parent.PageSetup.Orientation = xlLandscape
  .Parent.PageSetup.FitToPagesWide = 1
  .Parent.PageSetup.FitToPagesTall = False
  .Parent.PrintPreview 'aperçu pour tester
  '.PrintOut 'impression
  .AutoFilter
End With
Me.Show
End Sub

A+

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 15 Janvier 2016

• #9

Re : impression multiple filtre

Merci !

Et pour un lancement automatique tous les lundi a 10h00 par exemple (le classeur sera ouvert)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Janvier 2016

• #10

Re : impression multiple filtre

Lancer quoi ?

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 15 Janvier 2016

• #11

Re : impression multiple filtre

Une macro ( la macro impress)

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 15 Janvier 2016

• #12

Re : impression multiple filtre

Je rajoute que le fichier seras ouvert à 10h00 le lundi, mais peut etre ouvert ou fermé d'autre jours dans la semaine, et qu'il ne faut pas que ma macro se lance.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Janvier 2016

• #13

Re : impression multiple filtre

Re,

A placer dans ThisWorkbook :

Code:

Private Sub Workbook_Open()
If Weekday(Date) = 2 Then Application.OnTime TimeValue("10:0"), "impress"
End Sub

La macro impress doit être dans un module standard.

Elle sera donc exécutée chaque lundi à 10:00 mais elle sera aussi exécutée les jours suivant à 10:00 si l'on ne ferme pas le fichier avant.

A+

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 15 Janvier 2016

• #14

Re : impression multiple filtre

Est-ce possible d'éviter cette seconde condition en mettant une boucle genre si délai activation macro impress<24h, on passe, sinon on active a 10h00 ?

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 15 Janvier 2016

• #15

Re : impression multiple filtre

Ou bien ume macro pour fermer & rouvrir le fichier afin de "tromper" le système...

 

Vote positif 0 Vote négatif