Discussion :

[me_me]

bonjour à tous

mon probléme est que, j'ai 4 bouton ( case à cocher), quand ces 4 bouton seront cocher, il faut que ma macro pour imprimer mon fichier s'exécute.

Voila

[phiiris]

Bonjour.

commentaire : Il y a un petit bouton, dans le bandeau du dessus, sur lequel il suffit de cliquer une fois pour imprimer le document.

Solution simple : créér un cinquième bouton (OK) et le lier avec une macro qui imprime le document

Solution moins simple : lier chaque case à cocher à la même macro qui teste systématiquement l'ensemble des cases et n'imprime que lorsqu'elles sont toutes cochées.

[me_me]

je me penche plus sur la solution la moins simple, mais je sais pas du tout par ou commencer. parsque chaque bouton à sa propre macro j'ai essayé de faire ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub ImprimePDF()
 
if checkbox8.value=true and checkbox9.value=true and checkbox10.value=true and checkbox11.value=true then 
    Application.ActivePrinter = "FreePDF XP sur Ne02:"
    ThisWorkbook.PrintOut Copies:=1, ActivePrinter:= _
        "FreePDF XP sur Ne02:"
 
end if
End Sub

mais ca marche pas (

[el_slapper]

Et qu'est-ce qui déclenche ta procédure ImprimePDF?

En bon bourrin, je verrais 4 procédures, une par bouton, qui se déclenchent à chaque fois qu'on clique sur une checkbox. Et chacune appelerait ta procédure ImprimePDF.

du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub CheckBox8_Click()
     Call ImprimePDF
End Sub
Private Sub CheckBox9_Click()
     Call ImprimePDF
End Sub
'etc.....

J'ai vérifié, ça déclenche le code quand on coche et quand on décoche. Si il n'y a pas d'erreur dans ImprimePDF, ça doit suffire.

EDIT :

J'ai vérifié la partie déclencheur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if CheckBox8.Value = true and '.....

, et ça marche comme tu demandes : l'action dans le if se déclenche à chaque fois qu'un clic sur une checkbox met toutes les checboxes à l'état selectionné.

[fring]

Bonjour,

Je suppose que tes CheckBox sont sur une feuille ?
Si c'est le cas, dans le module de la feuille en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CheckBox8_Click()
If CheckBox8 And CheckBox9 And CheckBox10 And CheckBox11 Then ImprimePDF
End Sub
 
Private Sub CheckBox9_Click()
If CheckBox8 And CheckBox9 And CheckBox10 And CheckBox11 Then ImprimePDF
End Sub
 
Private Sub CheckBox10_Click()
If CheckBox8 And CheckBox9 And CheckBox10 And CheckBox11 Then ImprimePDF
End Sub
 
Private Sub CheckBox11_Click()
If CheckBox8 And CheckBox9 And CheckBox10 And CheckBox11 Then ImprimePDF
End Sub

et dans un Module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub ImprimePDF() '<-- Sub et non Private Sub
 
Application.ActivePrinter = "FreePDF XP sur Ne02:"
ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="FreePDF XP sur Ne02:"
 
End Sub

[me_me]

merciii fring

ta solution marche super bien