Comparer Date

S

soft

XLDnaute Occasionnel

• 5 Décembre 2005

• #2

Bonjour piep14, le forum,

Ton code corrigé :

Code:

Private Sub UserForm_Initialize()
    Dim Demain As Integer
    Demain = Weekday(Date + 1, 1)
    If Demain = 1 Then
        txtBxDate.Text = FormatDateTime(Date + 2, 1)
    Else
        txtBxDate.Text = FormatDateTime(Date + 1, 1)
    End If
End Sub

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Décembre 2005

• #3

bonjour

tu peux tester cette adaptation


Private Sub UserForm_Initialize()
If Format(Date + 1, 'dddd') = 'dimanche' _
Then txtBxDate = Format(Date + 1, 'dddd dd mmmm yyyy')
End Sub


bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Décembre 2005

• #4

Oouppss...

bonsoir Soft ...;o)

bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 5 Décembre 2005

• #5

Et oui, soft a été plus rapide et son code fonctionne très bien. Merci a vous !!! J'ai un autre probleme, je vous retrouve sur un nouveau post 🙂

 

Vote positif 0 Vote négatif