Partager via

Propriétés MatchFound, MatchRequired, événement Change, contrôle CheckBox – Exemple

  • Article

L’exemple suivant utilise les propriétés MatchFound et MatchRequired pour illustrer la correspondance de caractères supplémentaires pour ComboBox. La vérification de la correspondance a lieu dans l’événement Change.

Dans cet exemple, l'utilisateur spécifie si la partie texte d'un contrôle ComboBox doit correspondre à l'un des éléments répertoriés dans ce contrôle ComboBox. L’utilisateur peut spécifier si la correspondance est requise à l’aide d’un contrôle CheckBox, puis taper dans comboBox pour spécifier un élément de sa liste.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

  • Une ComboBox nommée ComboBox1.
  • Une CheckBox nommée CheckBox1.
Private Sub CheckBox1_Click() 
 If CheckBox1.Value = True Then 
 ComboBox1.MatchRequired = True 
 MsgBox "To move the focus from the " _ 
 & "ComboBox, you must match an entry in " _ 
 & "the list or press ESC." 
 Else 
 ComboBox1.MatchRequired = False 
 MsgBox " To move the focus from the " _ 
 & "ComboBox, just tab to or click " _ 
 & "another control. Matching is optional." 
 End If 
End Sub 
 
Private Sub ComboBox1_Change() 
 If ComboBox1.MatchRequired = True Then 
 'MSForms handles this case automatically 
 Else 
 If ComboBox1.MatchFound = True Then 
 MsgBox "Match Found; matching optional." 
 Else 
 MsgBox "Match not Found; matching " _ 
 & "optional." 
 End If 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
Dim i As Integer 
 
For i = 1 To 9 
 ComboBox1.AddItem "Choice " & i 
Next i 
ComboBox1.AddItem "Chocoholic" 
 
CheckBox1.Caption = "MatchRequired" 
CheckBox1.Value = True 
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.