Microsoft 365 faire une extraction dans une userform et afficher dans textbox

Private Sub TxBoxdate_Enter()
Set usf = Me
dateur.Show
End Sub

Private Sub CmbAfficher_Click() 'recherche
If IsDate(Me.TxBoxdate.Value) Then madate = CDate(Me.TxBoxdate.Value)
'Unload Me
Me.Hide
If esv1 <> CmBoxESV Then
esv1 = CmBoxESV

'ajouter cette condition
'N° de Tournée

End If
PREPARATION.Show vbModeless
End Sub


Private Sub UserForm_Initialize()
HideFormTitleBar Me
With Me.CmBoxESV
.AddItem "701"
.AddItem "702"
.AddItem "703"
End With
esv1 = ""
madate = Date

Cliquez pour agrandir...

'A l'affichage de la date
'Pourvoir faire une recherche afin de trouver N° de tournée correspondant aux ces deux critères
' Afficher le résultat dans la textbox

End Sub

Cliquez pour agrandir...