Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs
7
feuilles.....
Dans le m=EAme schema que pr=E9c=E9demment......
Maintenant je voudrais =E9viter que la boite de dialogue de l'imprimante
s'ouvre
sachant que je connais le nombre d'=E9ditions souhait=E9es pour chaque
feuille coch=E9e....
- Si j'imprime la feuille 1 (elle est =E0 imprimer pratiquemment tous
les jours) il faut qu'elle le soit en 2 exemplaires
obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6
- Si j'imprime la feuille 2 (pas forc=E9ment tous les jours mais souvent
en compl=E9ment de la feuille 1) il faut qu'elle le soit en 2
exemplaires
aussi......et qu'automatiquement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1
est imprim=E9e pratiquemment tous les jours et que je souhaite d=E9j=E0
l'impression de la feuille 5 donc redondance)...
- Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires
aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se
rappelant que leur impression est en principe demand=E9e si j'ai
imprim=E9 la feuille 1)
- Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une =E9dition des feuilles 5 et 7 (En se rappelant
m=EAme probl=E8me que ligne ci-dessus si j'ai demand=E9 l'impression de la
feuille2)
Merci de faire chauffer les neurones rien que pour me comprendre...
Moselle47
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
gazelle
Bonjour, Un essai (mais peut-être que les "pros" du forum auront de meilleures idées...) D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click() If CheckBox1 = False And CheckBox3 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox2_Click() If CheckBox2 = False And CheckBox4 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CheckBox3_Click() If CheckBox3 = False And CheckBox1 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox4_Click() If CheckBox4 = False And CheckBox2 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CommandButton1_Click() UserForm1.Hide For i = 1 To 7 If Me.Controls("CheckBox" & i) = True Then Select Case i Case 1, 2, 3 nbc = 2 Case 5, 6, 7 nbc = 1 End Select sht = Me.Controls("CheckBox" & i).Caption Sheets(sht).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=nbc End If Next i Unload Me End Sub
Bonne journée, Gazelle
a écrit dans le message de news:
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs 7 feuilles..... Dans le même schema que précédemment...... Maintenant je voudrais éviter que la boite de dialogue de l'imprimante s'ouvre sachant que je connais le nombre d'éditions souhaitées pour chaque feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous les jours) il faut qu'elle le soit en 2 exemplaires obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6 - Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2 exemplaires aussi......et qu'automatiquement j'aurai besoin d'imprimer en un seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1 est imprimée pratiquemment tous les jours et que je souhaite déjà l'impression de la feuille 5 donc redondance)... - Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se rappelant que leur impression est en principe demandée si j'ai imprimé la feuille 1) - Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2) Merci de faire chauffer les neurones rien que pour me comprendre... Moselle47
Bonjour,
Un essai (mais peut-être que les "pros" du forum auront de meilleures
idées...)
D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click()
If CheckBox1 = False And CheckBox3 = False Then
CheckBox5 = False
CheckBox6 = False
Else
CheckBox5 = True
CheckBox6 = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 = False And CheckBox4 = False Then
CheckBox5 = False
CheckBox7 = False
Else
CheckBox5 = True
CheckBox7 = True
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 = False And CheckBox1 = False Then
CheckBox5 = False
CheckBox6 = False
Else
CheckBox5 = True
CheckBox6 = True
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4 = False And CheckBox2 = False Then
CheckBox5 = False
CheckBox7 = False
Else
CheckBox5 = True
CheckBox7 = True
End If
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
For i = 1 To 7
If Me.Controls("CheckBox" & i) = True Then
Select Case i
Case 1, 2, 3
nbc = 2
Case 5, 6, 7
nbc = 1
End Select
sht = Me.Controls("CheckBox" & i).Caption
Sheets(sht).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=nbc
End If
Next i
Unload Me
End Sub
Bonne journée,
Gazelle
<moselle47@neuf.fr> a écrit dans le message de news:
1163927010.474794.198790@e3g2000cwe.googlegroups.com...
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs
7
feuilles.....
Dans le même schema que précédemment......
Maintenant je voudrais éviter que la boite de dialogue de l'imprimante
s'ouvre
sachant que je connais le nombre d'éditions souhaitées pour chaque
feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous
les jours) il faut qu'elle le soit en 2 exemplaires
obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6
- Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2
exemplaires
aussi......et qu'automatiquement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1
est imprimée pratiquemment tous les jours et que je souhaite déjà
l'impression de la feuille 5 donc redondance)...
- Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires
aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se
rappelant que leur impression est en principe demandée si j'ai
imprimé la feuille 1)
- Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant
même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2)
Merci de faire chauffer les neurones rien que pour me comprendre...
Moselle47
Bonjour, Un essai (mais peut-être que les "pros" du forum auront de meilleures idées...) D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click() If CheckBox1 = False And CheckBox3 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox2_Click() If CheckBox2 = False And CheckBox4 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CheckBox3_Click() If CheckBox3 = False And CheckBox1 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox4_Click() If CheckBox4 = False And CheckBox2 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CommandButton1_Click() UserForm1.Hide For i = 1 To 7 If Me.Controls("CheckBox" & i) = True Then Select Case i Case 1, 2, 3 nbc = 2 Case 5, 6, 7 nbc = 1 End Select sht = Me.Controls("CheckBox" & i).Caption Sheets(sht).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=nbc End If Next i Unload Me End Sub
Bonne journée, Gazelle
a écrit dans le message de news:
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs 7 feuilles..... Dans le même schema que précédemment...... Maintenant je voudrais éviter que la boite de dialogue de l'imprimante s'ouvre sachant que je connais le nombre d'éditions souhaitées pour chaque feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous les jours) il faut qu'elle le soit en 2 exemplaires obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6 - Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2 exemplaires aussi......et qu'automatiquement j'aurai besoin d'imprimer en un seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1 est imprimée pratiquemment tous les jours et que je souhaite déjà l'impression de la feuille 5 donc redondance)... - Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se rappelant que leur impression est en principe demandée si j'ai imprimé la feuille 1) - Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2) Merci de faire chauffer les neurones rien que pour me comprendre... Moselle47
moselle47
Bonjour, Un essai (mais peut-être que les "pros" du forum auront de meilleures idées...) D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click() If CheckBox1 = False And CheckBox3 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox2_Click() If CheckBox2 = False And CheckBox4 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CheckBox3_Click() If CheckBox3 = False And CheckBox1 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox4_Click() If CheckBox4 = False And CheckBox2 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CommandButton1_Click() UserForm1.Hide For i = 1 To 7 If Me.Controls("CheckBox" & i) = True Then Select Case i Case 1, 2, 3 nbc = 2 Case 5, 6, 7 nbc = 1 End Select sht = Me.Controls("CheckBox" & i).Caption Sheets(sht).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=nbc End If Next i Unload Me End Sub
Bonne journée, Gazelle
a écrit dans le message de news:
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs 7 feuilles..... Dans le même schema que précédemment...... Maintenant je voudrais éviter que la boite de dialogue de l'imprimante s'ouvre sachant que je connais le nombre d'éditions souhaitées pour chaque feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous les jours) il faut qu'elle le soit en 2 exemplaires obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6 - Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2 exemplaires aussi......et qu'automatiquement j'aurai besoin d'imprimer en un seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1 est imprimée pratiquemment tous les jours et que je souhaite déjà l'impression de la feuille 5 donc redondance)... - Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se rappelant que leur impression est en principe demandée si j'ai imprimé la feuille 1) - Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2) Merci de faire chauffer les neurones rien que pour me comprendre... Moselle47
Bonjour,
Un essai (mais peut-être que les "pros" du forum auront de meilleures
idées...)
D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click()
If CheckBox1 = False And CheckBox3 = False Then
CheckBox5 = False
CheckBox6 = False
Else
CheckBox5 = True
CheckBox6 = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 = False And CheckBox4 = False Then
CheckBox5 = False
CheckBox7 = False
Else
CheckBox5 = True
CheckBox7 = True
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 = False And CheckBox1 = False Then
CheckBox5 = False
CheckBox6 = False
Else
CheckBox5 = True
CheckBox6 = True
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4 = False And CheckBox2 = False Then
CheckBox5 = False
CheckBox7 = False
Else
CheckBox5 = True
CheckBox7 = True
End If
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
For i = 1 To 7
If Me.Controls("CheckBox" & i) = True Then
Select Case i
Case 1, 2, 3
nbc = 2
Case 5, 6, 7
nbc = 1
End Select
sht = Me.Controls("CheckBox" & i).Caption
Sheets(sht).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=nbc
End If
Next i
Unload Me
End Sub
Bonne journée,
Gazelle
<moselle47@neuf.fr> a écrit dans le message de news:
1163927010.474794.198790@e3g2000cwe.googlegroups.com...
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs
7
feuilles.....
Dans le même schema que précédemment......
Maintenant je voudrais éviter que la boite de dialogue de l'imprimante
s'ouvre
sachant que je connais le nombre d'éditions souhaitées pour chaque
feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous
les jours) il faut qu'elle le soit en 2 exemplaires
obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6
- Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2
exemplaires
aussi......et qu'automatiquement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1
est imprimée pratiquemment tous les jours et que je souhaite déjà
l'impression de la feuille 5 donc redondance)...
- Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires
aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se
rappelant que leur impression est en principe demandée si j'ai
imprimé la feuille 1)
- Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant
même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2)
Merci de faire chauffer les neurones rien que pour me comprendre...
Moselle47
Bonjour, Un essai (mais peut-être que les "pros" du forum auront de meilleures idées...) D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click() If CheckBox1 = False And CheckBox3 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox2_Click() If CheckBox2 = False And CheckBox4 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CheckBox3_Click() If CheckBox3 = False And CheckBox1 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox4_Click() If CheckBox4 = False And CheckBox2 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CommandButton1_Click() UserForm1.Hide For i = 1 To 7 If Me.Controls("CheckBox" & i) = True Then Select Case i Case 1, 2, 3 nbc = 2 Case 5, 6, 7 nbc = 1 End Select sht = Me.Controls("CheckBox" & i).Caption Sheets(sht).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=nbc End If Next i Unload Me End Sub
Bonne journée, Gazelle
a écrit dans le message de news:
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs 7 feuilles..... Dans le même schema que précédemment...... Maintenant je voudrais éviter que la boite de dialogue de l'imprimante s'ouvre sachant que je connais le nombre d'éditions souhaitées pour chaque feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous les jours) il faut qu'elle le soit en 2 exemplaires obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6 - Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2 exemplaires aussi......et qu'automatiquement j'aurai besoin d'imprimer en un seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1 est imprimée pratiquemment tous les jours et que je souhaite déjà l'impression de la feuille 5 donc redondance)... - Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se rappelant que leur impression est en principe demandée si j'ai imprimé la feuille 1) - Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2) Merci de faire chauffer les neurones rien que pour me comprendre... Moselle47
gazelle
Youpi, je suis contente. Mais maintenant je vais laisser mes neurones se reposer... ! lol Amicalement, Gazelle
a écrit dans le message de news:
Bonjour, Un essai (mais peut-être que les "pros" du forum auront de meilleures idées...) D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click() If CheckBox1 = False And CheckBox3 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox2_Click() If CheckBox2 = False And CheckBox4 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CheckBox3_Click() If CheckBox3 = False And CheckBox1 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox4_Click() If CheckBox4 = False And CheckBox2 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CommandButton1_Click() UserForm1.Hide For i = 1 To 7 If Me.Controls("CheckBox" & i) = True Then Select Case i Case 1, 2, 3 nbc = 2 Case 5, 6, 7 nbc = 1 End Select sht = Me.Controls("CheckBox" & i).Caption Sheets(sht).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=nbc End If Next i Unload Me End Sub
Bonne journée, Gazelle
a écrit dans le message de news:
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs 7 feuilles..... Dans le même schema que précédemment...... Maintenant je voudrais éviter que la boite de dialogue de l'imprimante s'ouvre sachant que je connais le nombre d'éditions souhaitées pour chaque feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous les jours) il faut qu'elle le soit en 2 exemplaires obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6 - Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2 exemplaires aussi......et qu'automatiquement j'aurai besoin d'imprimer en un seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1 est imprimée pratiquemment tous les jours et que je souhaite déjà l'impression de la feuille 5 donc redondance)... - Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se rappelant que leur impression est en principe demandée si j'ai imprimé la feuille 1) - Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2) Merci de faire chauffer les neurones rien que pour me comprendre... Moselle47
Youpi, je suis contente.
Mais maintenant je vais laisser mes neurones se reposer... ! lol
Amicalement,
Gazelle
<moselle47@neuf.fr> a écrit dans le message de news:
1163942530.956915.72930@j44g2000cwa.googlegroups.com...
Bonjour,
Un essai (mais peut-être que les "pros" du forum auront de meilleures
idées...)
D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click()
If CheckBox1 = False And CheckBox3 = False Then
CheckBox5 = False
CheckBox6 = False
Else
CheckBox5 = True
CheckBox6 = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 = False And CheckBox4 = False Then
CheckBox5 = False
CheckBox7 = False
Else
CheckBox5 = True
CheckBox7 = True
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 = False And CheckBox1 = False Then
CheckBox5 = False
CheckBox6 = False
Else
CheckBox5 = True
CheckBox6 = True
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4 = False And CheckBox2 = False Then
CheckBox5 = False
CheckBox7 = False
Else
CheckBox5 = True
CheckBox7 = True
End If
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
For i = 1 To 7
If Me.Controls("CheckBox" & i) = True Then
Select Case i
Case 1, 2, 3
nbc = 2
Case 5, 6, 7
nbc = 1
End Select
sht = Me.Controls("CheckBox" & i).Caption
Sheets(sht).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=nbc
End If
Next i
Unload Me
End Sub
Bonne journée,
Gazelle
<moselle47@neuf.fr> a écrit dans le message de news:
1163927010.474794.198790@e3g2000cwe.googlegroups.com...
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs
7
feuilles.....
Dans le même schema que précédemment......
Maintenant je voudrais éviter que la boite de dialogue de l'imprimante
s'ouvre
sachant que je connais le nombre d'éditions souhaitées pour chaque
feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous
les jours) il faut qu'elle le soit en 2 exemplaires
obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6
- Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2
exemplaires
aussi......et qu'automatiquement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1
est imprimée pratiquemment tous les jours et que je souhaite déjà
l'impression de la feuille 5 donc redondance)...
- Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires
aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se
rappelant que leur impression est en principe demandée si j'ai
imprimé la feuille 1)
- Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant
même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2)
Merci de faire chauffer les neurones rien que pour me comprendre...
Moselle47
Youpi, je suis contente. Mais maintenant je vais laisser mes neurones se reposer... ! lol Amicalement, Gazelle
a écrit dans le message de news:
Bonjour, Un essai (mais peut-être que les "pros" du forum auront de meilleures idées...) D'abord, pour les CheckBox1, 2, 3 et 4 :
Private Sub CheckBox1_Click() If CheckBox1 = False And CheckBox3 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox2_Click() If CheckBox2 = False And CheckBox4 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CheckBox3_Click() If CheckBox3 = False And CheckBox1 = False Then CheckBox5 = False CheckBox6 = False Else CheckBox5 = True CheckBox6 = True End If End Sub
Private Sub CheckBox4_Click() If CheckBox4 = False And CheckBox2 = False Then CheckBox5 = False CheckBox7 = False Else CheckBox5 = True CheckBox7 = True End If End Sub
Private Sub CommandButton1_Click() UserForm1.Hide For i = 1 To 7 If Me.Controls("CheckBox" & i) = True Then Select Case i Case 1, 2, 3 nbc = 2 Case 5, 6, 7 nbc = 1 End Select sht = Me.Controls("CheckBox" & i).Caption Sheets(sht).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=nbc End If Next i Unload Me End Sub
Bonne journée, Gazelle
a écrit dans le message de news:
Toujours dans mon histoire de boite de dialogue pour imprimer plusieurs 7 feuilles..... Dans le même schema que précédemment...... Maintenant je voudrais éviter que la boite de dialogue de l'imprimante s'ouvre sachant que je connais le nombre d'éditions souhaitées pour chaque feuille cochée....
- Si j'imprime la feuille 1 (elle est à imprimer pratiquemment tous les jours) il faut qu'elle le soit en 2 exemplaires obligatoirement...et qu'obligatoirement j'aurai besoin d'imprimer en un
seul exemplaire les feuilles 5 et 6 - Si j'imprime la feuille 2 (pas forcément tous les jours mais souvent
en complément de la feuille 1) il faut qu'elle le soit en 2 exemplaires aussi......et qu'automatiquement j'aurai besoin d'imprimer en un seul exemplaire les feuilles 5 et 7 (Tout en sachant que la feuille 1 est imprimée pratiquemment tous les jours et que je souhaite déjà l'impression de la feuille 5 donc redondance)... - Si j'imprime la feuille 3 il faudra qu'elle le soit en 2 exemplaires aussi et je dois automatiquement imprimer la feuille 5 et 6 (En se rappelant que leur impression est en principe demandée si j'ai imprimé la feuille 1) - Si j'imprime la feuille 4 il faut qu'elle le soit en 2 exemplaires et
j'aurai besoin d'une édition des feuilles 5 et 7 (En se rappelant même problème que ligne ci-dessus si j'ai demandé l'impression de la
feuille2) Merci de faire chauffer les neurones rien que pour me comprendre... Moselle47
