Formule de remplissage de cellule sous condition ESTVIDE

sardaucar

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re : Formule de remplissage de cellule sous condition ESTVIDE

Bonjour le Forum,
Bonjour sardaucar

un test en fichier joint

Cordialement
 

Pièces jointes

  • Classeur2.xlsx
    8.3 KB · Affichages: 33
  • Classeur2.xlsx
    8.3 KB · Affichages: 31

CPk

XLDnaute Impliqué
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.

Code:
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
 

Discussions similaires

Réponses
3
Affichages
178
Réponses
0
Affichages
141

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs