Solution macro date

pierre64 -  
pierre64200 Messages postés 22 Statut Membre -
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

2 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. pierre64200 Messages postés 22 Statut Membre
       
      Voici un exemple en dessous
      0