Propriété Form.SelWidth (Access)

Utilisez la propriété SelWidth pour spécifier ou déterminer le nombre de colonnes (champs) sélectionnées dans le rectangle de sélection actuel. Long (en lecture/écriture).

Syntaxe

expression. SelWidth

expressionVariable qui représente un objetForm.

Remarques

En l'absence de sélection, la valeur retournée par cette propriété correspond à zéro. Si vous attribuez 0 à cette propriété, la sélection est supprimée de la feuille de données ou du formulaire.

Si vous avez sélectionné un ou plusieurs enregistrements dans la feuille de données (au moyen des sélecteurs d'enregistrement), vous ne pouvez pas modifier le paramètre de la propriété SelWidth (sauf lui attribuer 0).

Utilisez ces propriétés avec les propriétés SelTop et SelLeft pour spécifier ou déterminer la position réelle du rectangle de sélection dans la feuille de données. En l’absence de sélection, les propriétés SelTop et SelLeft renvoient le numéro de ligne et le numéro de colonne de la cellule avec le focus.

Les propriétés SelHeight et SelWidth contiennent la position de l'angle inférieur droit du rectangle de sélection.

Les valeurs de propriété SelTop et SelLeft déterminent le coin supérieur gauche 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 lngLeftColumnaffiche 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.