faire apparaitre une description en selectionnant un élément

Bonjour aussi
Par exemple
Ici valeurs de la zone de liste situées de A13 à A16 sur la Feuille "Feuil1"
avec description correspondante dans la colonne B, lorsqu'un élément de la
liste est sélectionné, la description s'affiche dans une zone de texte (je
ne vois pas trop l'intérêt d'une autre zone de liste ?)
Private Sub ListBox1_Change()
If ListBox1.Value = "" Then Exit Sub
Dim LaRange As Range
With Worksheets("Feuil1").Range("A13:A16")
Set LaRange = .Find(what:=ListBox1.Value, LookIn:=xlValues)
If Not LaRange Is Nothing Then
TextBox1.Value = LaRange.Offset(0, 1).Value
End If
End With
End Sub

Cordialement
Pascal

"baloux" <baloux@discussions.microsoft.com> a écrit dans le message de
news:124157B4-1DAC-46FA-9EE9-7E12042F7AE7@microsoft.com...

avec VBA comment peut on dans une listbox1 selectionner un élément de
cette

liste pour faire apparaitre dans listbox2 sa description, sachant que ces
element et leur description sont contenu dans un tableau

Bonjour aussi
Par exemple
Ici valeurs de la zone de liste situées de A13 à A16 sur la Feuille "Feuil1"
avec description correspondante dans la colonne B, lorsqu'un élément de la
liste est sélectionné, la description s'affiche dans une zone de texte (je
ne vois pas trop l'intérêt d'une autre zone de liste ?)
Private Sub ListBox1_Change()
If ListBox1.Value = "" Then Exit Sub
Dim LaRange As Range
With Worksheets("Feuil1").Range("A13:A16")
Set LaRange = .Find(what:=ListBox1.Value, LookIn:=xlValues)
If Not LaRange Is Nothing Then
TextBox1.Value = LaRange.Offset(0, 1).Value
End If
End With
End Sub

Cordialement
Pascal

"baloux" <baloux@discussions.microsoft.com> a écrit dans le message de
news:124157B4-1DAC-46FA-9EE9-7E12042F7AE7@microsoft.com...

avec VBA comment peut on dans une listbox1 selectionner un élément de
cette

liste pour faire apparaitre dans listbox2 sa description, sachant que ces
element et leur description sont contenu dans un tableau

bonjour papou,
je vais essayer d'etre plus clair :

j'ai crée un userform1 dans lequel j'ai trois parties:
1-j'ai 4 cases à cocher correspondant à une catégorie.
2-quand je selectionne une catégorie j'ai une liste déroulante ComboBox1
qui me donne une liste des outils de la catégorie selectionnée.
=> j'ai deja réalisé ces deux etapes

3-maintenant quand je choisi un des outils dans la liste
déroulante(ComboBox1) je veux qu'il m'affiche sa description dans une Listbox.
Sachant que chaque outil a une et une seule description et que les infos
sont dans un tableau avec deux lignes : 1-les outils
2-la description
peux tu m'aider à réaliser cette étape cad selectionner l'outil dans
ComboBox1 et faire apparaitre sa description dans listBox2.

Merci d'avance.