Listview - déplacement

Bonjour à vous,

J'ai besoin de vos connaissance....

J'ai 4 boutons pour me déplacer dans la listview (voir code ci-dessous) (Le déplacement se fait correctement avec les boutons)
J'ai un textbox qui est la valeur de ma première colonne de ma listview
Lorsque je click sur une ligne de ma listview, le textbox prend bien la valeur de la listview
Mais si je me déplace à l'aide des boutons, mon textbox ne prend pas la valeur (il reste sur la valeur de ma dernière sélection par click)

Toute aide sera bienvenue

Private Sub BTN_Debut_Click()
    With LV_Inventaire
        .ListItems(1).Selected = True
        .SetFocus
    End With
End Sub

Private Sub BTN_Precedant_Click()
    If LV_Inventaire.SelectedItem.Index = 1 Then
    Set LV_Inventaire.DropHighlight = LV_Inventaire.SelectedItem
    Else
    If LV_Inventaire.SelectedItem.Index = LV_Inventaire.ListItems.Count Then
    Set LV_Inventaire.SelectedItem = LV_Inventaire.ListItems(LV_Inventaire.SelectedItem.Index - 1)
    Set LV_Inventaire.DropHighlight = LV_Inventaire.SelectedItem
    Else
    Set LV_Inventaire.SelectedItem = LV_Inventaire.ListItems(LV_Inventaire.SelectedItem.Index - 1)
    Set LV_Inventaire.DropHighlight = LV_Inventaire.SelectedItem
    End If
    End If
    LV_Inventaire.SetFocus
End Sub

Private Sub BTN_Suivant_Click()
    If Me.LV_Inventaire.SelectedItem.Index = Me.LV_Inventaire.ListItems.Count Then
    Set Me.LV_Inventaire.SelectedItem = Me.LV_Inventaire.ListItems(LV_Inventaire.ListItems.Count)
    Set Me.LV_Inventaire.DropHighlight = Me.LV_Inventaire.SelectedItem
    Else
    Set Me.LV_Inventaire.SelectedItem = Me.LV_Inventaire.ListItems(LV_Inventaire.SelectedItem.Index + 1)
    Set Me.LV_Inventaire.DropHighlight = Me.LV_Inventaire.SelectedItem
    End If
End Sub

Private Sub BTN_Fin_Click()
    With LV_Inventaire
        .ListItems(.ListItems.Count).Selected = True
        .SetFocus
    End With
    AfficheEvenement
End Sub

Bonjour,

Sans classeur, pas facile ....

Mais, a priori, en fin de code de chaque bouton, il "suffirait" de faire un appel à la sub déclenchée par un clic sur la listview ( certainement Private Sub LV_Inventaire _Click() ) . Pour exemple :

Private Sub BTN_Debut_Click()
    With LV_Inventaire
        .ListItems(1).Selected = True
        .SetFocus
    End With
    LV_Inventaire _Click()
End Sub

Si ça ne fonctionnait pas ,

A+

Merci AlgoPlus, je serai de retour au bureau mardi.... je testerai et te reviens....

Merci AlgoPlus, tu m'as mis sur une bonne piste.... ça fonctionne....