Incrementation selon bornes

[Art]

Bonjour à tous
Voici mon probleme:
Dans ma colonne A j'ai ceci:
A ------------
1




2

3


4


5
J'aimerais remplir les cellules vides avec la valeur se trouvant au dessus:
Exemple:
A -------------
1
1
1
1
1
2
2
3
3
3
4
4
4
5
A l'aide d'une formule ou d'une macro
Car la je seche
Merci à vous tous
@+
Art

 

[Jef]

salut art
essaye cette macro

Sub remplir_interevale()

fin = 50
colonne = 1
For i = 1 To fin
If Cells(i, colonne) = Empty Then
Cells(i, colonne).Value = precedente
Else
precedente = Cells(i, colonne)
End If
Next i
End Sub

Cette macro ne traite que les 50 premieres cellule de la colonne 1.
a toi de modifier selon ton besoin...

Bonne chance
jef

 

[Art]

Merci jef
J'essaye et je revient
@+
Art

 

[Art]

Re Jef
Mille merci, ta macro fonctionne super bien.
Par contre, est il aussi possible de commencer aussi la lecture par le bas pour remonter le remplissage:
Par exemple:
A -------------




1


2



3
Pour obtenir:
A -------------
1
1
1
1
1
2
2
2
3
3
3
3
Encore merci pour tout et à tous
@+
Art

 

[Jef]

bien sur, il suffit de remplacer la ligne

For i = 1 To fin

par

For i = fin To 1 step-1

A+
jef

 

[Art]

Super jef
Ca marche impecc
Merci
@+
Art