Impression

Exemple : Que ce soit la feuille Janvier ou Janvier(2) qui soit sélectionnée
au moment de lancer la procédure, le duo s'imprimera.

Tu dois adapter le nom du formulaire et du contrôle case à cocher
dans la procédure :
Après l'avoir testé dans ton application :
Remplace : PrintPreview par PrintOut -> pour lancer l'impression.


'----------------------------------
Sub test()
Dim Sh As Worksheet, Elt As Variant
Dim N As String, N2 As String

If Userform1.Checkbox1.Value = True Then
N = ActiveSheet.Name
If Right(N, 1) <> ")" Then
N2 = N & "(2)"
Else
N2 = Replace(N, "(2)", "")
End If
For Each Elt In Array(N, N2)
Worksheets(Elt).PrintPreview
Next
End If
End Sub
'----------------------------------



"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
99FA5035-DBDE-4C51-BEA7-3B3C91464929@microsoft.com...
Bonjour a tous, j'ai un classeur qui contient 24 feuilles nommées de janvier
à décembre et pour chaque feuille une annexe qui se nomme janvier(2),
fevrier(2) et ce jusque decembre.
Je voudrais à l'aide d'un usf imprimer la feuille active et son annexe
uniquement si une case à cocher qui et sur l'usf et cocher, sinon imprimer
que la feuille active.
Est-ce possible
merci de vos suggetions.
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous

Bonsoir.

Private Sub CommandButton1_Click()
If Me.CheckBox1 = True Then
Sheets(Array(ActiveSheet.Name, ActiveSheet.Name & "(2)")).PrintOut
Else
ActiveSheet.PrintOut
End If
End Sub

Private Sub UserForm_Initialize()
Me.CheckBox1 = False
End Sub

Cordialement.
Daniel
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
99FA5035-DBDE-4C51-BEA7-3B3C91464929@microsoft.com...

Bonjour a tous, j'ai un classeur qui contient 24 feuilles nommées de
janvier
à décembre et pour chaque feuille une annexe qui se nomme janvier(2),
fevrier(2) et ce jusque decembre.
Je voudrais à l'aide d'un usf imprimer la feuille active et son annexe
uniquement si une case à cocher qui et sur l'usf et cocher, sinon imprimer
que la feuille active.
Est-ce possible
merci de vos suggetions.
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous

Bonsoir,

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
Me("checkbox" & i).Visible = True
Me("checkbox" & i).Caption = Sheets(i).Name
Next i
End Sub

Private Sub B_imprime_Click()
For i = 1 To 12
If Me.Controls("checkbox" & i) Then
Sheets(i).PrintPreview
End If
Next i
End Sub

http://boisgontierj.free.fr/fichiers/Formulaire/FormImprime.xls

JB

On 25 fév, 19:54, STEN83 <STE...@discussions.microsoft.com> wrote:

Bonjour a tous, j'ai un classeur qui contient 24 feuilles nommées de ja nvier
à décembre et pour chaque feuille une annexe qui se nomme janvier(2),
fevrier(2) et ce jusque decembre.
Je voudrais à l'aide d'un usf imprimer la feuille active et son annexe
uniquement si une case à cocher qui et sur l'usf et cocher, sinon impri mer
que la feuille active.
Est-ce possible
merci de vos suggetions.
--
Le partage du savoir contribue à l'amélioration de la condition humai ne!
Merci à tous