Valeur d'une textbox en fonction du choix d'un item d'une combobox

Bonjour,

Voilà, dans le cadre d'un projet d'informatique sous VBA excel, j'ai réalisé deux combobox.
La deuxiéme affiche des objets qui dépendent du choix de la premiére combobox.
Je souhaite afficher dans une textbox le prix de l'item sélectionné.
Pour cela, j'ai crée:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub TextBox7_Change() Dim S As String Dim Q As Range   S = ComboBox2.Value Set Q = Sheets("Composants").Range("C2:C93").Find(S) FirstRow = Q.Row: FirstColumn = Q.Column If Not Q Is Nothing Then Set Q = Q.Offset(0, 1) TextBox7.Text = Q.Value End If End Sub

---

Ce code ne marche pas, je n'arrive pas à afficher le prix...

Je précise que dans mes données, le prix se trouve dans la colonne à gauche des items du combobox2.

Quelles modifications faut-il faire?

Bonjour,

Je pense que tu place ton code dans le mauvais évennement, dans "TextBox7_Change" alors qu'il devrait être dans "ComboBox2_Change" :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ComboBox2_Change()   'Set Q = Q.Offset(0, 1) donc colonne D '+ 2, + 1 car la base de "ListIndex" est = à 0 et Excel à 1 'et + 1 car la source commence à C2 TextBox1.Text = Range("D" & ComboBox1.ListIndex + 2)   End Sub

---

Hervé.

Bonjour,
je peux me tromper mais je crois comprendre que tu souhaites données à la textbox 7 la valeur de la colonne de gauche.
Alors pour commencer :
- je mettrais le remplissage de la textbox non pas dans l'événement change de la text box mais dans l'événement change de la combobox2

Code:

---

Private Sub ComboBox2_Change()

---

- ensuite

Code:

---

Q.Offset(0, 1)

---

va regarder dans la colonne de droite. pour la gauche mettre -1 au lieu de 1.
et enfin j'écrirais directement :

Code:

---

If Not Q Is Nothing Then Me.TextBox7.value = Q.Offset(0,-1).Value

---

ce qui donnerais :

Code:

---

1 2 3 4 5 6 7 8

Private Sub ComboBox2_Change() Dim S As String Dim Q As Range   S = Me.ComboBox2.Value Set Q = Sheets("Composants").Range("C2:C93").Find(S) If Not Q Is Nothing Then Me.TextBox7.value = Q.Offset(0,-1).Value End Sub

---

Merci beacoup pour les réponses ca marche à merveille!