List 25 to 1

C

Compte Supprimé 979

Guest

• 6 Mars 2019

• #2

 

Vote positif 0 Vote négatif

Simply

XLDnaute Occasionnel

• 6 Mars 2019

• #3

Hi

VB:

Range("A1").Value = 26
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) = Evaluate("A1-row(1:25)")

😡

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Mars 2019

• #4

Good luck

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Mars 2019

• #5

Bonjour Simply, Bruno,

C'est clair comme de l'eau de source hein Bruno :

VB:

[A1] = 26
[A1].Resize([A1]).DataSeries Step:=-1

A+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Mars 2019

• #6

Salut job75
Si tu as compris, c'est le principal

 

Vote positif 0 Vote négatif