formule pour doublon

[coulou]

Bonjour désolé de vous déranger ,hier un XLDnaute m'a beaucoup aidé en me donnant la formule pour faire un classement tres bien sauf que j'ai des doublons si quelqu'un peut m'aider ce serait sympa sinon tant pis je ferais avec je joints un fichier merci pour tout

 

[johnny_Boy]

Re : formule pour doublon

Bonjour, j'ai aussi un pb de doublons, j'essaye d'appliquer cette formule :

NB.SI(A:A;A1)>1 (qu'il faut faire descendre sur chaque ligne)

dans la colonne B (j'ai extrait la colonne ou j'ai des doublons dans mon tableau!

mai ça ne marche pas ça m'affiche #NOM?

Pour ton info aussi un XLDNaute ma fait passé cela:

Sub maj()

Range("a2").Select


Do Until IsEmpty(ActiveCell)

ActiveCell.Value = StrConv(ActiveCell, vbUpperCase)
ActiveCell.Offset(1, 0).Select

Loop

Range("a2").Select
ActiveCell.CurrentRegion.Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""

If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select

Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select

End If
Wend
End Sub

a copier ds un module, mais je suis nul en VBA....

 

[coulou]

Re : formule pour doublon

merci johnny boy moi aussi je suis nul en vbab mais je cherche et des que je touve quelque chose je le mets sur le forum @+