Sous-formulaire feuille de donnée, trouver les lignes sélectionnées

Bonjour,

J'ai un sous-formulaire en feuille de donn=E9es.
Je s=E9lectionne des lignes et je veux savoir lesquelles (en VBA)
J'ai un bouton dans le formulaire principal avec un code qui
fonctionne, sauf que lorsque je clique sur ce bouton, cela
d=E9selectionne les lignes. Le code ne me renvoie que les coordonn=E9es
de l'enregistrement courant

Avez-vous une id=E9e ?

Merci.

(d'apr=E8s l'aide)

Private Sub Cmd_Test_Click()
Dim Frm As Form
Set Frm =3D Forms.frm_essai_101.Frm_S_001_Hebdo.Form
Dim lngNumRows As Long
Dim lngNumColumns As Long
Dim lngTopRow As Long
Dim lngLeftColumn As Long
Dim strMsg As String

' Form is in Datasheet view.
If Frm.CurrentView =3D 2 Then

' Number of rows selected.
lngNumRows =3D Frm.SelHeight

' Number of columns selected.
lngNumColumns =3D Frm.SelWidth

' Topmost row selected.
lngTopRow =3D Frm.SelTop

' Leftmost column selected.
lngLeftColumn =3D Frm.SelLeft

' Display message.
strMsg =3D "Number of rows: " & lngNumRows & vbCrLf
strMsg =3D strMsg & "Number of columns: " _
& lngNumColumns & vbCrLf
strMsg =3D strMsg & "Top row: " & lngTopRow & vbCrLf
strMsg =3D strMsg & "Left column: " & lngLeftColumn
MsgBox strMsg, vbInformation
End If

End Sub