renvoi de données dans une listbox

Hervé

XLDnaute Barbatruc

• 9 Mai 2006

• #2

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

D

david

Guest

• 9 Mai 2006

• #3

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]

 

Pièces jointes

• TEST2_20060509131203.zip

  7.4 KB · Affichages: 6

Vote positif 0 Vote négatif

D

david

Guest

• 9 Mai 2006

• #4

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 9 Mai 2006

• #5

re

voilà

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

 

Pièces jointes

• TEST2_20060509131815.zip

  10.2 KB · Affichages: 14

Vote positif 0 Vote négatif

D

david

Guest

• 9 Mai 2006

• #6

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

 

Vote positif 0 Vote négatif