listbox

[Evelynetfrancois]

bonjour a toutes et a tous !!!

Dans un programme jai une listBox1
qui reprend les infos de la feuille 'recap'

j aimerais voir dans ma listBox1 les dernieres entrees
sans etre oblige a chaque fois de tirer ascenceur vers le bas.....
est-ce possible ??

je vous remercie d avances pour le temps que vs me consacré
merci beaucoup
E et F


If Me.ToggleButton1 Then
Me.ListBox1.Clear
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)
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = '50;150;120'

 

[Hervé]

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

salut

 

[Evelynetfrancois]

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

 

[PascalXLD]

Bonjour

as-tu essayé de boucler à l'envers

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

Bon courage

 

[Robert]

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

 

[Hervé]

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

 

[PascalXLD]

Re

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

J'avais pas bien lu la question :unsure:

 

[Evelynetfrancois]

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