Autofill Date

Résolu/Fermé
Frédérikkkk - 2 mars 2015 à 23:37
 Frédérikkkk - 3 mars 2015 à 14:38
Bonjour,

Dans une colonne qui démarre à "C23" avec la date 2/17/2015, j'aimerais pouvoir descendre cette colonne cellule par cellule en l'incrémentant d'une journée par cellule jusqu'à ce qu'on atteigne la date d'aujourd'hui.

Exemple nous sommes le 2 mars 2015:
Case C23 = 2/17/2015
Case C24 = 2/18/2015
Case C25 = 2/19/2015
Etc.
Jusqu'à Case C36 = 3/02/2015 et que ça arrête là

Merci!


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
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

0
Frédérikkkk
3 mars 2015 à 14:38
Super merci beaucoup!!!
0