répéter une valeur dans une colonne

Bonjour Christophe Cerbourg.

C'est plus rapide en VBA qu'à la mimine.

Sub test()
colonne = 1
derniere = ActiveCell.SpecialCells(xlLastCell).Row
For ligne = 2 To derniere
If Cells(ligne, colonne) = "" Then
Cells(ligne - 1, colonne).Copy Cells(ligne, colonne)
End If
Next

End Sub

Salutations.

"Christophe Cerbourg" <someone@some.where> wrote in message
news:e9H4C7eMFHA.688@TK2MSFTNGP10.phx.gbl...

Bonjour,

dans une colonne dont seulement quelques lignes sont renseignées, je
cherche

à répéter la valeur de la dernière ligne non vide dans les cellules vides
du

dessous, jusqu'à une nouvelle cellule non vide, etc...
Exemple :

aaa


bbb

ccc



ddd

doit devenir
aaa
aaa
aaa
bbb
bbb
ccc
ccc
ccc
ccc
ddd
ddd
etc...

Merci pour toute idée car le fichier est très gros et je ne me sens pas
trop

de faire ça à la mimine...

Bonjour ,
Sélectionner toute cette colonne jusqu'à la limite inférireure des données
F5 (atteindre)
Cellules
Vides
appuyer sur puis sur la flèche vers le haut pour sélectionner une cellule audessus
puis Entrée

Et voili!

lSteph

"Christophe Cerbourg" <someone@some.where> a écrit dans le message de news:
e9H4C7eMFHA.688@TK2MSFTNGP10.phx.gbl...

Bonjour,

dans une colonne dont seulement quelques lignes sont renseignées, je
cherche
à répéter la valeur de la dernière ligne non vide dans les cellules vides
du
dessous, jusqu'à une nouvelle cellule non vide, etc...
Exemple :

aaa


bbb

ccc



ddd

doit devenir
aaa
aaa
aaa
bbb
bbb
ccc
ccc
ccc
ccc
ddd
ddd
etc...

Merci pour toute idée car le fichier est très gros et je ne me sens pas
trop
de faire ça à la mimine...

merci pour ton aide, mais si je fais ça, ça copie effectivement aaa dans ma
première cellule vide sous aaa, mais pas plus !


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%232355kfMFHA.4076@TK2MSFTNGP10.phx.gbl...

Bonjour ,
Sélectionner toute cette colonne jusqu'à la limite inférireure des données
F5 (atteindre)
Cellules
Vides
appuyer sur > puis sur la flèche vers le haut pour sélectionner une cellule audessus
puis Entrée

Et voili!

lSteph

merci !

:?
le principe est d'entrer = (la cellule d'au dessus) dans toutes les
cellules vides de la sélection
au pire si ta colonne ne fait pas partie d'une matrice la dernière valeur ne
serait pas répétée
car f5 limitera la sélection des vides à la dernière valeur ou texte
rencontré
(il suffit alors d'étendre la sélection jusqu'à une cellule non vide juste
sous la limite souhaitée)
si tu fais comme j'ai proposé cela fonctionne, m'en sers tout le temps...

amicalement

lSteph

"Christophe Cerbourg" <someone@some.where> a écrit dans le message de news:
u1pnVegMFHA.244@TK2MSFTNGP12.phx.gbl...

merci pour ton aide, mais si je fais ça, ça copie effectivement aaa dans
ma
première cellule vide sous aaa, mais pas plus !


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%232355kfMFHA.4076@TK2MSFTNGP10.phx.gbl...

Bonjour ,
Sélectionner toute cette colonne jusqu'à la limite inférireure des
données
F5 (atteindre)
Cellules
Vides
appuyer sur >> puis sur la flèche vers le haut pour sélectionner une cellule audessus
puis Entrée

Et voili!

lSteph

Autre (sans boucle donc rapide) :

Sub zzz()
Set plg = Range("A1", [A65536].End(3))
plg.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
[plg].Value = [plg].Value
End Sub

AV