Formule de remplissage de cellule sous condition ESTVIDE

[sardaucar]

Bonjour à tous,

Je dois remplir des cellules d'une colonne par rapport à la date indiquée dans la dernière cellule non vide comme il suit :

30/06/2012


01/06/2012

02/06/2012


Doit donner :

30/06/2012
30/06/2012
30/06/2012
01/06/2012
01/06/2012
02/06/2012
02/06/2012

Comme le nombre de lignes vides entre chaque dates saisies varie, je n'arrive pas à trouver une formule pour un remplissage automatique (il y a plus de 3000 lignes :/). J'avais pensé à "=SI(ESTVIDE(A2);A1;A2)" mais ça ne fonctionne pas.

Si vous aviez une idée de formule ce serait formidable !

 

[Jocelyn]

Re : Formule de remplissage de cellule sous condition ESTVIDE

Bonjour le Forum,
Bonjour sardaucar

un test en fichier joint

Cordialement

 

[CPk]

Re : Formule de remplissage de cellule sous condition ESTVIDE

Bonjour pour un très grand nombre de ligne, une possibilité par macro. Il faut bien evidement adapter les axes.

Sub etirer()
    dl = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    i = 1
    Do While Feuil1.Cells(i, 1).Row < dl
        With Feuil1
            If .Cells(i + 1, 1) = "" Then
                .Cells(i, 1).AutoFill Range(.Cells(i, 1), .Cells(i, 1).End(xlDown).Offset(-1, 0)), 1
            End If
            i = i + 1
            End With
        Loop
    End Sub

 

[sardaucar]

Re : Formule de remplissage de cellule sous condition ESTVIDE

Parfait vos deux solutions marchent à merveille ! merci beaucoup.

 

[CPk]

Re : Formule de remplissage de cellule sous condition ESTVIDE

Qu'il en soit ainsi ! Amen !