'Affiche la cellule selectionnée sur la form Sortie Private Sub CommandDétail_Click() Dim i As Integer ReDim f(DataGridVue.SelBookmarks.Count) As New FormSortiePrises 'tableau dynamique' For i = 0 To DataGridVue.SelBookmarks.Count - 1 AdodcPrincipale.Recordset.Bookmark = DataGridVue.SelBookmarks.Item(i) 'la propriété Bookmark permet' 'd'identifier une ligne dans le Recordset' f(i).Show Next End Sub