positionner un listbox

Bonsoir à tous,

je voudrais positionné mon listbox à la dernière ligne non vide, mais ça plante!!
voici mon code:

Code:

---

1 2 3 4 5 6 7 8

Tablo = Worksheets(ComboBox4.Text).Range("A2:z10000").Value ListBox1.List() = Tablo   Sheets(ComboBox4.Text).Select   Cells(16384, 1).End(xlUp).Select ' dernière cellule non vide de la colonne 1 ActiveCell.Offset(0, 0).Select ListBox1.Text = ActiveCell.Text

---

Je dois vraiment me planter mais dans les listbox je suis un peu pommé. ce code est initialize de l'userform

merci à tous
jijie

Désolé mais là je pige pas!!

je voudrais quez ma listbox me montre la dernière cellule non vide!!

et je t'avoue que sur le top je suis largué

Bonjour,

Regarde ce que fait ceci :

Une listbox nommée List1, un bouton de commande nommé Command1 et un bouton de Commande nommé Comand2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Command1_Click() 'ici; nous allons simuler le remplissage avec quelques lignes vides dim i as integer For i = 1 To 20 If i Mod 6 = 0 Then List1.AddItem "" Else List1.AddItem i end if Next End Sub   Private Sub Command2_Click() 'Ici, nous allons sélectionner la dernière ligne vide Dim i as integer For i = List1.ListCount - 1 To 0 Step -1 If List1.List(i) = "" Then List1.Selected(i) = True Exit For End If Next End Sub

---

Lance, clique sur Command1 (pour simuler) puis clique sur Command2 et vois...

j'utilise ce listbox juste pour visionner les dernière cellules de mon classeur et ce sur 10 colonnes.

j'ai essayer ton code mais ça ne marche pas

Code:

---

1 2 3 4

Tablo = Worksheets(ComboBox4.Text).Range("A2:j10000").Value ListBox1.List() = Tablo ActiveSheet.Shapes("ListBox1").Top = Range("A" & Range("A65536").End(xlUp).Row).Top ActiveSheet.Shapes("ListBox1").Left = 0

---

je pense faire une grosse C... mais je suis pommé sur ce coup!!


merci

Ucfoutu a compris autre chose, probablement ce que tu veux.
Et je viens de comprendre à mon tour.
Oublie tout ce que je t'ai dit.
Tu dois préciser le nombre de colonnes de ta liste, pour avoir tes dix colonnes.

Code:

---

Me.ListBox1.ColumnCount = 10

---

Ensuite, teste le code de Ucfoutu.
Je croyais que tu voulais physiquement placer ta liste sur la dernière ligne de la feuille de calculs :scarymov:

Code:

---

je voudrais positionner mon listbox à la dernière ligne non vide

---

Edit
Donc, pour placer ta liste sur la dernière ligne de ta liste, mets simplement dans userform_initialize

Code:

---

ListBox1.ListIndex = ListBox1.ListCount - 1

---

A+
Et j'ai testé ;)

Bonjour Ousk,

1) Avoir compris/deviné , cependant, ne signifie pas du tout que j'approuve la démarche ...:lol:

Il est par ailleurs clair que sa question elle-même justifiait la confusion ... (au point qu'en répondant, je me suis contenté de répondre simplement pour le cas où.... il avait voulu dire autre chose). Je' comprends donc ta réponse, que j'aurais également apportée (avec humour), si j'avais répondu le premier ;)
Tu as donc fort bien fait de répondre comme tu l'as fait ...
Tu as par ailleurs remarqué ce que j'ai fait délibérément avec mon exemple (le contraire de ce qu'il demandait, en montrant comment sélectionner la dernière vide et non la dernière remplie... juste à titre d'exemple, pour réfléchir).

2) Il a sans aucun doute mille fois mieux à faire que de passer, comme il le fait là, par une listbox (on se demande bien pourquoi) !!!;)

Mais c'est sa volonté, non ?

Laissons-le réagir, donc ...

désolé,
pas de bug! mais par contre je me trouve en fin de feuille et non à la dernière cellule non vide!!

Code:

---

1 2 3 4 5 6 7 8

Cells(16384, 1).End(xlUp).Select ' dernière cellule non vide de la colonne 1 ActiveCell.Offset(0, 0).Select Tablo = Worksheets(ComboBox4.Text).Range("A:j").Value ListBox1.List() = Tablo   Me.ListBox1.ColumnCount = 10   ListBox1.ListIndex = ListBox1.ListCount - 1

---

Merci

Pour la suggestion de trouver autre chose, pas de problème!!

Le truc c que je voudrais que la personne qui saisi les lignes puisse voire ses derniers enregistrements et également pouvoir visionner plus haut, je suis OK que ce n'est pas la meilleur solution, et si il y a autre chose merci de me le faire savoir!!

jijie

Euh ...

Et si tu relisais bien tout ?

Je t'ai donné le code pour la dernière vide ...

Est-il si difficile, à partir de là, d'écrire (pour la denière non vide) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command2_Click() 'Ici, nous allons sélectionner la dernière ligne non vide, maintenant Dim i as integer For i = List1.ListCount - 1 To 0 Step -1 If List1.List(i) <> "" Then List1.Selected(i) = True Exit For End If Next End Sub

---

Voilà .... juste un opérateur à changer !!!! (ma foi...)

Et (une autre fois), je n'approuve absolument pas ta démarche ...


Bonne étude ...;)

OK UCFOUTU,

Je voudrais savoir en quoi et pourquoi tu n'aime pas ma démarche?

merci de t'expliquer !

jijie

J'ai bien sûr une autre solution mais comme tu as commencé avec un combo, tu regarderas ensuite.
Pour avoir la dernière ligne, tu dois modifier la plage
Pour simplifier le code, je crée l'instance de la feuille. Tu verras si tu laisses comme ça

Code:

---

1 2 3 4

Dim FL1 as worksheet Set FL1 = Worksheets(ComboBox4.Text) Tablo = FL1.Range("A1:j" & FL1.Range("A65536").End(xlUp).Row).Value ListBox1.List() = Tablo

---

Pour "l'autre" solution, regarde ici. Tu ouvres le zip et tu testes. Si besoin est, place tes données dans feuil1 (je crois me souvenir que feuil1 contient des données)
A+

Edit
Le Zip positionne directement sur la dernière ligne de la plage de données.
Attention, telle quelle, la méthode permet les modifications et la mise à jour instantanée de la base de données, ainsi que la saisie de nouvelles lignes.

@ucfoutu
Bonsoir,
Tu ne trouves pas ma solution plus simple ?

Merci Ouske'l'nor

ça marche inpec!!

merci je regarde maintenant ton autre solution!!

Citation:

---

Envoyé par ouskel'n'or

@ucfoutu
Bonsoir,
Tu ne trouves pas ma solution plus simple ?

---

Bien évidemment, Ousk ...;)