formule pour doublon

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....

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 @+