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+
 

Pièces jointes

  • USF(1).xlsm
    27.8 KB · Affichages: 19

Discussions similaires

Réponses
19
Affichages
570

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla