Partager via


Propriété Form.SelLeft (Access)

Utilisez la propriété SelLeft pour spécifier ou déterminer la colonne (champ) la plus à gauche dans le rectangle de sélection actuel. Long (en lecture/écriture).

Syntaxe

expression. SelLeft

expressionVariable qui représente un objetForm.

Remarques

La propriété SelLeft retourne une valeur comprise entre 2 et le nombre de colonnes dans la feuille de données + 1 (Access commence à compter à 0). Les deux premières colonnes sont toujours la colonne sélecteur d’enregistrement et la colonne d’indicateur développer/réduire pour une sous-feuille de données.

En l'absence de sélection, la valeur renvoyée par ces propriétés correspond au numéro de ligne et au numéro de colonne de la cellule active. Si vous avez sélectionné un ou plusieurs enregistrements dans la feuille des données (au moyen des sélecteurs d'enregistrement), vous ne pouvez pas modifier le paramétrage de la propriété SelLeft.

Utilisez ces propriétés avec les propriétés SelHeight et SelWidth pour spécifier ou déterminer la taille réelle du rectangle de sélection.

Les propriétés SelTop et SelLeft déterminent la position de l'angle supérieur gauche du rectangle de sélection.

Les propriétés SelHeight et SelWidth déterminent le coin inférieur droit du rectangle de sélection.

Exemple

L’exemple suivant montre comment utiliser les propriétés SelHeight, SelWidth, SelTop et SelLeft pour déterminer la position et la taille d’un rectangle de sélection en mode Feuille de données. La procédure SetHeightWidth affecte la hauteur et la largeur du rectangle de sélection actuel aux variables lngNumRows, lngNumColumns, lngTopRowet lngLeftColumn affiche ces valeurs dans une boîte de message.

Public Sub SetHeightWidth(ByRef frm As 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 = 2 Then 
 
 ' Number of rows selected. 
 lngNumRows = frm.SelHeight 
 
 ' Number of columns selected. 
 lngNumColumns = frm.SelWidth 
 
 ' Topmost row selected. 
 lngTopRow = frm.SelTop 
 
 ' Leftmost column selected. 
 lngLeftColumn = frm.SelLeft 
 
 ' Display message. 
 strMsg = "Number of rows: " & lngNumRows & vbCrLf 
 strMsg = strMsg & "Number of columns: " _ 
 & lngNumColumns & vbCrLf 
 strMsg = strMsg & "Top row: " & lngTopRow & vbCrLf 
 strMsg = strMsg & "Left column: " & lngLeftColumn 
 MsgBox strMsg, vbInformation 
 End If 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.