Autres (RESOLU) formule et format d'un TextBox

chaelie2015 · 8 Février 2022

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

chaelie2015 · 8 Février 2022

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

Autres (RESOLU) formule et format d'un TextBox

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires