[VBA-E] incrémentation inversée

Re bounjour,
Je cherche une solution pour incrémenter une série de données à partir d'une seule valeur, et dans l'ordre inverse d'une incrémentation normale.
Je m'explique, dans une cellule, j'ai une valeur( par ex., la valeur 35)
Dans la les cellules situés dessous, je voudrais crée une série qui va de 37 à 1.
J'ai essayé Autofill avec le type xlfillseries, mais j'obtient 35,36,37,38,....
Et je voudrais le contraire.
J'ai essayé aussi avec une boucle For/Next, mais c'était pas concluant.
Y'a quelqu'un qui a une idée?
Merci d'avance
:?:

et en décrementant tout simplement ta valeur a la main ? avec un truc du style :

Code:

---

1 2 3 4 5

do TaValeur= TaValeur-1 .cells(i,j)=TaValeur i=i-1 Loop until TaValeur >1

---

Squelet, tu abuses: c'est pas dur, avec les tutoriels, et les précédents posts. Et tu ne nous donnes même pas le code que tu as essayé.
Ca veut dire quoi, "mais c'était pas concluant" ?
Allez, montre moi ce que tu as écris, parce que je ne veux pas te filer le code tout cuit comme ça sans que tu cherches à comprendre.

Et oui, j'abuse ....
Mais j'ai quand même réussi mon truc avec çà.

Code:

---

1 2 3 4 5

For i = Compteur To 2 Step -1 Compteur = Compteur - 1 Ligne = Ligne + 1 Cells(Ligne, 13) = Compteur Next

---

Compteur est ma valeur de départ.
C'était tout simple mais je n'avais pas mis le bon code pour Cells.

Allez, à la prochaine pour un autre abus.
Merci quand même.
:scarymov:

Salut, abuseur!
Tu vois, tu y es arrivé, c'est bien!
cependant, une petite remarque sur ton code:
Si tu supprimes la ligne

Code:

---

Compteur = Compteur - 1

---

et que tu remplaces

Code:

---

Cells(Ligne, 13) = Compteur

---

par

Code:

---

Cells(Ligne, 13) = i - 1

---

, ça change quoi?
Bref, tu fais moins de calcul, et tu utilises vraiment le fait de compter à l'envers dans ta boucle "for... next".
:D

Effectivement, tu as raison !
:ccool:
Mais mes vieux neurones, en sont encore à comprendre le code, et pas à le rendre performant
:koi:
En tout cas, je te remercie pour cette précision, et tacherais de moins abuser.

" Il n'y a guère au monde un plus bel excès que celui de la reconnaissance. "
La Bruyère