listbox

Hervé

XLDnaute Barbatruc

• 20 Septembre 2005

• #2

bonjour evelyneetfrancois, le forum

Soit tu boucles sur ta colonne A en partant du bas et tu remonte, soit tu fais suivre ton additem d'une variable d'indexation pour lui préciser de rajouter les nouveaux éléments en début de liste.

.additem ....,0

Me.ListBox1.Clear
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = '50;150;120'

With Sheets('recap')
For i = 2 To .Range('A65536').End(xlUp).Row
    Me.ListBox1.AddItem .Range('A' & i), 0
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Range('B' & i)
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Range('C' & i)
Next i
Me.ListBox1.ListIndex = 0

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

Guest

• 20 Septembre 2005

• #3

merci beaucoup HERVE de te pencher sur mon petit soucis !!

En mettant Me.ListBox1.AddItem .Range('A' & i), 0
ca me retorne la liste en mettant la plus ressente en haut !!
j aimerais que l orde reste le meme !
de la plus ancienne saisie (en haut )a la plus ressente !(en bas)
mais que la listBox m affiche les dernieres saisies et non pas les plus anciennes

(je suis chaque fois oblige de descendre avec l ascenseur !!
pour voir la derniere saisie ............

jespere etres clair !!!
merci beaucoup par avance !!!!!

e et f

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 20 Septembre 2005

• #4

Bonjour

as-tu essayé de boucler à l'envers

For i = .Range('A65536').End(xlUp).Row To 2 Step -1

Bon courage

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Septembre 2005

• #5

Bonjour Evelyne&François, Hervé, bonjour le forum,

Si j'ai bien compris... Vous devrez rajouter :

Listbox1.ListIndex=Listbox1.ListCount-3

Le 3 à adapter pour savoir de combien vous voulez remonter.

Édition

Bonjour Pascal, on s'est croisés.

Message édité par: Robert, à: 20/09/2005 15:02

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Septembre 2005

• #6

re evelyne, salut pascal

En somme, tu veux que tes données de ta colonne A soit transcrit dans le meme ordre dans la listbox, mais que ce soit le dernier item qui soit sélectionné, alors :

Me.ListBox1.Clear
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = '50;150;120'

With Sheets('recap')
For i = 2 To .Range('A65536').End(xlUp).Row
Me.ListBox1.AddItem .Range('A' & i)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Range('B' & i)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Range('C' & i)
Next i
Me.ListBox1.ListIndex = ListBox1.ListCount - 1
End With

salut

Edition : oups, désolé, SALUT robert

Message édité par: hervé, à: 20/09/2005 15:05

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 20 Septembre 2005

• #7

Re

Je crois que je suis bon pour le ZOP sur le coup

J'avais pas bien lu la question :unsure:

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

Guest

• 20 Septembre 2005

• #8

merci Pascal
robert et hervé pour votre devouement !!!

herve (et donc robert )!c'est exatement ca !!!
je vous remercie vraiment beaucoup!!
et vous souhaites a tous une bonne journée !!
a bientot vous lire....
E et F

 

Vote positif 0 Vote négatif