Discussion :

[jacksparot]

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?

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub ComboBox2_Change()

- ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ce qui donnerais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacksparot]

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