XL 2019 Numéros en ordre décroissant

[Nico13]

Bonjour,
Je souhaiterais créer une formule me permettant de mettre des numéros dans une colonne dans un ordre décroissant à partir d'un nombre de départ. Plus concrètement, imaginons que je mette 2000 dans la cellule A1, je souhaiterais que dans la colonne B, B1 devienne 2000, B2 devienne 1999, B3 devienne 1998, etc... jusqu'à 1. Je voudrais néanmoins que cela soit automatisé via une formule de manière à ce que si je change le chiffre en A1, une nouvelle liste décroissante se créée automatiquement du nouveau nombre à 1. Merci par avance pour vos conseils !

 

[Staple1600]

Bonsoir

Essaie en B1
=$A$1-(LIGNE()-1)
puis recopie la formule vers le bas

 

[Nico13]

Bonsoir,
Merci pour cette réponse rapide. J'avais pensé à cette solution. Mais en fait, je souhaiterais que ce soit automatisé et que je n'ai pas à étendre la formule à chaque fois, de façon à ce que je puisse changer le nombre en A1 et que ça fasse une nouvelle liste sans recopier la formule.

 

[Staple1600]

Re

Alors une autre voie, sans formules, mais avec de l'automatisme inside
(Ci-dessous deux exemples)

Sub test_A()
Range("A:B").ClearContents
decroitre 50
End Sub
Sub test_B()
Range("A:B").ClearContents
decroitre 1600
End Sub

Private Sub decroitre(Optional Nombre = 2000)
[A1] = Nombre
[B1] = [A1]
Cells(1, "B").Resize(Nombre).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=-1, Stop:=1, Trend:=False
End Sub

EDITION: Juste pour passer le temps (histoire que mon café refroidisse
La version light

Private Sub decroitre(Optional Nbr = 2000)
[A1] = Nbr: [B1] = [A1]: [B1].Resize(Nbr).DataSeries 2, -4132, 1, -1, 1, 0
End Sub

 

[Nico13]

Merci

 

[Staple1600]

Question au passage
Pourquoi avoir créer deux discussions pour la même question ???

 

[Nico13]

Je n'étais pas connecté pour la première et quand j'ai voulu envoyer, j'ai été redirigé sur la page d'inscription. Je ne pensais pas qu'elle serait quand même envoyée. Désolé pour le doublon.

 

[CISCO]

Bonjour

La formule de Staple1600 convient presque. Il suffit que tu le fasse une fois, en tirant la formule très, très bas :
En B1, =A1
En B2, =SI(OU(B1=0;B1="");"";$A$1-(LIGNE()-1))

@ plus