XL 2010 incrémentation - numérotation

[matoupitou]

très chers 'aidants'

je cherche s'il est possible de numéroter 1,2,3 etc... une ligne X puis on remonte jusqu'à la première
En PJ un exemple pour mieux visualiser ce que j'exprime peut-être un peu mal

par avance merci++

 

[vgendron]

Bonjour

si je comprend bien tu veux numéroter en DEcrémentant
deux façons
1) en A1 tu tapes 20
en A2, tu tapes 19
tu selectionnes A1:A2
tu places la souris sur le coint inférieur droit (le curseur devient une croix)
en maintenant le clic souris, tu descends (=tu tires) vers le bas jusqu'a la valeur finale que tu souhaites

2) en A1: tu tapes la première valeur souhaitée (ici 20)
en B1, tu écris la formule
=$A$1-LIGNE()+1

et tu tires la formule (clic maintenu sur le coin inférieur droit de la cellule B1

 

[matoupitou]

Bonjour

si je comprend bien tu veux numéroter en DEcrémentant
deux façons
1) en A1 tu tapes 20
en A2, tu tapes 19
tu selectionnes A1:A2
tu places la souris sur le coint inférieur droit (le curseur devient une croix)
en maintenant le clic souris, tu descends (=tu tires) vers le bas jusqu'a la valeur finale que tu souhaites

2) en A1: tu tapes la première valeur souhaitée (ici 20)
en B1, tu écris la formule
=$A$1-LIGNE()+1

et tu tires la formule (clic maintenu sur le coin inférieur droit de la cellule B1

merci vgendron (et je savais bien que je m'étais mal exprimé) - alors je RE-tente
oui c bien décrémenter (lol)
en revanche, je ne sais pas de quelle cellule je dois partir (là l'exemple c'était la ligne 20 mais parfois c plus bas)
pas sûre du coup qu'il y ait une solution ?!?

 

[vgendron]

la ligne de départ;. il faut bien la définir, non??
qu'est ce qui fait qu'elle à la ligne 20 dans un cas, ou à 50 dans un autre??

autre solution (qui permet donc d'INCREMENTER en REMONTANT sur la feuille)
tu mets 1 sur la ligne de départ (ex en F30)
puis en F29 (la cellule juste au dessus) tu mets =F30+1
puis tu tires la formule vers le haut

 

[Phil69970]

Bonjour @matoupitou et Vincent

Je te propose ce fichier
Pour l'exemple j'ai mis la colonne B comme dernière ligne à modifier dans le code si tu veux la colonne A

Merci de ton retour

@Phil69970

 

[matoupitou]

Bonjour @matoupitou et Vincent

Je te propose ce fichier
Pour l'exemple j'ai mis la colonne B comme dernière ligne à modifier dans le code si tu veux la colonne A

Merci de ton retour

@Phil69970

J'ai honte d'être si peu clair, merci Phil mais c'est l'inverse que je voudrais : voir ma PJ S'il-te-plait

 

[Phil69970]

Re

Gloups erreur de ma part j'ai fait 2 choses en même temps

@Phil69970

 

[vgendron]

Hello @Phil69970

je me permets de reprendre ton code modifé pour numéroter à partir de 1

@matoupitou
il te suffit de remplacer le code de Phil par celui ci
Sub Numero()
Application.ScreenUpdating = False
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row 'Controle sur colonne B
'Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'Controle sur colonne A

For i = 1 To Derlig
Range("A" & Derlig - i + 1).Value = i
Next i
End Sub

 

[vgendron]

Refresh pas assez rapide de mon coté

 

[matoupitou]

Refresh pas assez rapide de mon coté

MAIS MERCI QUOI ! à vous 2 !! quelle Team !!! - belle fin de journée

 

[patricktoulon]

re
bonjour
si le numéro décrémenté correspond au numero de ligne mettre simplement "=ligne()" dans les cellules
et combien même il ne correspondrait pas on peu faire une soustraction avec un row limite de départ
cel peut etre fait par vba et converti en dur par la suite
alors il y a diverses façons de procéder

exemple 1
en utilisant comme je le dis plus haut la formule "=ligne()"et en convertissant en dur les valeurs
ce qui fait que le calculate est engagé pour ces cellules

Sub test()
Dim derlig
derlig = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row    'Controle sur colonne B
    With Range("a1").Resize(derlig)
        .Formula = "=row()"
        .Value = .Value
    End With
End Sub

maintenant exemple 2 sans passer par le calculate puisqu'on evalue un tableau avec evalaute par vba

Sub test2()
Dim derlig
derlig = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row    'Controle sur colonne B
    With Range("a1").Resize(derlig)
           .Value = Evaluate("row(1:" & derlig & ")")
    End With
End Sub

et il y en a encore bien d'autre notamment (me semble t il )la fonction serie