XL 2010 incrémentation - numérotation

matoupitou · 17 Janvier 2023

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 · 17 Janvier 2023

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

vgendron · 17 Janvier 2023

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 · 17 Janvier 2023

vgendron à dit:
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 · 17 Janvier 2023

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 · 17 Janvier 2023

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 · 17 Janvier 2023

Phil69970 à dit:
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 · 17 Janvier 2023

Re

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

@Phil69970

vgendron · 17 Janvier 2023

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 · 17 Janvier 2023

Refresh pas assez rapide de mon coté

matoupitou · 17 Janvier 2023

vgendron à dit:
Refresh pas assez rapide de mon coté

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

patricktoulon · 17 Janvier 2023

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

VB:

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

VB:

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

XL 2010 incrémentation - numérotation

matoupitou

XLDnaute Occasionnel

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

matoupitou

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

matoupitou

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

matoupitou

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires