Impression suivant date

[eduraiss]

Bonjour le forum

je reviens avec mon problème, je voudrais suivant une date effectuer une impression je joins un fichier

Merci a vous

 

[chris]

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

 

[eduraiss]

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

 

[chris]

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.

 

[eduraiss]

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

 

[chris]

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.

 

[eduraiss]

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