Changement de ligne par rapport à une date

Bonjour,

Dans mon fichier ci-joint en feuille 4 (courbe2017), j'ai tenté de faire une macro pou mettre à jour mes données suivant la date du jour.

Si la date du jour est comprise entre .... et ...... alors on copie colle les valeurs ici.....

Or ma variable date du jour ne fonctionne pas et étant débutant je ne trouve pas l'erreur...

Pourriez vous m'aider ?

Merci d'avance !

Bonjour,

teste en modifiant les conditions comme ceci

If Range("E8") < today And today <= Range("E9") Then

Voir remplacer ta procédure par celle-ci

Sub MAJ()

Dim today As Date, i%, DL%
today = Date
DL = Range("F54").End(xlUp).Row
    For i = 2 To DL
        If Cells(DL - 1, 5) < today And today <= Cells(DL, 5) Then
            Cells(DL, 6).Value = Range("C1").Value
            Cells(DL, 7).Value = Range("C2").Value
            Cells(DL, 8).Value = Range("C3").Value
            Cells(DL, 9).Value = Range("C4").Value
            Cells(DL, 10).Value = Range("C5").Value
            Cells(DL, 11).Value = Range("C6").Value
            Else
            DL = DL + 1
        End If
    Next i
End Sub

Super !

Merci beaucoup la première solution fonctionne parfaitement !

Le deuxième encadré j'imagine que c'est pour éviter d'écrire un long vba comme je l'ai fait ?