décomptage

un truc dnas le genre
Sub decompte()

For I = 53 To 0 Step -1
Cells(54 - I, 1).Value = 7350 - (54 - I) * 50
Next
End Sub

A+

-----Message d'origine-----

bonjour,

j'ai une valeur de départ=7300
une valeur d'arrivée=4650
Comment décompter 50 à la valeur de départ pour arriver à
4650 en

incrémentant d'une cellule à chaque fois?
merci


.

Bonjour,
simplement
en a2 écris 7300 en a3 7250
et fais une recopie incrémentée jusqu'à 4650

en formule
en a2 tu mets 7300
en a3:a55
¢-50
Ctrl+entrée

en vba

sub aaaz()
dim i as integer
[a2].select
for i = 7300 to 4650 step -50
with activecell
.value=i
.offset(1,0).select
end with
next
end sub

'lSteph

"olivier" <olivier.daheron@free.fr> a écrit dans le message de news:
41e2e66a$0$22729$636a15ce@news.free.fr...

bonjour,
j'ai une valeur de départs00
une valeur d'arrivéeF50
Comment décompter 50 à la valeur de départ pour arriver à 4650 en
incrémentant d'une cellule à chaque fois?
merci

Bonjour.

Valeur de départs00 en A1.

Sub Remplir()
Range("A1:A" & [A1]).DataSeries , , , -50&, 4650&
End Sub

Alain CROS


"olivier" <olivier.daheron@free.fr> a écrit dans le message de news: 41e2e66a$0$22729$636a15ce@news.free.fr...

bonjour,
j'ai une valeur de départs00
une valeur d'arrivéeF50
Comment décompter 50 à la valeur de départ pour arriver à 4650 en
incrémentant d'une cellule à chaque fois?
merci

d :-)

"Alain CROS" <Personne@ICI> a écrit dans le message de news:
%23YecDh19EHA.220@TK2MSFTNGP09.phx.gbl...

Bonjour.

Valeur de départs00 en A1.

Sub Remplir()
Range("A1:A" & [A1]).DataSeries , , , -50&, 4650&
End Sub

Alain CROS


"olivier" <olivier.daheron@free.fr> a écrit dans le message de news:
41e2e66a$0$22729$636a15ce@news.free.fr...

bonjour,
j'ai une valeur de départs00
une valeur d'arrivéeF50
Comment décompter 50 à la valeur de départ pour arriver à 4650 en
incrémentant d'une cellule à chaque fois?
merci