Discussion :

[Dauer]

Bonjour,

Après avoir fait quelques recherches et fait des tentatives infructueuses (le problème posé n'est jamais tout à fait le mien), je m'adresse à vous pour m'aider à trouver une solution.

J'ai un userform dans lequel j'ai notamment une combobox (dont le rowsource est Produit!A2:A15) et une textbox. J'aimerais qu'une fois la valeur de ma combobox selectionnée, le contenu de ma textbox se définisse automatiquement en fonction de la valeur de la combobox. (exemple : si la valeur de la textbox est "Produit!A4", je voudrais que la valeur de ma textbox soit "Produit!C4".

En fait, les éléments de ma liste combobox seraient des produits et les éléments de la colonne C, les prix de ces produits.

(J'utilise Excel 2007)

[allergique]

Bonjour,

Essaye ce code et dis moi si c'est ce que tu recherches

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
 
Dim valeur As String
valeur = "Produit!C" & ComboBox1.Value + 2
TextBox1.Text = Range(valeur)
End Sub

[Dauer]

merci mais ça ne fonctionne pas tout à fait

j'aimerais que la textbox prenne la valeur de la cellule à côté de celle qui alimente la combo box, pas la valeur de la combobox.

ça doit donner un truc du style :

"Textbox1.text = cell de la combobox.offset(0,1)"

Je ne sais juste pas comment lui demander de "décaller" la valeur qu'il recherhce.

[JackOuYA]

bonjour,

tiens voila le truc du style :

Code :

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

1
2
3
4
5
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > 0 Then
   MsgBox "A droite : " & Sheets("Produit").Range(ComboBox1.RowSource).Cells(ComboBox1.ListIndex + 1).Offset(0, 1).Address
End If
End Sub

[Dauer]

Ah merci! je crois que ça doit se rapprocher de ça

j'ai pas le temps d'essayer tout de suite parce que je dois bouger, mais je te dirai ce que ça donne d'ici qq heures.

[fring]

Bonjour,

Une des solutions possibles, serait d'avoir une ComboBox à 3 colonnes en fixant la propriété ColumnCount à 3 et la propriété RowSource deviendrait Produit!A4:C15.
On peut éventuellement masquer les colonnes 2 et 3 (qui sont les colonnes 1 et 2 vu que dans une Combo la première colonne est la colonne 0) en indiquant dans la propriété ColumnWidth --> 1pt, 0pt, 0pt.

Ensuite il est aisé de récupérer la valeur de la colonne de la ligne sélectionnée, par exemple

Code :

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

1
2
3
With ComboBox1
    MsgBox .List(.Listindex, 2)
End With

ce qui représente la valeur de la 3ème colonne de la ligne sélectionnée (colonne C de la feuille)

[allergique]

merci mais ça ne fonctionne pas tout à fait
j'aimerais que la textbox prenne la valeur de la cellule à côté de celle qui alimente la combo box, pas la valeur de la combobox.

ça doit donner un truc du style :

"Textbox1.text = cell de la combobox.offset(0,1)"

Je ne sais juste pas comment lui demander de "décaller" la valeur qu'il recherhce.

Pourtant chez moi ça fonctionne...

[Didier Gonard]

Bonjour,

Perso, je procède comme Fring avec une approche me permettant plus de souplesse. Le principe est de stocker dans l'array une adresse plutôt que des cellules qui peuvent avoir plusieur centaines de caractères chez moi... (pour info, ce n'est pas explicitement le cas ici )

Je met les seules lignes significatives du code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Alimentation via boucle, K s'incrémente dedans, I aussi.
'cell est une variable Range de boucle qui est la cible voulue
' En colonne 2 du tableau, on met l'adresse de la cellule cible dont la valeur est stockée en colonne 1
' et qui est dans la colonne visible du listbox " lstHistoDatCont " (même combat pour une Combo).
 
 
tabDateContacts(K, 1) = Cells(cell.Row, I)
tabDateContacts(K, 2) = Cells(cell.Row, I).Address
…/…
lstHistoDatCont.List = tabDateContacts
 
'Ensuite, on alimente le nb de textbox qu'on veut en références relatives
'par rapport à notre cible, ce 'qui a pour avantage, entre autres (permet
'aussi le rafraîchissement de données de ces cellules dont 'on ne stocke pas la valeur)
'de n'avoir un array qu'à 2 colonnes permettant d'adresser
'un nb de 'textbox indéfini selon les besoins et la BDD.
 
txtHistoContacttyp = Range(lstHistoDatCont.List(lstHistoDatCont.ListIndex, 1)).Offset(0, 1)
txtHistoComment = Range(lstHistoDatCont.List(lstHistoDatCont.ListIndex, 1)).Offset(0, 2)
'etc….

cordialement,

Didier