Macro date de la veille

Bonjour ,

J ai besoin de votre aide pour créer une macro ,pour mettre a la date de la veille en cliquant sur une image. Les cellules suivante :

f1(jour), f2(mois),f3(année).

Fonctionnement du fichier joint:

Lorsque la date (jours, mois, année )change dans les cellules f1, f2, f3 cela change en automatique les cellules f10, f11 ainsi que les cellules de k4 à k51

Merci d avance.



Bonjour, pas de fichier...

Bonjour,

J ai du réduire mon fichier car trop gros pour êtres joint

Désolé

351.xlsx (18.37 Ko)

Bonjour,

Sub DateVeille()
    Dim d
    With ActiveSheet.Range("F1")
        d = DateSerial(.Cells(3, 1), .Cells(2, 1), .Cells(1, 1)) - 1
        .Cells(1, 1).Value = Day(d)
        .Cells(2, 1).Value = Month(d)
        .Cells(3, 1).Value = Year(d)
    End With
End Sub

Cordialement.

39frayor-1.xlsm (22.90 Ko)

Merci MFerrand pour cette solution

Mais est il possible de le faire en prenant la date de l ordinateur moins 1 .

Cette question car le fichiers est fermé sans être sauvegarder donc il n aura pas la bonne date à sont démarrage

Merci d avance

Pas de problème, au lieu de : d = DateSerial...

d = Date - 1

le reste sans changement.

Cordialement.

Super c est exactement ce qui me fallait

Encore merci MFerrand

Rechercher des sujets similaires à "macro date veille"