[EXCEL] Afficher valeur textbox en fonction de combobox
Résolu
ced3c
Messages postés
237
Date d'inscription
Statut
Membre
Dernière intervention
-
ced3c Messages postés 237 Date d'inscription Statut Membre Dernière intervention -
ced3c Messages postés 237 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- [EXCEL] Afficher valeur textbox en fonction de combobox
- Fonction si et excel - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Fonction moyenne excel - Guide
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 ^^
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
désolé du dérangement ^^
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 ^^