Selectionner une zone d'impression en fonction d'une date dans une colonne

job75

XLDnaute Barbatruc

• 1 Septembre 2015

• #2

Re : Selectionner une zone d'impression en fonction d'une date dans une colonne

Bonjour ivan27,

Pas besoin de VBA ni de bouton.

Définissez une zone d'impression quelconque.

Puis dans le Gestionnaire de noms redéfinissez le nom "Zone_d_impression" avec la formule :

Code:

=DECALER(Feuil1!$A$1;EQUIV(MAX(Feuil1!$C:$C);Feuil1!$C:$C;0)-1;;NB.SI(Feuil1!$C:$C;MAX(Feuil1!$C:$C));11)

Bien sûr le tableau doit avoir été trié sur les dates de la colonne C.

A+

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 1 Septembre 2015

• #3

Re : Selectionner une zone d'impression en fonction d'une date dans une colonne

Bonjour ivan27 et le Forum,

Salut à toi job75, j'aime bien le VBA avec ses boutons 🙂

 

Pièces jointes

• Impression-en-fonction-de la dateLaPlusGrande-V1.xlsm

  29 KB · Affichages: 42

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Septembre 2015

• #4

Re : Selectionner une zone d'impression en fonction d'une date dans une colonne

Re,

En VBA on peut évaluer une formule identique :

Code:

Sub Imprimer()
With Feuil1 'CodeName de la feuille
  .Activate
  On Error Resume Next 'si aucune date
  .PageSetup.PrintArea = _
  [OFFSET(A1,MATCH(MAX(C:C),C:C,0)-1,,COUNTIF(C:C,MAX(C:C)),11)].Address
  .PrintPreview 'pour tester
  '.PrintOut 'pour imprimer
End With
End Sub

A affecter au bouton.

Edit : salut Bernard, pas rafraîchi.

A+

 

Dernière édition: 1 Septembre 2015

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 1 Septembre 2015

• #5

Re : Selectionner une zone d'impression en fonction d'une date dans une colonne

Bonsoir le Forum, job75, CBernardT,

Merci beaucoup pour vos propositions.
Bonne nuit à tous
Ivan

 

Vote positif 0 Vote négatif