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

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. Frédérikkkk
       
      Super merci beaucoup!!!
      0

Discussions similaires

MFG pas encore arrivée
kkwtanne -
brucine -

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

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

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

2 réponses
Abonnement jm date
Ravesky -
bazfile -

1 réponse