Option Button dans un userform

[jbdubreuil]

Bonjour le forum,

J'ai quelques soucis à mettre en place la macro dans un userform.
L'userform en question permet d'imprimer des pages en fonctions de parametres données.
J'espere etre assez clair.

1) Il y a deux options buttons qui permettent d'imprimer 1-5 pages ou 1-10 pages
2) Il faut selectionner l'imprimante à l'aide d'un combobox
3) Il y a un bouton commandbutton qu'il faut cliquer pour valider les choix.

Mon probleme est que je ne sais pas lier l'option button et le command button.
Je mets ci dessous le code que j'ai crée. Dites moi ce que vous en pensez. Merci !!!


Private Sub UserForm_Initialize()
Dim Plage As String
Dim I As Long

With Sheets("para")
' # remplissage de la combobox1 avec les imprimantes
Range("J1").Select
For I = 1 To .Range("J65536").End(xlUp).Column
ComboBox1.AddItem .Cells(I, 10)
Next I

End With
End Sub

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton1 = True Then
End If
End Sub

Private Sub CommandButton1_Click()
If OptionButton1 = OptionButton2 Then MsgBox "Please select an option button"
Exit Sub
End If

'code1 (je ne sais pas placer correctement le code 1 lié à l'option button 1)
Sheet2.Visible = True
Sheet2.Select
Range("G2").Select
Range("G2") = ComboBox1

'code2 (je ne sais pas placer correctement le code 2 lié à l'option button 2)
Sheet3.Visible = True
Sheet3.Select
Range("G2").Select
Range("G2") = ComboBox1


MERCI
jb

 

[Excel_lent]

Re : Option Button dans un userform

Salut à tous,

Vois si cela t'inspire.

 

[jbdubreuil]

Re : Option Button dans un userform

Hello,

Merci pour ton fichier,
Je vais regarder ton code et reviens vers toi avec je l'espere une bonne nouvelle

jb