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

 

[yadla]

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

Bonjour Christian,

Tu pourrais peut etre commencer la macro...
Il faut changer les listbox par des textbox simple.
Mettre 1 valeur par défaut dès changement de la combobox correspondante.
Voilà une première approche.

Dis moi si tu t'en sors pas avec ca...

(Je n'ai pas fait le tri par date... mais c'est juste un if a ajouter... je pense qe ca ira)

 

[Christian0258]

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

Re,

Merci Yadla,

Je suis imcapable d'écrire une macro. J'ai changé les listbox en textbox c'est tout ce que je sais faire...

Peux-tu m'éclairer...

Encore merci, Yadla
à+
Christian

 

[yadla]

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

Re,

Pour une fois que j'ide et pas moi qui suis aidée... Youpi !!!

Aide oi a comprendre avec la création de macro automatique :
Outils-Macro-Nouvelle Macro.

Fais ensuite ce que tu veux que ta macro fasse.
Oublies pas de faire ensuite arrete enregistrement Sinon, tu vas avoir des lignes et des lignes de code pour rien.

Dès qu j'ai plus avancé, je te mets le fichier

 

[Cousinhub]

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

Bonjour, regarde le fichier joint, tu as deux possibilités :
- Tu mets tes choix dans les combo, et tu peux imprimer toutes les données sélectionnées en une seule fois
- tu mets également tes choix dans les combo, plus le nombre désiré de copies pour chacun, ça va imprimer le nombre voulu par maisonnée

pour le moment, c'est un aperçu, mais regarde le code, et modifies en fonction (impression ou aperçu) supprime les quotes avant 'ActiveSheet.PrintOut
Bonne après-midi

 

[Christian0258]

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

Re,

Yadla,bhbh?


Merci pour ton travail,bhbh, je regarde, fais les essais et te rapelle.

à+

Christian

 

[Christian0258]

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

Re,

bhbh, c'est nickel de chez nickel.
Merci beaucoup pour ton travail, qui comme d'habitude est impecable et toujours avec un plus par rapport à la demande.

Bien amicalement,
Chrisian

 

[Christian0258]

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

Bonjour à tout le forum,

Pourriez-vous me dire pourquoi l'installation de cette macro (merci bhbh) plante une fois installée dans mon fichier.

ça plante comme suit ;
Lorsque je lance la macro ça plante sur le c de:
For Each c In Range([B2], [B799].End(xlUp))

Avec le message ;
La variable de contrôle For Each doit être de type Variant ou Object

Pourriez-vous m'éclairer.
Merci pour votre aide.
Bien amicalement,
Christian

 

[Pierrot93]

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

Bonjour

essaye comme ceci :

Dim c As Range
For Each c In Range("B2:B" & Range("B799").End(xlUp).Row)

bonne journée
@+

 

[Christian0258]

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

Re,

Bonjour Pierrot93 et merci pour ton aide.

J'ai mis ton bout de code, c'est OK ça ouvre l'USF mais quand je tape 1 dans qté je valide ça plante sur :

c = ComboBox3.Value

Peux-tu me dire

Christian

 

[Cousinhub]

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

Bonjour, comme tu as déclaré c comme un Range, tu ne peux plus l'utiliser comme variable. Je te conseille de remplacer c par cel (par exemple) Dim cel as range,For each cel in... dans toute la procédure d'initialisation de l'USF

 

[Pierrot93]

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

Re

tu devrais peut être mettre la totalité du code utilisé.. car là en l'état, je ne vois pas pourquoi faire une foucle "for each" et alimenter toutes ces cellules par la même valeur...
Attention à bien déclarer toutes tes variables.

@+

 

[Cousinhub]

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

Re-, de plus afin de gérer une erreur possible (dans le cas une par une), je te conseille de rajouter ces quelques lignes dans le code :

Private Sub CommandButton3_Click()
.........

g = ComboBox7.Value '<=== à la suite de cette ligne
For k = 1 To 6
If Controls("Textbox" & k).Value = "" And Controls("Combobox" & k + 1) <> "" Then
MsgBox "veuillez remplir le nombre de copies": Controls("Textbox" & k).SetFocus: Exit Sub
End If
Next k

 

[Christian0258]

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

Re,

Bonjour, bhbh,

Merci pour ton aide.

Désolé pour le dérangement, mais pourrais-tu me mettre le code corrigé dans le fichier, comme je suis vraiment zéro en VBA je fais que des erreurs.

Je te remercie
à te lire,
Bien amicalement
Christian

 

[Cousinhub]

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

Voici le fichier joint