Bonjour à tous;
Je me tourne à nouveau vers votre savoir car pour finaliser mon projet il me manque plus qu'un bout de code.
Je m'explique sur mon fichier j'ai mis un code ou lorsque je click sur un bouton une check box me permet de choisir les feuilles que je souhaite imprimer, jusque là tout va bien.
Maintenant j'aimerais aussi via ce même bouton sélectionner les feuilles que je veux imprimer mais aussi que les couleurs des cases ne s'imprime pas.
Ci joint le bout de code( je ne met pas le code entier car tres long, juste la partie intérréssante)
Display the dialog box
CurrentSheet.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
For Each cb In PrintDlg.CheckBoxes
If cb.Value = xlOn Then
Worksheets(cb.Caption).Activate
ActiveSheet.PrintOut
End If
Next cb
End If
Else
MsgBox "Toutes les feuilles sont vides."
End If
' Delete temporary dialog sheet (without a warning)
Application.DisplayAlerts = False
PrintDlg.Delete
' Reactivate original sheet
CurrentSheet.Activate
End Sub
Je pensai rajouter au niveau "ActiveSheet.PrintOut" le code ColorIndex= None mais ca fonctionne pas.
Si quelqu'un à une solution je le remercie déjà
Merci
Je me tourne à nouveau vers votre savoir car pour finaliser mon projet il me manque plus qu'un bout de code.
Je m'explique sur mon fichier j'ai mis un code ou lorsque je click sur un bouton une check box me permet de choisir les feuilles que je souhaite imprimer, jusque là tout va bien.
Maintenant j'aimerais aussi via ce même bouton sélectionner les feuilles que je veux imprimer mais aussi que les couleurs des cases ne s'imprime pas.
Ci joint le bout de code( je ne met pas le code entier car tres long, juste la partie intérréssante)
Display the dialog box
CurrentSheet.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
For Each cb In PrintDlg.CheckBoxes
If cb.Value = xlOn Then
Worksheets(cb.Caption).Activate
ActiveSheet.PrintOut
End If
Next cb
End If
Else
MsgBox "Toutes les feuilles sont vides."
End If
' Delete temporary dialog sheet (without a warning)
Application.DisplayAlerts = False
PrintDlg.Delete
' Reactivate original sheet
CurrentSheet.Activate
End Sub
Je pensai rajouter au niveau "ActiveSheet.PrintOut" le code ColorIndex= None mais ca fonctionne pas.
Si quelqu'un à une solution je le remercie déjà
Merci