VB6 DataGrid

Salut,

Voici ce que j'utilise pour retourné à la position courante après modification du record.

Dim itmx As ListItem

'Recup position courante
RecPos = ListArt.SelectedItem.Index

'Move to the item
    If RecPos > 0 Then
        'Move to the item
        Set itmx = ListArt.FindItem(RecPos, lvwTag, 1, lvwPartial)
        ListArt.SelectedItem = itmx
        itmx.EnsureVisible
    End If