Autofill Date
Résolu/Fermé1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
3 mars 2015 à 09:50
3 mars 2015 à 09:50
Bonjour
ub maj()
Dim Aujourdhui As Date
Dim Lig As Integer
Application.ScreenUpdating = False
Range("C24:C300").ClearContents
Aujourdhui = Date
Lig = 23
While Cells(Lig, "C") < Aujourdhui
Cells(Lig + 1, "C") = Cells(Lig, "C") + 1
Lig = Lig + 1
Wend
End Sub
3 mars 2015 à 14:38