Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Denys,
Pour les samedi et dimanche, ce n'est peut être pas nécessaire ... à toi de décider !
au format américain : dimanche = premier jour de la semaine '--------------------------- Dim J As Integer J = Weekday(Date - 1)
If J = 7 Then 'Samedi Me.Calendar1.Value = Date - 1 ElseIf J = 0 Then 'Dimance Me.Calendar1.Value = Date - 2 ElseIf J = 1 Then 'Lundi Me.Calendar1.Value = Date - 3 End If '---------------------------
Salutations!
"Denys" a écrit dans le message de news: Bonjour à tous,
À l'initialisation de mon userform sur lequel j'ai inséré un calendrier, je voudrais que celui-ci montre la date d'hier.
Me.Calendar1.Value = Date - 1
Sauf que si aujourd'hui nous sommes lundi, je voudrais qu'il montre la date de vendredi. Sauriez-vous comment?
Merci
Denys
Bonjour Denys,
Pour les samedi et dimanche, ce n'est peut être pas nécessaire ... à toi de décider !
au format américain : dimanche = premier jour de la semaine
'---------------------------
Dim J As Integer
J = Weekday(Date - 1)
If J = 7 Then 'Samedi
Me.Calendar1.Value = Date - 1
ElseIf J = 0 Then 'Dimance
Me.Calendar1.Value = Date - 2
ElseIf J = 1 Then 'Lundi
Me.Calendar1.Value = Date - 3
End If
'---------------------------
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 7460F5A6-C5F4-4D9F-B952-F808C3214390@microsoft.com...
Bonjour à tous,
À l'initialisation de mon userform sur lequel j'ai inséré un calendrier, je
voudrais que celui-ci montre la date d'hier.
Me.Calendar1.Value = Date - 1
Sauf que si aujourd'hui nous sommes lundi, je voudrais qu'il montre la date
de vendredi. Sauriez-vous comment?
Pour les samedi et dimanche, ce n'est peut être pas nécessaire ... à toi de décider !
au format américain : dimanche = premier jour de la semaine '--------------------------- Dim J As Integer J = Weekday(Date - 1)
If J = 7 Then 'Samedi Me.Calendar1.Value = Date - 1 ElseIf J = 0 Then 'Dimance Me.Calendar1.Value = Date - 2 ElseIf J = 1 Then 'Lundi Me.Calendar1.Value = Date - 3 End If '---------------------------
Salutations!
"Denys" a écrit dans le message de news: Bonjour à tous,
À l'initialisation de mon userform sur lequel j'ai inséré un calendrier, je voudrais que celui-ci montre la date d'hier.
Me.Calendar1.Value = Date - 1
Sauf que si aujourd'hui nous sommes lundi, je voudrais qu'il montre la date de vendredi. Sauriez-vous comment?
Merci
Denys
Denys
Bonjour Denis,
Merci infiniment. Celle-là je ne l'aurais trouvé seul...
Passe une bonne journée
Denys
Bonjour Denys,
Pour les samedi et dimanche, ce n'est peut être pas nécessaire ... à toi de décider !
au format américain : dimanche = premier jour de la semaine '--------------------------- Dim J As Integer J = Weekday(Date - 1)
If J = 7 Then 'Samedi Me.Calendar1.Value = Date - 1 ElseIf J = 0 Then 'Dimance Me.Calendar1.Value = Date - 2 ElseIf J = 1 Then 'Lundi Me.Calendar1.Value = Date - 3 End If '---------------------------
Salutations!
"Denys" a écrit dans le message de news: Bonjour à tous,
À l'initialisation de mon userform sur lequel j'ai inséré un calendrier, je voudrais que celui-ci montre la date d'hier.
Me.Calendar1.Value = Date - 1
Sauf que si aujourd'hui nous sommes lundi, je voudrais qu'il montre la date de vendredi. Sauriez-vous comment?
Merci
Denys
Bonjour Denis,
Merci infiniment. Celle-là je ne l'aurais trouvé seul...
Passe une bonne journée
Denys
Bonjour Denys,
Pour les samedi et dimanche, ce n'est peut être pas nécessaire ... à toi de décider !
au format américain : dimanche = premier jour de la semaine
'---------------------------
Dim J As Integer
J = Weekday(Date - 1)
If J = 7 Then 'Samedi
Me.Calendar1.Value = Date - 1
ElseIf J = 0 Then 'Dimance
Me.Calendar1.Value = Date - 2
ElseIf J = 1 Then 'Lundi
Me.Calendar1.Value = Date - 3
End If
'---------------------------
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 7460F5A6-C5F4-4D9F-B952-F808C3214390@microsoft.com...
Bonjour à tous,
À l'initialisation de mon userform sur lequel j'ai inséré un calendrier, je
voudrais que celui-ci montre la date d'hier.
Me.Calendar1.Value = Date - 1
Sauf que si aujourd'hui nous sommes lundi, je voudrais qu'il montre la date
de vendredi. Sauriez-vous comment?
Merci infiniment. Celle-là je ne l'aurais trouvé seul...
Passe une bonne journée
Denys
Bonjour Denys,
Pour les samedi et dimanche, ce n'est peut être pas nécessaire ... à toi de décider !
au format américain : dimanche = premier jour de la semaine '--------------------------- Dim J As Integer J = Weekday(Date - 1)
If J = 7 Then 'Samedi Me.Calendar1.Value = Date - 1 ElseIf J = 0 Then 'Dimance Me.Calendar1.Value = Date - 2 ElseIf J = 1 Then 'Lundi Me.Calendar1.Value = Date - 3 End If '---------------------------
Salutations!
"Denys" a écrit dans le message de news: Bonjour à tous,
À l'initialisation de mon userform sur lequel j'ai inséré un calendrier, je voudrais que celui-ci montre la date d'hier.
Me.Calendar1.Value = Date - 1
Sauf que si aujourd'hui nous sommes lundi, je voudrais qu'il montre la date de vendredi. Sauriez-vous comment?
