Autofill Date
Résolu/Fermé
A voir également:
- Autofill Date
- Trier par date excel - Guide
- Formule excel si date supérieur à une autre date ✓ - Forum Excel
- Airpods 3 date de sortie - Guide
- Trouver une date de naissance gratuit ✓ - Forum Google Chrome
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 312
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