XL 2019 Numéros en ordre décroissant

Staple1600

XLDnaute Barbatruc

• 18 Mars 2023

• #2

Bonsoir

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

 

Vote positif 0 Vote négatif

N

Nico13

XLDnaute Nouveau

• 18 Mars 2023

• #3

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mars 2023

• #4

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

 

Vote positif 0 Vote négatif

N

Nico13

XLDnaute Nouveau

• 18 Mars 2023

• #5

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mars 2023

• #6

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

 

Vote positif 0 Vote négatif

N

Nico13

XLDnaute Nouveau

• 19 Mars 2023

• #7

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.

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 20 Mars 2023

• #8

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

 

Vote positif 0 Vote négatif