Solution macro date

pierre64 -  
pierre64200 Messages postés 21 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je vous explique mon problème:
J'aimerai crée une macro qui me renvoi la date d'hier jusqu’à la dernière ligne occupée.
Pour cela j'ai crée ce code:

Sub Recopiage_Dates()
With Sheets("Novembre")
LastRow = .Cells(Rows.Count, "B").End(xlUp).Row
Range("O18").Select
ActiveCell.FormulaR1C1 = "11/1/2015"
Range("O19").Select
ActiveCell.FormulaR1C1 = "11/1/2015"
Range("O18:O19").Select
Selection.AutoFill Destination:=Range("O18:O" & LastRow)
End With
End Sub

Le problème est que ça ne recopie que le 1/11/2015 jusqu’à la dernière ligne. Super si on est le 2/11/2015; mais je voudrai que le 3/11/2015, a partir de la première cellules vide de ma colonnes O, cela affiche le 02/11/2015 jusqu’à la dernière ligne recopier en dessous des données du 01/11/2015, et ainsi de suite pour le mois de novembre.

Avez vous des idées ?

Merci pour votre aide!!

Bien cordialement

A voir également:

2 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

Le problème est que ça ne recopie que le 1/11/2015 jusqu’à la dernière ligne. Super si on est le 2/11/2015; mais je voudrai que le 3/11/2015, a partir de la première cellules vide de ma colonnes O, cela affiche le 02/11/2015 jusqu’à la dernière ligne recopier en dessous des données du 01/11/2015, et ainsi de suite pour le mois de novembre.


Hein ?
--
 Michel
0
pierre64200 Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
Voici un exemple en dessous
0
pierre64200 Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
0