INCREMENTATION automatique d'une suite

O

ODVJ

XLDnaute Impliqué

• 13 Octobre 2006

• #2

Re : INCREMENTATION automatique d'une suite

Bonjour à tous,

une formule matricielle pompée et adaptée du fichier jb-fonctionsmatricielles.xls sur excelabo :

A2=numdeb-1+EQUIV(B3;SI(ESTNUM(PETITE.VALEUR(SI(EQUIV(mazone;mazone;0)=LIGNE(INDIRECT("1:"&LIGNES(mazone)));mazone);LIGNE(INDIRECT("1:"&LIGNES(mazone)))));PETITE.VALEUR(SI(EQUIV(mazone;mazone;0)=LIGNE(INDIRECT("1:"&LIGNES(mazone)));mazone);LIGNE(INDIRECT("1:"&LIGNES(mazone))));""))

Cliquez pour agrandir...

numdeb est le n° de départ de la numérotation
mazone est la zone où se trouvent les n°s à réindexer.
mazone peut être dans n'importe quel ordre, avec trous et avec répétition.

cordialement

 

Vote positif 0 Vote négatif

cephalotus

XLDnaute Occasionnel

• 13 Octobre 2006

• #3

Re : INCREMENTATION automatique d'une suite

Bonjour ODVJ, le forum,


Merci pour ta réponse. Je te joint mon fichier avec comme exemple le début de ma colonne incrémentée à la main.

En effte, je ne sais pas si ta formule fonctionne, car je ne suis pas arrivé à l'adapter.


Merci pour ta, vos réponses.

 

Pièces jointes

• Test incrémentation.zip

  17.6 KB · Affichages: 50

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 13 Octobre 2006

• #4

Re : INCREMENTATION automatique d'une suite

Bonjour le fil,

Comme je suis une grosse quiche en formule, je te propose une petite macro qui a l'air de fonctionner sur ton exemple (petite précision, les donénes doivent etre triées comme c'est le cas dans ton exemple) :

Code:

Sub test()
Dim i&, cpt&
cpt = 1
For i = 2 To Range("B65536").End(xlUp).Row
    If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
        Cells(i, 1).Value = cpt
    Else
        Cells(i, 1).Value = cpt
        cpt = cpt + 1
    End If
Next i
End Sub

@+

 

Vote positif 0 Vote négatif

cephalotus

XLDnaute Occasionnel

• 13 Octobre 2006

• #5

Re : INCREMENTATION automatique d'une suite

Merci à toi, Porcinet82, ta macro fonctionne parfaitement

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 13 Octobre 2006

• #6

Re : INCREMENTATION automatique d'une suite

cephalotus à dit:

Bonjour ODVJ, le forum,


Merci pour ta réponse. Je te joint mon fichier avec comme exemple le début de ma colonne incrémentée à la main.

En effte, je ne sais pas si ta formule fonctionne, car je ne suis pas arrivé à l'adapter.


Merci pour ta, vos réponses.

Cliquez pour agrandir...

Salut
Une macro sur la feuille de code liée (Clic-droit sur onglet>>Visualiser le code)
Un peu lente 3 boucles
boucle 1, chargement des valeurs dans un tableau => ne tient compte que des valeurs numériques en B

boucle 2 le tri du plus petit au plus grand

Boucle 3 inscription du numéro de série

La macro ne tient pas compte del'organisation de la feuille.
Si les données sont triées en B croissant, une formule simple ira plus vite
A2 : 1
A3 : = si(B3=B2;A2;A2+1) avec recopie incrémentielle et un copier/collage spécial valeur de A sur A pour figer le résultat
ou une macro qui fait la même chose :

Code:

Sub Macro1()
Dim X As Long
  Columns(2).Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("A2") = 1
For X = 3 To Range("B65536").End(xlUp).Row
    Range("A" & X) = IIf(Range("B" & X) = Range("B" & X - 1), Range("A" & X - 1), _
                                                    Range("A" & X - 1) + 1)
Next X
End Sub

nettement plus rapide

A+

 

Pièces jointes

• Test incrémentation mod.zip

  23.1 KB · Affichages: 50

Dernière édition: 13 Octobre 2006

Vote positif 0 Vote négatif

cephalotus

XLDnaute Occasionnel

• 18 Octobre 2006

• #7

Re : INCREMENTATION automatique d'une suite

Bonjour le forum,


la macro de Porcinet82 fonctionne très bien. Je voudrais maintenant la modifier pour faire la même chose, mais à partir du numéro 330 sur une autre feuille de mon fichier.

Pourriez-vous m'expliquer comment faire.

Merci pour vos réponses




Sub test()
Dim i&, cpt&
cpt = 1
For i = 2 To Range("B65536").End(xlUp).Row
If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
Cells(i, 1).Value = cpt
Else
Cells(i, 1).Value = cpt
cpt = cpt + 1
End If
Next i
End Sub

 

Vote positif 0 Vote négatif

cephalotus

XLDnaute Occasionnel

• 18 Octobre 2006

• #8

Re : INCREMENTATION automatique d'une suite

Voici la réponse à ma question qui m'a était donnée par Allegros50, merci à lui.

Donc, pour changer le numéro de l'incrémentation, moi je veux commencer à 330, il faut mettre:

cpt = 330 au lieu de 1

Et voilà !! C’est super simple, quand on le sait !

 

Vote positif 0 Vote négatif