[EXCEL] Afficher valeur textbox en fonction de combobox
Résolu
ced3c
Messages postés
240
Statut
Membre
-
ced3c Messages postés 240 Statut Membre -
ced3c Messages postés 240 Statut Membre -
Bonjour à tous,
J'ai une combobox (combobox1) dont le rowsource se fait par choix d optionbutton juste avant.
Je voudrais afficher une valeur dans des textbox en fonction de la valeur choisi dans mon combobox
J'ai commencé par ceci que j'ai récupérer sur le net ( je l'ai mis dans combobox1_change)
Si cela ne me génère pas d'erreur, cela ne marche pas pour autant.
Quelle est mon erreur dans ce code svp ?
Merci
J'ai une combobox (combobox1) dont le rowsource se fait par choix d optionbutton juste avant.
Je voudrais afficher une valeur dans des textbox en fonction de la valeur choisi dans mon combobox
J'ai commencé par ceci que j'ai récupérer sur le net ( je l'ai mis dans combobox1_change)
Sheets("Barbazan").Activate
Dim a As Integer
For a = 1 To 9999
If Val(Usf_Base.ComboBox1.Value) = Sheets("Barbazan").Range("B" & a).Value Then
Usf_Base.TextBox4.Value = Sheets("Barbazan").Range("A" & a).Value
Usf_Base.TextBox5.Value = Sheets("Barbazan").Range("C" & a).Value
GoTo fin:
End If
Next
fin:
Si cela ne me génère pas d'erreur, cela ne marche pas pour autant.
Quelle est mon erreur dans ce code svp ?
Merci
2 réponses
-
Petite explication pour ceux qui comme moi ne sont pas très compétent en excel
Apparemment en essayant dans ce code, le "val" est a mettre si la combobox contient des nombres.
Si la combobox contient des lettres ou mots il faut l enlever
En espérant en avoir aidé quelques uns ^^ -
apparement en effacant "val" cela marche
Sheets("Barbazan").Activate Dim a As Integer For a = 1 To 9999 If Usf_Base.ComboBox1.Value = Sheets("Barbazan").Range("B" & a).Value Then Usf_Base.TextBox4.Value = Sheets("Barbazan").Range("A" & a).Value Usf_Base.TextBox5.Value = Sheets("Barbazan").Range("C" & a).Value GoTo fin: End If Next fin:
désolé du dérangement ^^
