Discussion :

[cabridous]

Bonjour
Voila mon problème (surement simple à résoudre mais impossible de trouver un tuto ).


Je voudrais que quand je selectionne un produit dans ma combobox ça affiche le prix qui correspond à celui-ci dans ma textbox.


Merci par avance
Cordialement cabridous

[DeaD78]

Salut,

Code :

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

1
2
3
4
5
6
7
Dim i As Long
 
For i = 2 To Range("A65536").End(xlUp).Row
    If Range("A" & i).Value = ComboBox1.Value Then
        TextBox1.Value = Range("B" & i).Value
    End If
Next

à mettre dans l'event

Code :

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

ComboBox1_Change()

.



Je te conseille d'aller jeter un œil ici, ça pourra te servir : http://silkyroad.developpez.com/VBA/ControlesUserForm/

A+

[Gorfael]

Salut cabridous et le forum
On n'est plus en maternelle et les images....
Sur la macro Change de ta combo fait un code du style

Code :

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

1
2
3
4
5
6
7
8
Dim Cel as Range
'...
For each cel in range([A1],Cells(Rows.count,"A").end(xlUp))
    if cel =combobox then
        textBox=cel.offset(0,1)
        exit for
    End if
next Cel

A+

[zyhack]

Bonjour,

Si les données sont bien rangées il y à aussi le moyen d'utiliser la valeur de ListIndex et de s'en servir pour le prix.
la première donnée ayant le N° 0, dans l'event ComboBox1_Change() tu peux mettre le code suivant

Code :

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

TextBox1.Value = worksheet("donnees").cells(2 + ComboBox1.ListIndex, 2)

Qu'en pensez vous ?

[cabridous]

Merci à tous pour vos réponse ça marche nikel