Partager via

Propriété ComboBox.SelText (Access)

  • Article

La propriété SelText renvoie une chaîne contenant le texte sélectionné. String en lecture/écriture.

Syntaxe

expression. SelText

Expression Variable qui représente un objet ComboBox .

Remarques

Si aucun texte n'est sélectionné, la propriété SelText contient une valeur Null.

La propriété SelText utilise une expression de chaîne qui contient le texte sélectionné dans le contrôle. Si le contrôle contient le texte sélectionné lorsque cette propriété est définie, le texte sélectionné est remplacé par la nouvelle valeur de SelText.

Pour définir ou renvoyer cette propriété pour un contrôle, le contrôle doit avoir le focus. Pour déplacer le focus sur un contrôle, utilisez la méthode SetFocus.

Exemple

L'exemple suivant utilise deux procédures événementielles pour rechercher le texte spécifié par l'utilisateur. Le texte à rechercher est défini dans la procédure événementielle Load du formulaire. La procédure événementielle Click pour le bouton Rechercher (sur lequel l’utilisateur clique pour démarrer la recherche) invite l’utilisateur à rechercher le texte à rechercher et sélectionne le texte dans la zone de texte si la recherche réussit.

Sub Form_Load() 
 Dim ctlTextToSearch As Control 
 Set ctlTextToSearch = Forms!Form1!TextBox1 
 ctlTextToSearch.SetFocus ' SetFocus to text box. 
 ctlTextToSearch.SelText = "This company places large orders " _ 
 & "twice a year for garlic, oregano, chilies and cumin." 
End Sub 
 
Sub Find_Click() 
 Dim strSearch As String, intWhere As Integer 
 Dim ctlTextToSearch As Control 
 ' Get search string from user. 
 With Me!Textbox1 
 strSearch = InputBox("Enter text to find:") 
 ' Find string in text. 
 intWhere = InStr(.Value, strSearch) 
 If intWhere Then 
 ' If found. 
 .SetFocus 
 .SelStart = intWhere - 1 
 .SelLength = Len(strSearch) 
 Else 
 ' Notify user. 
 MsgBox "String not found." 
 End If 
 End With 
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.