Acceder a la cellule "choisie" via un combobox

Version imprimable

14/06/2011, 15h03
chloe_t

Acceder a la cellule "choisie" via un combobox

Bonjour a tous,

Voici mon probleme :
J'ai cree un userform a partir d'une feuille Excel ou les cellules A1 a A120 contiennent des noms d'articles. J'ai alimente une combobox avec cette plage de cellule A1:A120.
A chaque article correspond un prix : le prix de la cellule A1 se trouve dans la cellule B1, le prix de la cellule A2 se trouve dans la cellule B2, etc...

Je souhaite afficher au sein du formulaire le prix de l'article selectionne via le combobox. Si l'utilisateur choisit l'article dont le nom se trouve dans la cellule A1, le prix de la cellule B1 doit s'afficher dans le textbox de mon formulaire.

Je pourrais realiser le code suivant :
si combobox.value = "valeur de la cellule A1", alors textbox.value = "valeur de la cellule B1"

Mais j'ai 120 cases et les valeurs des cellules ont des noms compliques...

Je souhaiterais donc acceder a la cellule qui est choisie via le combobox, et dire : textbox.value = "valeur de la cellule a droite de la cellule choisie par le combobox"
J'ai donc imagine utiliser un offset mais je n'arrive pas a comprendre comment acceder a la valeur de la cellule choisie via le combobox !

En esperant que mes explications ont ete claires,
Et en vous remerciant d'avance pour votre aide,

Chloe

Bonjour,
Il te faut donc chercher le contenu de la ComboBox dans la plage de recherche (ici A1:A10). Pour cela, tu peux, par exemple, utiliser la méthode .Find comme ceci :
Ce code est associé à l'événement Click d'un bouton de commande. Il s'agit juste d'un exemple...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim Trouve As Range, Plage As Range
Dim Valeur_cherchee As String
 
If ComboBox1.Value = "" Then Exit Sub ' si la liste est vide on ne fait rien
 
With Sheets("Feuil1") ' à adapter le nom de la feuille concernée
Set Plage = .Range("A1:A120") ' à adapter, mets ici ta plage de recherche
Valeur_cherchee = ComboBox1.Value
    Set Trouve = .Range(Plage.Address).Cells.Find(what:=Valeur_cherchee, Lookat:=xlWhole)
        If Trouve Is Nothing Then
            MsgBox "Pas trouvé"
        Else
            TextBox1 = Trouve.Offset(0, 1).Value
        End If
End With
Set Trouve = Nothing
Set Plage = Nothing
End Sub

N'hésite pas à revenir pour des explications ou si je me suis trompé

Bonjour Chloe,

Avec quelque chose comme ça :

Code:

1
2
3
4
5
6
7
Private Sub ComboBox1_Change()
If Not (Range(Cells(1, 1), Cells(120, 1)).Find(ComboBox1.Value) Is Nothing) Then
    TextBox1.Value = Range(Cells(1, 1), Cells(120, 1)).Find(ComboBox1.Value).Offset(0, 1)
Else
    TextBox1.Value = "Article inconnu"
End If
End Sub

Cordialement

R

Edit : bonjour Pikaju, je n'avais pas rafraichi avant de poster.

14/06/2011, 19h00
chloe_t

Merci beaucoup !
J'ai teste la premiere solution, et en changeant ce qu'il fallait changer, tout marche parfaitement !

Ce forum est super : merci a tous les deux pour vos reponses.

Chloe