eliminer doublons ds colonne en ajoutant automatiquement un code alphanumerique

[krof]

Bonjour,

je dois eliminer des doublons dans une colonne en y ajoutant "a" pour le premier doublon, "b" pour le 2nd etc

je ne crois pas que ce soit possible avec les "si"
du genre:
A2=doublon doit devenir doublona ou doublon-a
A3=doublon doit devenir doublonb ou doublon-b

et avec les formules de ce type je n'y arrive pas
=SI(A2=A3,SI(A3=A2,SI(B2="a",........pfffff

y aurait 'il qq un parmis vous qui a une idée, sachant que je n'ai jamais toucher au vb

merci

 

[Staple1600]

Re : eliminer doublons ds colonne en ajoutant automatiquement un code alphanumerique

Binjour



Essaie d'utiliser cette formule
en B1 par exemple
=SI(A1=B1;CAR(64+LIGNE());"")

EDITION: désolé je viens de relire ici ce sont deux colonnes qui sont compraés
par des doublons dans la même colonne.

 

[krof]

Re : eliminer doublons ds colonne en ajoutant automatiquement un code alphanumerique

j'étais en train d'essayer ça ne fctionnait pas
pour preciser ci dessous l'exemple: il s'agit de clé pour une base de donnees, donc unique
j'ai des doublons je veux donc ajouter a, b, c etc... à la fin de la cellule, j'ai 35000 lignes dont 2/3 de doublons
j'ai essayé ce genre de formule
=SI(A2=A3,SI(A2=A1,"","a"),SI(B1="a","b",""))
mais le pb c'est un meme numero de serie peut aparaitre 20 fois...

2004306700539
2004306700539
2006430670565
2006430670565
2006430670565
2006430670565

 

[krof]

Re : eliminer doublons ds colonne en ajoutant automatiquement un code alphanumerique

bonjour,

personne ne voit de solution ?
merci

 

[pierrejean]

Re : eliminer doublons ds colonne en ajoutant automatiquement un code alphanumerique

bonjour krof

Salut Staple 🙂

Un essai

 

[krof]

Re : eliminer doublons ds colonne en ajoutant automatiquement un code alphanumerique

merci, ça ne fctionnait pas tt a fait
mais celle ci fctionne
merci en tt cas


'i = nombre de valeurs
Dim i As Integer
i = 1
Do While Cells(i, 1) <> ""
i = i + 1
Loop
i = i - 1

'Tri de la colonne
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

'Lettres alphabets vont de 65 à 90 en unicode
Range("B1") = "A"

For j = 1 To (i - 1)
If Range("A" & (j + 1)) = Range("A" & j) Then
u = u + 1
rang = Chr(65 + u)
Range("B" & (j + 1)) = rang
Else
Range("B" & (j + 1)) = "A"
u = 0
End If
Next j