xlDialogPrinterSetup

Le
STEN
Bonjour, comment empcher la bote de dialogue
xlDialogPrinterSetup de s'ouvrir si aucun bouton d'option
n'est cocher?
Les boutons d'options correspondent a des feuilles
individuelles une feuille par mois.
Merci.

Private Sub CmdOK_Click()
If ControlValidationMois Then Exit Sub

If OptJanvier = True Then
JANVIER.PrintOut , , 1
End If

If OptFevrier = True Then
fevrier.PrintOut , , 1
End If

If OptMars = True Then
mars.PrintOut , , 1
End If

If OptAvril = True Then
avril.PrintOut , , 1
End If

If OptMai = True Then
mai.PrintOut , , 1
End If

If OptJuin = True Then
juin.PrintOut , , 1
End If

If OptAout = True Then
aout.PrintOut , , 1
End If

If OptSeptembre = True Then
septembre.PrintOut , , 1
End If

If OptOctobre = True Then
octobre.PrintOut , , 1
End If

If OptNovembre = True Then
novembre.PrintOut , , 1
End If

If OptDecembre = True Then
decembre.PrintOut , , 1
End If


End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #1330222
Bonjour Sten,

Voici, ta procédure pourrait ressembler à ceci :

'-----------------------------
Private Sub CmdOK_Click()

Dim C As Control, Feuille As String
For Each C In UserForm1.Controls
If TypeName(C) = "OptionButton" Then
Select Case C.Value
Case True
Feuille = Right(C.Name, Len(C.Name) - 3)
Worksheets(Feuille).PrintOut
End Select
End If
Next
Set C = Nothing
End Sub
'-----------------------------


Salutations!



"STEN" Bonjour, comment empêcher la boîte de dialogue
xlDialogPrinterSetup de s'ouvrir si aucun bouton d'option
n'est cocher?
Les boutons d'options correspondent a des feuilles
individuelles une feuille par mois.
Merci.

Private Sub CmdOK_Click()
If ControlValidationMois Then Exit Sub

If OptJanvier = True Then
JANVIER.PrintOut , , 1
End If

If OptFevrier = True Then
fevrier.PrintOut , , 1
End If

If OptMars = True Then
mars.PrintOut , , 1
End If

If OptAvril = True Then
avril.PrintOut , , 1
End If

If OptMai = True Then
mai.PrintOut , , 1
End If

If OptJuin = True Then
juin.PrintOut , , 1
End If

If OptAout = True Then
aout.PrintOut , , 1
End If

If OptSeptembre = True Then
septembre.PrintOut , , 1
End If

If OptOctobre = True Then
octobre.PrintOut , , 1
End If

If OptNovembre = True Then
novembre.PrintOut , , 1
End If

If OptDecembre = True Then
decembre.PrintOut , , 1
End If


End Sub
Publicité
Poster une réponse
Anonyme