[RESOLU]Copier des dates et utilisation de ISdate?

[Yaniv]

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

 

[Pierrot93]

Re : Copier des dates et utilisation de ISdate?

Bonjour,

peut être ceci :

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

bon après midi
@+

 

[Yaniv]

Re : Copier des dates et utilisation de ISdate?

Bonjour merci pour votre reponse , j ai appliquer la macro toutefois j ai des #REF! partout , peut etre un probleme de format de date ?

 

[Pierrot93]

Re : Copier des dates et utilisation de ISdate?

Re,

bah... pesro pas de problème dans le fichier que tu as joint...

 

[job75]

Re : Copier des dates et utilisation de ISdate?

Bonjour Yaniv,

Fichier joint avec cette macro :

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

Edit : bonjour Pierrot, pas rafraîchi

A+

 

[Yaniv]

Re : Copier des dates et utilisation de ISdate?

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