Incrementation selon bornes

J

Jef

Guest

• 7 Décembre 2004

• #2

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

 

Vote positif 0 Vote négatif

A

Art

Guest

• 7 Décembre 2004

• #3

Merci jef
J'essaye et je revient
@+
Art

 

Vote positif 0 Vote négatif

A

Art

Guest

• 7 Décembre 2004

• #4

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

 

Vote positif 0 Vote négatif

J

Jef

Guest

• 7 Décembre 2004

• #5

bien sur, il suffit de remplacer la ligne

For i = 1 To fin

par

For i = fin To 1 step-1

A+
jef

 

Vote positif 0 Vote négatif

A

Art

Guest

• 8 Décembre 2004

• #6

Super jef
Ca marche impecc
Merci
@+
Art

 

Vote positif 0 Vote négatif