renvoi de données dans une listbox

  • Initiateur de la discussion Initiateur de la discussion david
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

david

Guest
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]
 

Pièces jointes

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
 
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
83
Retour