Copier Valeur de la cellule avec SI condition

Bonjour,

J'utilise les dates dans des cellules, j'ai une cellule où j'ai la formule =Aujourd'hui, si Aujourd'hui correspond à la valeur de la cellule alors faire un copier coller en valeur sur cette même cellule

je souhaite avoir une formule avec SI pour que ça se déroule automatiquement

ci joint un fichier à titre d'exemple

merci

Bonjour,

Il faudrait que la date d'aujourd'hui se rajoute où ?

pagesalex a écrit :

Bonjour,

Il faudrait que la date d'aujourd'hui se rajoute où ?

Re,

je souhaite que ça remplace la cellule où il y'a =Aujourd'hui

merci

Essaie avec ça :

Private Sub Worksheet_Activate()

l = ActiveSheet.Range("B65536").End(xlUp).Row

    ActiveSheet.Cells(l, 2) = CDate(Format(Now, "dd/mm/yyyy"))

    ActiveSheet.Cells(l + 1, 2) = CDate(DateAdd("d", 1, Now))

End Sub

l correspond à la derniere ligne de ta colonne

Private Sub Worksheet_Activate()

l = ActiveSheet.Range("B65536").End(xlUp).Row
i = ActiveSheet.Range("B65536").End(xlUp).Value

j = Format(Now, "dd/mm/yyyy")
k = Format(i, "dd/mm/yyyy")

'MsgBox j
'MsgBox k

    If j = k Then

    ActiveSheet.Cells(l, 2) = CDate(Format(Now, "dd/mm/yyyy"))

    ActiveSheet.Cells(l + 1, 2) = CDate(DateAdd("d", 1, Now))

    End If

End Sub

Avec ça ma modif se fera une seule fois la premiere fois ou tu activera la feuille