Affichage ListBox

Bonjour à tous,

Je voudrai savoir si une listbox assez longue, on peut lui demander d'afficher ou de se positionner sur la dernière ligne?

Merci de l'aide que vous pourriez m'apporter.

Amicalement

Noel

Bonjour,

Tu peux utiliser pour ton ListIndex:

ListBox1.ListCount - 1

Bonjour Jamess007,

Désolé, j'ai essayé ce bout de code il me donne une erreur

Erreur de compilation :

Utilisation incorrect de la propriété

Qu'ne penses tu

@+

Noel

Re,

Pourrais-tu ...au minimum... poster le code que tu as testé ...???

Re,

Voici le code testé :

ListBox1.ListCount - 1

Merci

Re,

Pas vraiment étonnant que cela ne fonctionne pas ...

J'espère que tu as déjà un code qui fonctionne ... pour alimenter ta ListBox ...

Ci-dessous un code à adapter à ta situation personnelle ...

Private Sub UserForm_Initialize()
With ListBox1
  .AddItem "1"
  .AddItem "2"
  .AddItem "3"
  .ListIndex = .ListCount - 1
End With
End Sub

Bonjour James007,

Je crois qu'il ne faut surtout pas insister car j'ai toujours les erreurs.

Je ferai avec. Ce système m'aurait permis de ne pas accéder à l'ascenseur pour voir mon dernier n° de document saisie.

Amicalement

Noel

Bonjour,

Je trouve étrange que tu décides ... d'abandonner le sujet ... mais c'est ton choix ...

Bonjour à tous,

Bonjour James007,

James, je suis un peu retard pour te répondre, mais me revoilà.

Je n'ai pas l'intention de laisser tomber, j'aimerai résoudre ce problème. A ce jour je n'ai que quelques lignes ma ListBox, mais le jour où j'aurai plusieurs centaines d'écritures cela commencerai à poser problème.

Bien entendu j'aimerai pouvoir visualiser les dernières lignes de ma listbox.

J'ai essayé de mon côté à trouver des solutions niet...

Si toutefois tu aurais une solution n'hésites pas à me l'informer.

Amicalement

Noel

Bonjour,

Dans le but de finaliser le sujet ... peux-tu poster le code entier de Private Sub UserForm_Initialize() ....??

Re,

Voici le code

Private Sub UserForm_Initialize()

TextBox8 = Sheets("tableauBq").Range("i2")

TextBox11 = "Entrez la date"

ChqPrel = False

Label9.Caption = "N° Document"

Report = "Report " & Accueil.RepBq

Label32 = Accueil.Label20

RepBq = Format(Sheets("tableaubq").Range("f4"), "#.#,0")

RepCais = Format(Sheets("tableauca").Range("e4"), "#.#,0")

TextBox20 = Format(Sheets("tableauca").Range("f5"), "#.#,0")

TextBox21 = Format(Sheets("tableauca").Range("g5"), "#.#,0")

TextBox22 = Format(Sheets("tableaubq").Range("f5"), "#.#,0")

TextBox23 = Format(Sheets("tableaubq").Range("g5"), "#.#,0")

'TextBox11 = Format(Date, "dd-mmm-yy")

Saisie.BackColor = &HFFFF00 'Bleu clair

MultiPage1.BackColor = &HFFFF00 'Bleu clair

Saisie.Width = 570

TextBox32 = Format(Sheets("TABLEAUBQ").Range("f4"), "##.#,0.€")

TextBox1 = Sheets("tableauca").Range("i2")

ListBox1.Height = 280

ListBox1.Width = 555

ListBox1.Top = 230

ListBox1.RowSource = "tableauca!b7:g65536"

ListBox1.ColumnCount = 6

ListBox1.ColumnWidths = "18;120;250;50;50;50"

TextBox15 = Format(Sheets("listes").Range("f1"), "##.#,0 €")

If Sheets("saisiebq").Range("d26") <> 0 Then

Label25.Visible = False

End If

If Sheets("saisieca").Range("d7") <> 0 Then

TextBox27.Visible = False

Label24.Visible = False

End If

'TextBox11 = Format(Date, "dd-mmm-yyyy")

MultiPage1.Value = 0

MultiPage1.Height = 180

MultiPage1.Width = 550

TextBox15 = Format(Sheets("listes").Range("f1"), "##.#,0€")

TextBox14 = Sheets("listes").Range("k1")

'TextBox8 = Sheets("tableaubq").Range("i2") + 1

If MultiPage1.Value = 0 Then

Saisie.Label1 = "Journal Caisse"

End If

If MultiPage1.Value = 1 Then

Saisie.Label1 = "Journal Banque"

End If

If MultiPage1.Value = 2 Then

Saisie.Label1 = "Libéller un chèque"

End If

TextBox4 = Format(Date, "dd-mmmm-yyyy")

Dim i As Integer

With Sheets("PLANCOMPTABLE")

For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row

ListBox3.AddItem .Range("A" & i)

Next

End With

Dim sp As String

sp = Application.PathSeparator

On Error Resume Next

Image1.Picture = LoadPicture(ThisWorkbook.Path & sp & "logoEntête.gif")

Image2.Picture = LoadPicture(ThisWorkbook.Path & sp & "logoEntête.gif")

Image3.Picture = LoadPicture(ThisWorkbook.Path & sp & "Quitter.jpg")

Image6.Picture = LoadPicture(ThisWorkbook.Path & sp & "chq.jpg")

Image7.Picture = LoadPicture(ThisWorkbook.Path & sp & "OK.gif")

Image8.Picture = LoadPicture(ThisWorkbook.Path & sp & "Saisie.jpg")

Image9.Picture = LoadPicture(ThisWorkbook.Path & sp & "Saisie.jpg")

On Error GoTo 0

End Sub

Re,

Tu utilises pour alimenter ta ListBox :

ListBox1.RowSource = "tableauca!b7:g65536"

Soit une liste de 65'529 lignes ... est-ce bien cela que tu veux ???

Re,

Oui

@+

Re,

Pourquoi est-ce-que tu n'alimentes pas ta Lisbox1 ... exactement comme tu alimentes ta ListBox3 ...???

Re,

Je vais bien essayé mais je pense que si je suis passé par ce biais c'est qu'il y avait une incompatibilité.

j'essaierai plus tard

Merci de ton aide

Amicalement

Noel

Re,

Merci pour tes remerciements ...

Bon Courage pour la suite ...