Autofill Date

Résolu
Frédérikkkk -  
 Frédérikkkk -
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

Réponse 1 / 1
michel_m Messages postés 18903 Statut Contributeur 3 317
 
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
 
Super merci beaucoup!!!
0

Discussions similaires

MFG pas encore arrivée
kkwtanne -
brucine -

2 réponses
[Excel] Méthode Autofill dans une macro
Arn's -
pijaku -

2 réponses
je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses