[EXCEL] Afficher valeur textbox en fonction de combobox

Résolu/Fermé

ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 6 mars 2013 à 12:30
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 6 mars 2013 à 12:54

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)

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

A voir également:

[EXCEL] Afficher valeur textbox en fonction de combobox
Liste déroulante excel - Guide
Excel fonction si et - Guide
Mise en forme conditionnelle excel - Guide
Formule excel - Guide
Fonction somme excel - Guide

2 réponses

Réponse 1 / 2

ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
6 mars 2013 à 12:54

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

Réponse 2 / 2

ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
6 mars 2013 à 12:37

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

Discussions similaires

programme qui n'affiche pas le mot secret

Formule Excel : "SI" une cellule contient un mot, alors ?

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters