Autres (RESOLU) formule et format d'un TextBox

chaelie2015

XLDnaute Accro
Bonsoir forum
j'ai 03 textbox dans un USF
1. txtDépart ( date de départ)
2. txtDurée (nombre de jours)
3. txtRetour (date de retour)
je cherche le code dans le textbox3 : SI(ET(txtDurée>0;txtDépart<>"");txtDépart +txtDurée-1;"") avec format mar 08/02/2022.


VB:
Private Sub txtRetour_Change()
If txtDépart <> "" And txtDurée <> "" Then
    txtRetour = format(txtDépart + txtDurée - 1,"dddd dd/mm/yyyy"
Else
   MsgBox " Veuillez saisir la date de départ et la durée...!!!"
End If
End Sub
Merci
 
Dernière édition:

chaelie2015

XLDnaute Accro
Bonsoir forum
ci dessous la solution
VB:
Sub MaJdate()
    If IsDate(txtDépart.Value) And IsNumeric(txtDurée.Value) Then
        txtRetour.Value = CDate(txtDépart.Value) + CInt(txtDurée.Value) - 1
    Else
        txtRetour.Value = ""
    End If
End Sub

Private Sub txtDépart_AfterUpdate()
    MaJdate
End Sub

Private Sub txtDurée_AfterUpdate()
    MaJdate
End Sub

Merci FORUM😍
 

Statistiques des forums

Discussions
311 719
Messages
2 081 881
Membres
101 829
dernier inscrit
listener75