VBA - Valeur TextBox en fonction de 2 ComboBox [Résolu]
A voir également:
- Vba - valeur textbox en fonction de 2 combobox
- Affectation de valeur à des textbox en fonction d'une combobox ✓ - Forum - Visual Basic 6
- Remplir des TextBox en fonction d'une ComboBox ✓ - Forum - VBA Office (Excel, Word ...)
- (VBA]remplir un tableau excel avec un textbox et 2 combobox ✓ - Forum - Visual Basic 6
- Probléme d'affichage dans mes textbox lorsque j'ai deux foix la meme valeur dans ✓ - Forum - Visual Basic 6
- Changer le fond d'un TextBox en fonction de la valeur de son contenu ✓ - Forum - Visual Basic 6
11 réponses
Tu te noies dans un verre d'eau !
voilà comment remplir :
et voilà ton code pour afficher dans tune textbox textbox1 :
Cà, c'est avec ton exemple (lignes commençant en 3 et colonnes commençant en E) !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
voilà comment remplir :
With Worksheets("Inputs")
Me.ComboBox2.List = .Range("D3:D" & .Range("D65536").End(xlUp).Row).Value
Me.ComboBox3.List = WorksheetFunction.Transpose(.Range("E2:G2").Value)
End With
et voilà ton code pour afficher dans tune textbox textbox1 :
Private Sub ComboBox2_Change()
dis_moi Worksheets("Inputs")
End Sub
Private Sub ComboBox3_Change()
dis_moi Worksheets("Inputs")
End Sub
Private Sub dis_moi(F As Worksheet)
If ComboBox2.ListIndex -1 Or ComboBox3.ListIndex -1 Then Exit Sub
TextBox1.Text = F.Cells(ComboBox2.ListIndex + 3, ComboBox3.ListIndex + 5).Value
End Sub
Cà, c'est avec ton exemple (lignes commençant en 3 et colonnes commençant en E) !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Bonjour,
1) relis-toi
et
2) comment alimentes-tu la combo combobox2 et la combo combobox3 ? manuellement ? ou autre (et comment) ?
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
1) relis-toi
j'ai cree deux ComboBox (ComboBox2 et ComboBox3)
et
Dans ma TextBox6 je voudrais faire apparaitre la valeur correspondant a la jonction de la valeur des 3 ComboBox.
2) comment alimentes-tu la combo combobox2 et la combo combobox3 ? manuellement ? ou autre (et comment) ?
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Desole pour l'erreur de frappe, j'ai bien 2 ComboBox.
voici mon code pour alimenter mes combo
With Worksheets("Inputs")
Me.ComboBox2.List = .Range("D3:D" & .Range("D65536").End(xlUp).Row).Value
End With
With Worksheets("Inputs")
Me.ComboBox3.AddItem (Sheets("Inputs").Range("E2").Value)
Me.ComboBox3.AddItem (Sheets("Inputs").Range("F2").Value)
Me.ComboBox3.AddItem (Sheets("Inputs").Range("G2").Value)
End With
J'ai alimente la ComboBox2 grace a une liste car comme vous pouvez le lire precedement , il s'agit des donnees a la verticale. Et j'ai alimente la ComboBox3 par AddItem car il s'agit des donnees a l'horizontale et que la je ne voyais pas comment faire autrement. C'est deux codes fonctionnent bien, reste plus qu'a remplir la Textbox.
Merci d'avoir repondu rapidement
voici mon code pour alimenter mes combo
With Worksheets("Inputs")
Me.ComboBox2.List = .Range("D3:D" & .Range("D65536").End(xlUp).Row).Value
End With
With Worksheets("Inputs")
Me.ComboBox3.AddItem (Sheets("Inputs").Range("E2").Value)
Me.ComboBox3.AddItem (Sheets("Inputs").Range("F2").Value)
Me.ComboBox3.AddItem (Sheets("Inputs").Range("G2").Value)
End With
J'ai alimente la ComboBox2 grace a une liste car comme vous pouvez le lire precedement , il s'agit des donnees a la verticale. Et j'ai alimente la ComboBox3 par AddItem car il s'agit des donnees a l'horizontale et que la je ne voyais pas comment faire autrement. C'est deux codes fonctionnent bien, reste plus qu'a remplir la Textbox.
Merci d'avoir repondu rapidement
Voici l'algo (grossier) que je te propose.
Il faut que tu trouve l'événement "changment" de tes combobox. Un truc style "_QuandChangement".
Dans chaqu'un des événements tu mais un code qui récup. la ligne (Lettre) et la collone (Numérot) (je pense a find).
Tu fais une fonction qui sera appelle de puis les comboboxe qui prends en paramètre la ligne ou la cololne et qui affiche la valeur dans le TextBox6.
C'l'idéé grlobal que j'ai. Après y'a plus qu'à comme disait l'autre.
Il faut que tu trouve l'événement "changment" de tes combobox. Un truc style "_QuandChangement".
Dans chaqu'un des événements tu mais un code qui récup. la ligne (Lettre) et la collone (Numérot) (je pense a find).
Tu fais une fonction qui sera appelle de puis les comboboxe qui prends en paramètre la ligne ou la cololne et qui affiche la valeur dans le TextBox6.
C'l'idéé grlobal que j'ai. Après y'a plus qu'à comme disait l'autre.
Bonjour,
C'est toujours moi.
En utilisant la propriété ListIndex de tes Combobox, tu devrais pouvoir t'en sortir, non?
Sinon, pour améliorer ton code:
Puisque tu utilises l'instruction With, tu peux écrire ceci
Bon courage.
C'est toujours moi.
En utilisant la propriété ListIndex de tes Combobox, tu devrais pouvoir t'en sortir, non?
Sinon, pour améliorer ton code:
Puisque tu utilises l'instruction With, tu peux écrire ceci
With Worksheets("Inputs")
Me.ComboBox3.AddItem .Range("E2").Value
Me.ComboBox3.AddItem .Range("F2").Value)
Me.ComboBox3.AddItem .Range("G2").Value)
End With
Bon courage.
Bé ...!:
que ferait donc ceci ? :
C'est le tout premier pas. Le reste est vraiment simple, en utilisant tout simplement les index des articles choisis dans l'une et l'autre des deux combos !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
que ferait donc ceci ? :
Me.ComboBox2.List = Range("D3:D" & Range("D65536").End(xlUp).Row).Value
Me.ComboBox3.List = WorksheetFunction.Transpose(Range("E2:G2").Value)
C'est le tout premier pas. Le reste est vraiment simple, en utilisant tout simplement les index des articles choisis dans l'une et l'autre des deux combos !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Bonjour a tous,
merci de vos reponses. Gerard ta soultion etait plus simplifiee que la mienne mais celle que ma propose ucfoutu est encore plus simplifie. Le seul probleme que je rencontre dans cette formule c'est qu'elle appel les cellules de la feuille active et donc quand je veux appeler les valeurs qui sont dans ma feuille "Inputs", soit en mettant Worksheet("Input") soit comme je suis dans le with sans mettre le nom de la feuille (pareil que pour la comboBox2), je me retrouve avec l'erreur 438.
Pour ma TextBox6, je vais comme vous me l'avez conseille, chercher du cote des index des articles ou du "find". Je vous retiens au courant de mon avance sur ce point.
Merci a vous
merci de vos reponses. Gerard ta soultion etait plus simplifiee que la mienne mais celle que ma propose ucfoutu est encore plus simplifie. Le seul probleme que je rencontre dans cette formule c'est qu'elle appel les cellules de la feuille active et donc quand je veux appeler les valeurs qui sont dans ma feuille "Inputs", soit en mettant Worksheet("Input") soit comme je suis dans le with sans mettre le nom de la feuille (pareil que pour la comboBox2), je me retrouve avec l'erreur 438.
Pour ma TextBox6, je vais comme vous me l'avez conseille, chercher du cote des index des articles ou du "find". Je vous retiens au courant de mon avance sur ce point.
Merci a vous
Peux-tu nous redonner l'intégralité de ton code qui te donne cette erreur 438.
Attention:
Worksheets("Inputs")
et non
Worksheet("Inputs")
Attention:
Worksheets("Inputs")
et non
Worksheet("Inputs")
ucfoutu, tu as appeller ta sub "dis_moi" c exactement le nom de ma boite mail durant 10sec. g u un "écrant bleu" dans ma tête!!
Ok comme tu dis "Tu te noies dans un verre d'eau", je fais pas mal de fautes de frappe aujourd'hui , la fatigue du WE .
Du coup en retestant le premier code de ucfoutu, c'est correct.
Et le code pour ma TextBox marche a merveille.
Merci beaucoup a vous pour vos responses rapides
Bonne journee et a une prochaine fois sur le forum
Du coup en retestant le premier code de ucfoutu, c'est correct.
Et le code pour ma TextBox marche a merveille.
Merci beaucoup a vous pour vos responses rapides
Bonne journee et a une prochaine fois sur le forum