bonjour je dispose du fichier test ci joint. ce que j aimerais faire pour l optimiser , c est de pouvoir reporter sur toutes les lignes qui ne sont pas des dates (dans la colonne A) la derniere trouvee par ma macro.
En gros j aimerais par exemple si la premiere date trouvee est le 4 mars 2013 reporter sur toutes les lignes suivantes cette meme date jusqu a ce que ma macro en trouve une nouvelle et ainsi de suite
Sub test()
On Error Resume Next
With Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
On Error GoTo 0
End Sub
Sub Remplir()
Dim a As Range
On Error Resume Next 'si aucune cellule vide
For Each a In [A:A].SpecialCells(xlCellTypeBlanks).Areas
a = a(0)
Next
End Sub
Merci a vous les amis , Pierrot effectivement ton fichier marchait , j avais reinitialise mon fichier (donc j avais pas lance ma macro avant) merci pour tout , mon probleme est resolu . Bonne journée