Userform avec OptionButton

Bonjour le forum,
je ne maitrise pas trop la userform avec l'optionButton en faite si quelqu'un pouvais m'aider
je souhaite avoir la posibilité d'imprimer selon mon choix a partir de ma userform la feuil1, feuil2, feuil3, ou la feuil4
donc cocher ou décocher a partir des OptionButton puis comfrimer ma demande en validant par la CommandButton1
ps: fichier ci joint

merci d'avance pour votre aide
Tony

!! Ici on est en VB.net et pas VBA....
Idéalement il faudrait renomer les OptionButtons...mais bon essaye ceci:
ce code doit se trouver dans la procedure de click du bouton Valider ,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub CommandButton1_Click()   If OptionButton5.Value = True Then 'MsgBox "Feuille 1" Sheets("Feuil1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If   If OptionButton8.Value = True Then 'MsgBox "Feuille 2" Sheets("Feuil2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If   If OptionButton9.Value = True Then 'MsgBox "Feuille 3" Sheets("Feuil3").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If   If OptionButton10.Value = True Then 'MsgBox "Feuille 4" Sheets("Feuil4").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If End Sub

---

sur le principe la réponse est correct
maintenant
a la place de sélectionner la feuille puis de faire un activewindow
je ferais un sheets("FeuilX").printout

Sinon il faut en effet vérifier si l'option button est à true (donc valider) et ensuite donner ton instruction.

bonjour VELO1222 arnaudev david_atx le forum
dans ton cas on peut faire comme cela!! vu que tes optionbuttons sont pas renommées. attention je considere que tu as que ces 4 optionbuttons sur ton user. de plus j'utiliserais des CheckBoxs plus simple dans ton cas si tu te trompes tu es obliger de fermer l' user,ouvrir & recommencer ta selection

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Byte, j As Control For Each j In Controls If TypeName(j) = "OptionButton" Then If j = True Then Sheets(j.Caption).PrintOut End If: Next End Sub

---

on pourrait faire une boucle simple mais les noms des optionnbuttons se suivent pas moins interessant!!

Code:

---

1 2 3 4

'For i = 1 To 4 'If Controls("OptionButton" & (i)) = True 'code 'Next i

---