Je souhaiterais savoir si il est possible de lancer des macros d'impression( qui existe deja) en me servant de CHECK BOX qui sont dans un userform.
je voudrais cocher certains check box et valider et que cela lance les impressions.
MERCI
encore une petite question
si j'ai plusieurs chekbox et que je veux lancer toutes les impressions une fois que j'ai validé avec un CommandButton je peux faire comment
par avance merci
je suis désolé le fichier est vraiment trop lourd cela ne passe pas
J'ai essayé le code suivant ;
If CheckBox1.Value = True Then
Sheets("ENVIE DE - FORMULES").Visible = True
Sheets("ENVIE DE - FORMULES").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("ENVIE DE - FORMULES").Visible = False
Sheets("ENVIE DE J3").Visible = True
Sheets("ENVIE DE J3").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.Visible = False
Sheets("SAISIE HEBDO").Select
Range("F4").Select
If CheckBox2.Value = True Then
Sheets("C DRESSE ENTREES (A3)").Visible = True
Sheets("C DRESSE ENTREES (A3)").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("C DRESSE ENTREES (A3)").Visible = False
If CheckBox3.Value = True Then
Sheets("C DRESSE ENTREES").Visible = True
Sheets("C DRESSE ENTREES").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("C DRESSE ENTREES").Visible = False
If CheckBox4 = True Then
Sheets("C LIBRE SALADE BAR").Visible = True
Sheets("C LIBRE SALADE BAR").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("C LIBRE SALADE BAR").Visible = False
If CheckBox5 = True Then
Sheets("C LIBRE SALADE BAR A3").Visible = True
Sheets("C LIBRE SALADE BAR A3").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("C LIBRE SALADE BAR A3").Visible = False
Sheets("SAISIE HEBDO").Select
Range("D3").Select
End If
End If
End If
End If
End If
End Sub
cela fonctionne mais seulement si tous les CheckBox sont cochés si non cela n'imprime que le CheckBox1
hors je voudrais impremer que sur les CheckBox qui sont cochés
faut-il utiliser une autre fomr de code
je suis désolé mais j'ai encore une petite question
vraimenent désolé.
est il possible d'imprimer juste une partie des feuilles
en modifiant le code ( PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True)
j'ai modifié le fichier pour que vous puissiez comprendre ma demande
Je rebondis sur ce sujet étant donné que j'ai posté quasiment le même problème j'aimerais comprendre cette partie du code :
Code:
For i = 1 To 6
If UserForm1.Controls("checkbox" & i).Value = True
- le i correspond au nombre de checkbox que nous avons dans le userform ?
- pour appeler une checkbox cette forme est toujours à utilisé pour vérifier des conditions de checkbox ?
Je rebondis sur ce sujet étant donné que j'ai posté quasiment le même problème j'aimerais comprendre cette partie du code :
Code:
For i = 1 To 6
If UserForm1.Controls("checkbox" & i).Value = True
- le i correspond au nombre de checkbox que nous avons dans le userform ?
- pour appeler une checkbox cette forme est toujours à utilisé besoin de vérifier plusieurs conditions de checkbox ?
- le i correspond au nombre de checkbox que nous avons dans le userform ? Oui
- pour appeler une checkbox cette forme est toujours à utilisé besoin de vérifier plusieurs conditions de checkbox ? serait-il possible de reformuler cette question de manière un peu plus compréhensible
Bien que la question soit quasiment la même il vaudrait mieux ouvrir un nouveau fil de discussion dans le but d'éviter de transformer celui-ci en jeu de pistes
je voudrais imprimer la deusieme parties de chaques feuilles ( c'st pour cela que j'ai mis une zone d'impression definie)
le but ultime étant de créer plusieurs userfrome qui me permettront (sur la même base que le premier )d'imprimer les différentes parties de chaques feuilles.