XL 2019 Numéros en ordre décroissant

Nico13

XLDnaute Nouveau
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 ! :)
 

Nico13

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re

Alors une autre voie, sans formules, mais avec de l'automatisme inside ;)
(Ci-dessous deux exemples)
Code:
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
Code:
Private Sub decroitre(Optional Nbr = 2000)
[A1] = Nbr: [B1] = [A1]: [B1].Resize(Nbr).DataSeries 2, -4132, 1, -1, 1, 0
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG