XL 2013 Alimenter TextBox suivant le choix comboBox

job75

XLDnaute Barbatruc

• 24 Juillet 2019

• #2

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: 20

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Juillet 2019

• #3

Bonjour Job

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

Merci

Max

 

Pièces jointes

• User_1.xlsm

  649.3 KB · Affichages: 20

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juillet 2019

• #4

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Juillet 2019

• #5

Re,

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

Merci

Max

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 24 Juillet 2019

• #6

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif