renvoi de données dans une listbox

[david]

Bonjour le forum

J'aimerai envoyer des données dans une listbox, je ne sais pas comment l'expliquer, c'est pour cela que j'ai fais un petit exemple.

Merci d'avance.

David [file name=Test_20060509114748.zip size=6900]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060509114748.zip[/file]

 

[Hervé]

Bonjour david

essaye en placant ce code dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

ListBox1.Clear

If Target.Address(0, 0) = 'F3' Then
        For Each c In Range('a2:a' & Range('a65536').End(xlUp).Row)
                If c = Target Then ListBox1.AddItem c(1, 2)
        Next c
End If


End Sub

salut

 

[david]

Bonjour hervé, tout d'abord merci ca fonctionne parfaitement.
Mais voila j'avais mis un exemple assez simple de manière a ce que je l'adapte a ma configuration par la suite, mais je n'y arrive pas.

Pourrez tu m'aider a nouveau. (cette fois ci je met un fichier joint qui est beaucoup plus proche de mon fichier)

Merci encore

[file name=TEST2_20060509131203.zip size=7570]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST2_20060509131203.zip[/file]

 

[david]

oops, la listbox et le champs de saisie sont sur la feuil 2
Merci

 

[Hervé]

re

voilà

salut [file name=TEST2_20060509131815.zip size=10475]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST2_20060509131815.zip[/file]

 

[david]

J'ai qu'un mot a dire : BRAVO

je m'incline devant toi, je vois que j'ai encore beaucoup beaucoup de progret a faire.

Merci encore a toi Hervé.

david