Label caption en fonction de la valeur d'un combobox
Bonjour à tous,
Débutant, j'essaie de construire mon code VBA cependant je suis coincé.
Sur mon Userform se trouve:
*une combobox1 represantant les codes de departement.
*un label1 et une textbox1
Sur mon classeur se trouve une feuille Feuil2 où j'ai répertorié ma base de données sous forme de tableau avec les codes départementaux listés.
J'aimerais que, lorsque je fais le choix d'un code, le nom du département correspondant s'affiche dans le label1 et le montant du budget alloué dans le textbox1
NB: je souhaite que la textbox1 soit non modifiable (keypress impossible)
Textbox1 a une valeur monétaire avec séparateur de millier
Bonjour madmike, le forum,
Un essai:
Private Sub ComboBox1_Change()
Label1.Caption = Application.VLookup(ComboBox1.Value, Range("Tableau1"), 2, False)
TextBox1 = Application.VLookup(ComboBox1.Value, Range("Tableau1"), 3, False): TextBox1 = Format(TextBox1, "#,##0.00 €")
End Suboù
Private Sub ComboBox1_Change()
' avec plages nommées et index/equiv
Label1.Caption = Application.Index(Range("Departement"), Application.Match(ComboBox1.Text, Range("Code"), 0))
TextBox1 = Application.Index(Range("BUDGET"), Application.Match(ComboBox1.Text, Range("Code"), 0)): TextBox1 = Format(TextBox1, "#,##0.00 €")
End SubPropriété/textBox1/locked=true
Cordialement,
Merci xorsankukai ca marche nickel et c'est excatement ce que je voulais. Grand merci