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 : Sélectionner tout - Visualiser dans une fenêtre à part
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?