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

Autres (RESOLU) formule et format d'un TextBox

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency