XL 2013 Alimenter TextBox suivant le choix comboBox

maval

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Bonjour maval,

Voyez le fichier joint et le code de l'UserForm :
VB:
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+
 

Fichiers joints

maval

XLDnaute Barbatruc
Bonjour Job

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

Merci

Max
 

Fichiers joints

job75

XLDnaute Barbatruc
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...
 

Discussions similaires


Haut Bas