Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel xlDialogPrinterSetup

xlDialogPrinterSetup

1 réponse
Avatar
STEN
Bonjour, comment emp=EAcher la bo=EEte de dialogue=20
xlDialogPrinterSetup de s'ouvrir si aucun bouton d'option=20
n'est cocher?
Les boutons d'options correspondent a des feuilles=20
individuelles une feuille par mois.
Merci.

Private Sub CmdOK_Click()
If ControlValidationMois Then Exit Sub

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

If OptFevrier =3D True Then
fevrier.PrintOut , , 1
End If
=20
If OptMars =3D True Then
mars.PrintOut , , 1
End If
=20
If OptAvril =3D True Then
avril.PrintOut , , 1
End If
=20
If OptMai =3D True Then
mai.PrintOut , , 1
End If
=20
If OptJuin =3D True Then
juin.PrintOut , , 1
End If
=20
If OptAout =3D True Then
aout.PrintOut , , 1
End If
=20
If OptSeptembre =3D True Then
septembre.PrintOut , , 1
End If
=20
If OptOctobre =3D True Then
octobre.PrintOut , , 1
End If
=20
If OptNovembre =3D True Then
novembre.PrintOut , , 1
End If
=20
If OptDecembre =3D True Then
decembre.PrintOut , , 1
End If

=20
End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
michdenis
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" a écrit dans le message de news:6fcd01c42f94$82e27140$
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