bonjour troopers
paf
tu es pas oblige de coder les 2 OptionButtons un seul suffit il sont "lier"
exemple avec ton code
Private Sub UserForm_Initialize()
'à l'initialisation de l'userform, désactiver les accès à la listbox et du commandbutton
ListBox1.Enabled = False
CommandButton1.Enabled = False
End Sub
Private Sub OptionButton1_Change()
CommandButton1.Enabled = 0
ListBox1.Enabled = 1
If OptionButton1 Then
ListBox1.RowSource = "voitures"
Else
ListBox1.RowSource = "légumes"
End If
End Sub
Private Sub ListBox1_Click()
CommandButton1.Enabled = 1
End Sub
Private Sub CommandButton1_Click()
'au clic sur le commandbutton, insertion de la valeur de la texbox dans la cellule B1 puis fermeture userform
Range("b1").Value = ListBox1.Value
Unload Me
End Sub
bien change le forum comprends plus rien