Etendre la formule Date tout en gardant la date du jour

Bonjour,

J'aimerais pouvoir étendre ma date du jour aux autres lignes de mon tableau mais en gardant la valeur de cette dernière.

Pour l'instant j'ai ce code pour afficher la date du jour à la première ligne vide de mon tableau.

Sub Data()
Dim DernLigneH As Long

    DernLigneH = Range("H" & Rows.Count).End(xlUp).Row + 1

    Range("H" & DernLigneH) = Date

End Sub

Pour remplir les lignes automatiquement grace à un bouton (équivalent à faire un double clic dans Excel) j'utilise ce code là :

Sub Extension_formule()
Dim DernLigneG As Long
Dim DernLigneH As Long

   DernLigneG = Range("G" & Rows.Count).End(xlUp).Row
   DernLigneH = Range("H" & Rows.Count).End(xlUp).Row
   Range("H" & DernLigneH).AutoFill Destination:=Range("H" & DernLigneH & ":H" & DernLigneG)

End Sub

Mais bien sur comme dans excel quand on étend une formule date on obtient à chaque ligne le jour +1 (03/07/2023, 04/07/2023, 05/07/2023...)

Dans mon cas, j'aimerais garder la meme valeur.

Merci d'avance pour votre retour.

Greg

Bonjour,

Peut-être en modifiant le type de recopie :

Range("H" & DernLigneH).AutoFill Destination:=Range("H" & DernLigneH & ":H" & DernLigneG) , Type:=xlFillCopy

Ou tout simplement, si c'est pour mettre la date du jour :

Range("H" & DernLigneH & ":H" & DernLigneG).Value = Date

Bonne apm

Merci,

Modifier le type fonctionne.

Bonne apm à toi aussi !