remplir les cellules vides d'une colonne avec la valeur au dessus

[issamito]

salut tout le monde,
j'aimerais solliciter votre aides concernant le problème suivant; en effet j'ai un colonne de plus de 15000 lignes avec des cellules contenant des valeurs entrecoupées d'autres cellules vides, ce que j'aimerais faire c'est remplir les cellue vides avec les valeurs au dessus, comme suit:
a



b


c


etc

afin d'aboutir à
a
a
a
a
b
b
b
c
c
c
etc....
merci d'avance

 

[nat54]

Re : remplir les cellules vides d'une colonne avec la valeur au dessus

Mince j'avais demandé un truc comme ca pour mon stage
et je ne retrouve pas ma macro

 

[Hervé]

Re : remplir les cellules vides d'une colonne avec la valeur au dessus

bonjour

avec boucle :

Dim c As Range

For Each c In Range("a1:a" & Range("a65536").End(xlUp).Row)
If c = "" Then c = c.Offset(-1, 0)
Next c

sans boucle :

'd'alain vallon
With Range("a1:a" & Range("a65536").End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
    .Value = .Value
End With

salut

 

[grisby]

Re : remplir les cellules vides d'une colonne avec la valeur au dessus

Reponse sans macro (en ayant eu besoin recemment)

* Selectionner la colonne
* Edition > Atteindre ...
* Cliquer sur le bouton Cellules
* Sélectionner Cellules vides , puis valider
* cliquer dans la barre de formule
* taper " = A2"(Première cellule de dessus non vide)
* CTRL + Entree