Discussion :

[jijie]

Bonsoir à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jijie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code toi... :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.ListIndex = ListBox1.ListCount - 1

A+
Et j'ai testé

[ucfoutu]

Bonjour Ousk,

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

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

[jijie]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.