XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide

[philmaure]

Bonjour
Par macro je recopie un ensemble de données et sur la première colonne vide j'indique la date
Je souhaiterai que la date du jour soir indiquée pour l'ensemble des lignes non vides.
La macro que j'itilise est :
Sub Histo_Ajout_Date()

'Ajout de la date du jour à chaque enregistrement unique
Dim derniereCol As Long


Sheets("Historique_").Select
Range("a22").Select
Dim derligne As Long

derligne = Range("I65536").End(xlUp).Row + 1
Cells(derligne, 9).Select

ActiveCell.Value = Date

End Sub

En pièce jointe un exemple pour illustrer ma demande
Merci pour votre aide
Cordialement
Philmaure

 

[sylvanu]

Bonsoir philmaure,

pour l'ensemble des lignes non vides.

Un essai en PJ; la macro met la date sur toutes les lignes non vides dont la colonne G est Vide. Ai je bien compris ?

Sub Histo_Ajout_Date()
'Ajout de la date du jour à chaque enregistrement unique
Dim PremL%, DerL%
Application.ScreenUpdating = False
PremL = 1 + Cells(Rows.Count, "G").End(xlUp).Row
DerL = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(PremL, "G"), Cells(DerL, "G")) = Date
End Sub