Comment Modifier le remplissage pour remplir une listbox? SVP

[Paritec]

Bonjour à tous,
j'avais une macro qui me renseignait une ligne de feuille et je souhaite maintenant que sur le click je remplisse une Userform5.listbox2 (donc remplacer Feuil4 par listbox2 mais je n'y arrive pas)
dans l'attente de vos réponses
a+
Papou

Private Sub Listbox1_Click()
Dim w
For w = 0 To 9
Feuil4.Cells(2, w + 1) = Userform5.ListBox1.List(Userform5.ListBox1.ListIndex, w)
Next
End Sub

 

[Creepy]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Bonjour le Forum, Paritec,

Ci j'ai bien compris ta demande :

Private Sub CommandButton1_Click()
Dim Boucle As Integer
For Boucle = 0 To ListBox1.ListCount - 1 Step 1
    ListBox2.AddItem ListBox1.List(Boucle)
Next Boucle
End Sub

@+

Creepy

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Bonjour Crepy le forum,
je ne sais pas si tu as bien compris mais je vais essayé de suite et je te dis quoi dans 5 minutes
a+
Papou

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Re Creepy,
Alors non c'est pas ça, je veux que lors du click sur la listbox 1 que la destination de la boucle qui est déjà présente prenne le chemin de la listbox2 à la palce de la feuille4 ligne 2
si tu as une autre idée je pense qu'il faut transformer en, ce que j'ai mis en dessous mais à la place des """"""" il faut mettre ce qui va bien et que je ne sais pas!!
a+
papou

Private Sub Listbox1_Click()
Dim w
For w = 0 To 9
Userform5.listbox2. """"""(2, w + 1)"""""" = Userform5.ListBox1.List(Userform5.ListBox1.ListIndex, w)
Next
End Sub

 

[Creepy]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Re,

Essaie ca :

Private Sub ListBox1_Click()
ListBox2.AddItem ListBox1.Value
End Sub

Creepy

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Re Creepy,
on va essayer de suite je reviens
Papou

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Re Crepy le forum,
bah non toujours pas cela il faut savoir que la boucle est là car il y a 10 colonnes
enfin si tu as une autre idée
a+
Papou

 

[PascalXLD]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Bonjour

Petite question : tu es sûr que c'est sur l'évvènemeclick et non change que tu veux faire réagir ta macro ?

Un bonjour à Christophe au passage

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Bonjour Pascal, le forum,
Oui actuellement je remplissais la ligne 2 de ma feuille 4 et je veux modifier et remplir la listbox2 quand je click sur une ligne de ma listbox1.
merci d'avance de ta réponse
a+
papou

 

[Creepy]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

RE All,

Excuse moi j'avais pas vu les colonnes multiples. Comme quoi faire à la va vite ...

Bref

Dim Bcl As Integer
ListBox2.AddItem ListBox1.Value, ListBox2.ListCount
For Bcl = 1 To ListBox1.ColumnCount - 1 Step 1
    ListBox2.List(ListBox2.ListCount - 1, Bcl) = ListBox1.Column(Bcl)
Next

Ce code copie le contenu de la ligne sélectionné et de toutes les colonnes.

Bonjour Pascal

@+

Creepy

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Re Creepy, Pascal le forum,
Bah on va retester cela de suite et je te dis dans 5 minutes
a+
Pascal

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Re Creepy le forum,
alors j'ai un message de défaut avec "" le type ne correspond pas""
je ne sais pas pourquoi, enfin toi tu vas savoir je pense
a+
Papou

 

[Creepy]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Tu peux nous mettre l'exemple en PJ STP ?

Merci

Creepy

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

re Creepy,
je vais essayer mais il faut que je copie et que je coup plein de chose car le fichier est gros même zipé
a+
papou

 

[Paritec]

Re : Comment Modifier le remplissage pour remplir une listbox? SVP

Bonjour Creepy le forum,
Alors j'ai trouvé ma bêtise en faisaint le fichier pour t'expédier, ta macro amrchait avec le nouveau et pas avec mon fichier d'origine !!!!
En fait ma bêtise est que je n'avais pas le même nombre de colonnes identique dans listbox1 et listbox2.
Donc pardon mais ta macro marche parfaitement
merci pour tout
a+
Papou