Impression suivant date

chris

XLDnaute Barbatruc

• 13 Octobre 2007

• #2

Re : Impression suivant date

Bonjour

Pour filtrer sur la bonne colonne

Dim plag As Range
Dim x as Integer
Set plag = Range("V2:IV2")
On Error Resume Next
ActiveSheet.ShowAllData
For Each cel In plag
If cel.Value = Range("AA1") Then
x = cel.Column
Cells(2, x).Select
Selection.AutoFilter Field:=x, Criteria1:="<>"
Exit For
End If
Next cel

Pour l'impression le plus simple est de masquer les colonnes entre 4 et x-1 et entre x+1 et la fin puis les démasquer ensuite

 

Dernière édition: 13 Octobre 2007

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 13 Octobre 2007

• #3

Re : Impression suivant date

Bonjour le forum et a toi chris

merci pour ton aide mais j'ai beaucoup de mal pour finir ce code

je renvois le fichier

merci

 

Pièces jointes

• eric.zip

  14.9 KB · Affichages: 16
• eric.zip

  14.9 KB · Affichages: 14
• eric.zip

  14.9 KB · Affichages: 16

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Octobre 2007

• #4

Re : Impression suivant date

Re
On peut sans doute optimiser mais ça marche.
J'ai déplacé le bouton sur une colonne non masquée.

 

Pièces jointes

• eric.zip

  14.8 KB · Affichages: 20
• eric.zip

  14.8 KB · Affichages: 18
• eric.zip

  14.8 KB · Affichages: 16

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 14 Octobre 2007

• #5

Re : Impression suivant date

Bonjour le forum

Bonjour Chris et merci mais je reviens vers toi car je n'arrive pas a adapter ton code a mon projet

suivant la date choisie je n'arrive pas a masquer les colonne suivante

voici le fichier

Merci

 

Pièces jointes

• eric5.zip

  42.4 KB · Affichages: 28
• eric5.zip

  42.4 KB · Affichages: 28
• eric5.zip

  42.4 KB · Affichages: 28

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Octobre 2007

• #6

Re : Impression suivant date

Bonjour
C'est le commentaire qui pose problème.
Soit il faut l'enlever soit il faut non pas masquer les colonnes mais redéfinir la zone d'impression car Excel ne peut masquer des colonnes contenant des objets graphiques.

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 14 Octobre 2007

• #7

Re : Impression suivant date

Re bonjour

Merci chris maintenant c'est ok, j'ai passé je ne sais combien de temps pour trouver d'ou venait le problème.
Cordialement

 

Vote positif 0 Vote négatif