Discussion :

[BtjpsspgrW]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Insertion_Date()
ActiveSheet. Range("A1") = Date -1
End Sub

Je voudrais apporter une modification à la macro exposée ci-dessus :
C'est-à dire que lorsque j'exécute cette macro le lundi, alors le contenu de la cellule A1 est Date - 3,
Sinon pour tous les autres jours, le contenu de la cellule A1 est Date -1.

Je ne vois pas comment faire.

Vous en remerciant par avance.

Cordialement.

[Thautheme]

Boisoir Werwelrwr, bonsoir le forum,

Essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Insertion_Date()
ActiveSheet.Range("A1") = IIf(Weekday(Date) = 2, Date - 3, Date - 1)
End Sub

Regarde les paramètres de Weekday...

[Marc-L]

Bonsoir,

juste une variante d'écriture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Insertion_Date()
    ActiveSheet.[A1].Value = Date - 1 + (Weekday(Date) = 2) * 2
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …