Récupérer la dernière valeur d'une Listbox

Bonjour le forum et bonne journée

je cherche a afficher dans une label le contenu de la dernière ligne d'une listbox sans clicker dedans automatiquement.

j'ai met ce code mais apparemment il m'affiche la première ligne et non la dernière après avoir cliquer sur la listbox chose que je désire pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim n As Integer Dim Txt As String Dim i As Integer   n = Feuil1.ListBox2.TopIndex = Feuil1.ListBox2.ListCount For i = 0 To Feuil1.ListBox2.ListCount If Feuil1.ListBox2.Selected(i) = True Then Txt = Txt & Feuil1.ListBox2.Column(2, n) End If Next i Feuil1.Label1.Caption = Txt

---

Merci d'avance de votre aide

bonjour voici un exemple à adapter:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'initialise la listbox avec les joursmalist = Array("Lundi", "Mardi", "Mercredi", "Jeudi") Me.ListBox1.List = malist         'met en variable le nb de items nbitem = Me.ListBox1.ListCount     'donne au label la valeur du dernier item de la listbox Me.Label1.Caption = Me.ListBox1.List(nbitem - 1)     Rem---- ici Le label affiche bien Jeudi

---

Bonjour,

Tu veux afficher la dernière ligne de la listbox ou la dernière ligne visible de cette liste ?
Dans ton bout de code tu cherches la ligne sélectionnée. Ça ne semble pas concerné par ta question (?)

bonjour mes amis

vous été bien aimable et merci de votre réponses

je cherche simplement a afficher la dernière valeur de la listbox la tout dernière.

dans le VBA la dernière ligne d'une listbox si je me trompe pas c'est :

Code:

---

ListBox2.TopIndex = ListBox2.ListCount

---

j'attend vos précieuses réponses

merci

Code:

---

MsgBox ListBox2.List(ListBox2.ListCount - 1)

---

bonjour

on s'inspirant de l'idée rvtoulon j'ai modifier le code qui me donne a présent la dernière valeur de la listbox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim n As Integer Dim Txt As String Dim i As Integer On Error Resume Next Feuil1.Label1.Caption = "" For i = 0 To Feuil1.ListBox2.ListCount Feuil1.ListBox2.List = i If Feuil1.ListBox2.Selected(i) = True Then Txt = Feuil1.ListBox2.ListCount Feuil1.Label1.Caption = Feuil1.ListBox2.List(Txt - 1) End If Next i

---

le seul souci qui reste c'est que je dois cliquer sur la listbox pour afficher le résultat alors que je souhaite le faire automatiquement a chaque déroulement des boutons Down et up

j'ai met le code entre

Code:

---

1 2 3

Listbox.selected=true ....le code listbox.selected=false

---

ça n'a rien donner
merci

Tu n'as pas besoin de boucler pour trouver la dernière valeur d'une listbox, seulement ceci

Code:

---

Label1 = ListBox2.List(ListBox2.ListCount - 1)

---

Pour te "promener" dans la liste sans cliquer dedans, donc avec les flèches haut-bas, il faut que la listbox ou un autre contrôle ait le focus et tu utilises KeyDown()
Voici un petit exemple qui utilise un Textbox. C'est celui-ci qui a le focus.
Ça va tout de même sélectionner la ligne de la listbox, mais sans que tu aies à cliquer celle-ci...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)   Select Case KeyCode Case 13 ' Enter If ListBox1.Text <> "" Then ActiveCell = ListBox1.Text 'inscrit la valeur dans la cellule active Unload Me Case 38 ' Flèche en haut If ListBox1.ListIndex > 0 Then ListBox1.Selected(ListBox1.ListIndex - 1) = True Case 40 ' Flèche en bas If ListBox1.ListIndex < ListBox1.ListCount Then ListBox1.Selected(ListBox1.ListIndex + 1) = True End Select   End Sub

---

bonjour le Forum

merci parmi vos réponses m'ont éclairées mille merci

et bonne journée
:ccool::ccool: