XL 2013 Alimenter TextBox suivant le choix comboBox

[maval]

Bonjour,

J'ai une combobox sur mon UserForm et 3 OptionsButtons. Après avoir sélectionner un des trois OptionsButtons pour faire mon choix J'aimerai remplir mes TextBox
Je vous remercie d'avance

Max

 

[job75]

Bonjour maval,

Voyez le fichier joint et le code de l'UserForm :

Private Sub ComboBox1_Enter()
With Sheets(IIf(OptionButton1, "Juin", IIf(OptionButton2, "Juillet", "Août"))).[A1].CurrentRegion
    If .Rows.Count = 1 Then Exit Sub
    ComboBox1.List = .Offset(1).Resize(.Rows.Count - 1, 2).Value
    ComboBox1.DropDown
End With
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then
    TextBox1 = ""
Else
    TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End If
End Sub

La ComboBox a 2 colonnes, la 2ème est masquée.

A+

 

[maval]

Bonjour Job

je vous remercie beaucoup de mon côté j'avais fait ceci et j'aimerai connaitre votre verdict

Merci

Max

 

[job75]

Oui ça va bien, juste 3 choses :

- on peut éviter la macro UserForm_Initialize en mettant la propriété Value de OptionButton1 à True

- les ComboBox1.Clear sont inutiles

- voir le cas où l'on efface la ComboBox...

 

[maval]

Re,

Je vais suivre vos conseils et essayer d’effacé la ComboBox.

Merci

Max

 

[ChTi160]

Bonjour maval
Bonjour le Fil ,le Forum
Tu dis :

je vous remercie beaucoup de mon côté j'avais fait ceci et j'aimerai connaitre votre verdict

mais que doit on attendre ? voir lien ci dessous !
ça a donné quoi ? Lol
jean marie