Microsoft 365 contrôler un EXIT

[Bill73]

Bonjour le forum,
j'aimerais pouvoir contrôler un EXIT dans un ComboBox en vérifiant si la sortie est due à un bouton <Annuler> nommé BtCan ou à un changement de focus.

la sub Exit :

Private Sub Data4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

  'la saisie de la Région est obligatoire pour continuer
  If Me.Data4.Value = "" And BtCan.TakeFocusOnClick = False Then
    MsgBox "Cette case doit être complétée : Saisir la Région", vbCritical, "Erreur saisie"
    Me.Data4.SetFocus
    Cancel = True
  End If
End Sub

j'ai essayé avec TakeFocusOnClick mais il semble toujours sur True
Une idée ?

 

[vgendron]

bonjour

essaie le keypress

 

[Bill73]

bonjour vgendron,
le problème, c'est que le Exit du combo passe avant le Keypress du bouton