Option Button dans un userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jbdubreuil

XLDnaute Occasionnel
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
194
Réponses
9
Affichages
201
Réponses
10
Affichages
282
Réponses
8
Affichages
233
Réponses
4
Affichages
179
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
481
Retour