Alimenter combobox en fonction choix option bouton

Bonjour

Je voudrais alimenter ma combobox en fonction du choix de mon Option Bouton

Mon fichier exemple

je vous remercie d'avance

Max

Re,

Voila mon fichier exemple

Merci

Bonsoir

A voir

Private Sub UserForm_Initialize()
    OptionButton1 = True
End Sub

Private Sub OptionButton1_Click()
    If OptionButton1 = True Then
        ComboBox1.Clear
        ComboBox1.List = Feuil1.Range("D9:D" & Feuil1.Range("D" & Rows.Count).End(xlUp).Row).Value
    End If
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2 = True Then
        ComboBox1.Clear
        ComboBox1.List = Feuil1.Range("S9:S" & Feuil1.Range("S" & Rows.Count).End(xlUp).Row).Value
    End If
End Sub

Private Sub OptionButton3_Click()
    If OptionButton3 = True Then
        ComboBox1.Clear
        ComboBox1.List = Feuil1.Range("AR9:AR" & Feuil1.Range("AR" & Rows.Count).End(xlUp).Row).Value
    End If
End Sub

A+

Maurice

Bonjour Maurice

Je te remercie Nickel

mais je vais avoir encore besoin de toi pour alimenter les textbox si bien sur tu as le temps

Je te remercie et je vais mettre mon fichier exwemple

Max

Bonjour

a tester avec Column()

et changer la combobox

Private Sub UserForm_Initialize()
    OptionButton1 = True
End Sub

Private Sub UserForm_Activate()
   With ComboBox1
      .Clear
      .Top = TextBox1.Top
      .Left = TextBox1.Left + TextBox1.Width
      .Height = TextBox1.Height
'      .Width = 16
      .ListWidth = 120
   End With
End Sub

Private Sub OptionButton1_Click()
    If OptionButton1 = True Then
        ComboBox1.Clear
        ComboBox1.List = Feuil1.Range("C9:F" & Feuil1.Range("D" & Rows.Count).End(xlUp).Row).Value
    End If
End Sub

Private Sub ComboBox1_Change()
    TextBox1.Value = ComboBox1.Column(0)
    TextBox2.Value = ComboBox1.Column(1)
End Sub

A+

Maurice

Salut Maurice

Oui mais je n'arrive pas à mettre les autres option bouton ??

Max