Macro pour imprimer selon critères...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais, à nouveau, votre aide afin d'écrire le code VBA pour ce projet.

Il s'agit d'imprimer, en passant par un USF, selon critères...fichier joint c'est plus simple.

Merci pour l'aide que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[Christian0258]

Re : Macro pour imprimer selon critères...

Re,
bhbh,

ça plante à l'ouverture comme tout à l'heure, il faut que je mette Dim.. devant For Each c In Range([B2], [B65000].End(xlUp))
et si je le fais ça ouvre bien l'USF mais ça plante sur : c = ComboBox3.Value


à te lire
Christian

 

[Christian0258]

Re : Macro pour imprimer selon critères...

Bonjour à tout le forum,

Je souhaiterais votre aide pour la macro plante. J'ai trouver la cause, mais
j'ai besoin de vous pour régler le problème, compte tenu de mes très faibles connaissances en VBA .

Il y a dans le fichier joint les "explications"


Bien amicalement,
Christian

 

[Cousinhub]

Re : Macro pour imprimer selon critères...

Bonjour, effectivement, tu utilisais déjà les variables dans un autre module. regarde le fichier joint

 

[Christian0258]

Re : Macro pour imprimer selon critères...

Re,

Merci, bhbh, pour ton travail énorme.

Ca fonctionne parfaitement mais c'est très long...

Peux-tu me dire.

Bien amicalement,
Christian

 

[Cousinhub]

Re : Macro pour imprimer selon critères...

Qu'entends-tu par très long? Chez moi, c'est immédiat
As-tu des formules dans tes onglets?
Dans ce cas, tu peux rajouter cette ligne :
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual '<===< celle-ci
et en fin du code :
Application.Calculation = xlCalculationAutomatic '<===< celle-ci
Application.ScreenUpdating = True

 

[Christian0258]

Re : Macro pour imprimer selon critères...

Re,

Super, ça marche normalement... Tu es super sympa, tu ne m'as pas "laché "et je t'en suis très très reconnaissant.

Mais comment tout ce savoir, c'est énorme...lol

Grand grand merci pour tout, bhbh.

Bien amicalement,
Christian