numerotation automatique en fonction des valeurs

[floh400]

Bonjour à tous
J ai
A B
Toto vert bleu
Toto vert bleu
Toto vert bleu
Toto bleu des
Toto bleu des
Des chem AAA
Des chem AAA

Et je voudrai la numérotation suivante dans la colone A

A B
1 Toto vert bleu
1 Toto vert bleu
1 Toto vert bleu
2 Toto bleu des
2 Toto bleu des
3 Des chem AAA
3 Des chem AAA

Merci

 

[DoubleZero]

Re : numerotation automatique en fonction des valeurs

Bonjour à toutes et à tous,

Bienvenue sur XLD, floh400 !

Un essai avec le code suivant :

Sub Toto()
Dim c As Range
Application.ScreenUpdating = False
Columns("A:A").Insert
Range("A1") = 1
Range("a2:a" & Range("b65536").End(xlUp).Row).FormulaR1C1 = "=IF(RC[1]=R[-1]C[1],R[-1]C,R[-1]C+1)"
Columns(1).Value = Columns(1).Value
For Each c In Range("b1:b" & Range("a65536").End(xlUp).Row)
c.Value = c.Offset(, -1) & " " & c.Value
Next
Columns("A:A").Delete
Application.ScreenUpdating = True
End Sub

Si le résultat n'est pas satisfaisant, merci de joindre le fichier de travail dépourvu de données confidentielles.

A bientôt 🙂

 

[floh400]

Re : numerotation automatique en fonction des valeurs

salut
cela bug
je t envoi mon fichier, en gros j ai 30000 ref a indexer et a la main c est pas productif
selleriehenno.fr/xls/fichier excel.xlsx
Ce lien n'existe plus excel.xlsx
a+

 

[mapomme]

Re : numerotation automatique en fonction des valeurs

Bonsoir floh400 et bienvenu 🙂, DoubleZero 🙂

Un essai par formule:

• Insérer une colonne avant la colonne A
• Mettre en A1 la valeur 1
• Mettre en A2 la formule suivante et la copier vers le bas

Formule:

=SI(NB.SI(B$1:B2;B2)=1;MAX(A$1:A1)+1;INDEX(A$1:A1;EQUIV(B2;B$1:B1;0)))

 

[mapomme]

Re : numerotation automatique en fonction des valeurs

(re)Bonsoir,

Je ne vois aucun doublon dans ton fichier ? Est-ce normal ?

 

[DoubleZero]

Re : numerotation automatique en fonction des valeurs

Re-bonjour, bonjour, mapomme 😀,

Le fichier n'est pas disponible :

The requested URL /xls/fichier was not found on this server.

A bientôt 🙂

 

[mapomme]

Re : numerotation automatique en fonction des valeurs

re,

Si si il gît Ce lien n'existe plus

 

[DoubleZero]

Re : numerotation automatique en fonction des valeurs

Re-bonjour,

re,

Si si Ce lien n'existe plus

Merci, mapomme 🙂.

 

[DoubleZero]

Re : numerotation automatique en fonction des valeurs

Re-bonjour,

Tout comme mapomme, je ne vois aucun doublon et me pose la question de savoir si c'est normal.

Un essai avec le fichier joint.

A bientôt 🙂

 

[floh400]

Re : numerotation automatique en fonction des valeurs

bonjour a tous en fait ce n est pas des doublons entier mais on a les meme debut de texte et c est eux que je dois indexer car il font partie de la meme references

 

[mapomme]

Re : numerotation automatique en fonction des valeurs

Bonjour floh400, DoubleZero, le forum,

bonjour a tous en fait ce n est pas des doublons entier mais on a les meme debut de texte et c est eux que je dois indexer car il font partie de la meme references

Sur la base de la macro de DoubleZero 😱, une numérotation basée sur les articles dont on a ôté les nombres (qu'ils soient à la fin ou en milieu de texte)

 

[mapomme]

Re : numerotation automatique en fonction des valeurs

Bonjour floh400, DoubleZero, le forum,

Autre version en noir & blanc. On numérote après avoir ôté les nombres de chaque désignation et après avoir ôté la référence à la couleur. L'hypothèse prise: après avoir ôté les nombres au sein d'une désignation, la couleur est le dernier mot de la désignation.

Edit: Version V2a: pour tenir compte des articles dont le point peut aussi être considéré comme séparateur (voir article "Norton MIXT.LUX.HAFLING.HAV.18")