Bonjour à tous,
je cherche désespérément une solution pour n'afficher que la dernière ligne de mon tableau dans ma ListBox.
Celle-ci se trouve dans 1 UserForm avec TextBox et Combobox.
Ces derniers contrôles reprennent les éléments de la ListBox afin de pouvoir la modifier.
Ce formulaire permet justement aux utilisateurs après vérification de leur dernière saisie de la modifier si erreur. Je reprends donc la dernière ligne remplie du tableau vu que les saisies s'incrémentent à la fin.
Voilà je vous explique exactement car vous l'aurez compris, je ne veux pas que les personnes modifient une autre ligne !
Ci-dessous le code ; l'avant dernière ligne (que j'ai passé en texte) me permet de trier en ordre inverse donc avec la dernière ligne tout en haut et en réduisant significativement la hauteur de la ListBox, j'arrive à n'afficher que ça mais c'est pas pour autant très sécurisé ... un petit malin, arrivera toujours à descendre quand-même !
Accessoirement, j'aimerais également que cette ligne soit de suite sélectionnée à l'Initialize du UF pour pas à avoir à cliquer dessus pour afficher les champs dans les TB et CB mais si pas possible je mettrai 1 label au-dessus pour l'indiquer, donc c'est pas trop grave.
Petite précision, je fais cela en bénévolat pour une association histoire de leur faciliter le travail donc si vous m'aider vous faites également votre BA et c'est toujours bon à prendre les points de Karma 😉
Un rand grand merci par avance !
je cherche désespérément une solution pour n'afficher que la dernière ligne de mon tableau dans ma ListBox.
Celle-ci se trouve dans 1 UserForm avec TextBox et Combobox.
Ces derniers contrôles reprennent les éléments de la ListBox afin de pouvoir la modifier.
Ce formulaire permet justement aux utilisateurs après vérification de leur dernière saisie de la modifier si erreur. Je reprends donc la dernière ligne remplie du tableau vu que les saisies s'incrémentent à la fin.
Voilà je vous explique exactement car vous l'aurez compris, je ne veux pas que les personnes modifient une autre ligne !
Ci-dessous le code ; l'avant dernière ligne (que j'ai passé en texte) me permet de trier en ordre inverse donc avec la dernière ligne tout en haut et en réduisant significativement la hauteur de la ListBox, j'arrive à n'afficher que ça mais c'est pas pour autant très sécurisé ... un petit malin, arrivera toujours à descendre quand-même !
Accessoirement, j'aimerais également que cette ligne soit de suite sélectionnée à l'Initialize du UF pour pas à avoir à cliquer dessus pour afficher les champs dans les TB et CB mais si pas possible je mettrai 1 label au-dessus pour l'indiquer, donc c'est pas trop grave.
Petite précision, je fais cela en bénévolat pour une association histoire de leur faciliter le travail donc si vous m'aider vous faites également votre BA et c'est toujours bon à prendre les points de Karma 😉
Un rand grand merci par avance !
VB:
Private Sub UserForm_Initialize()
Sheets("Indemnités_km").Activate
With ListBox1
.List = Range("A4:J" & Range("A303").Row).Value
.ColumnCount = 6
End With
ListBox1.ColumnWidths = "70;250;250;110;50;50"
Dim i As Integer
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.List(i) = "" Then ListBox1.RemoveItem (i)
Next i
'ListBox1.TopIndex = ListBox1.ListCount - 2
End Sub