Bonjour ric,
Merci pour ta présence...
J'avais déjà testé J+1, mais pas 0.
ça ne fonctionne pas, avec ces réglages, j'ai un "Index out of bound" en haut et en bas, et la sélection ne s'arrête pas sur la 1ère ou dernière ligne...
Mais Ho miracle, en réorganisant mon code, je suis tombé sur la procédure suivante :
Private Sub lst_Consult_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is = 8 'Touche H
Call IncrementListView(Increment:=-1)
Case Is = 2 'Touche B
Call IncrementListView(Increment:=1)
End Select
End Sub
servant à gérer la LitView par les raccourcis clavier que j'avais du mal à comprendre...
et que j'ai mis en commentaire pour voir..., et là plus d'erreur, ça fonctionne parfaitement
Je peux toujours monter et descendre par les touches haut et bas du clavier.....
Merci encore...