Formule VBA pour repérer les doublons

Bonjour,

Je possède un fichier excell d'environ 10000 lignes sur lequel je veux repérer les anomalies de référencement.

En temps normal on pour chaque code un produit. Hors certains produits sont référencés sous le même code.

C'est certainement plus clair en regardant le fichier joint.

Je voudrais donc pouvoir faire une macro qui supprimerait les lignes normales

Dans notre exemple les lignes 11 et 12 (je n'ai besoin que des lignes 2 et 8, montrant les codes avec doublons)

Il faudrait donc qu'elle compte le nombre de fois où les 8 premiers caractères sont identiques (de ligne en ligne) et supprimer groupes inférieur (ou égale) à 2

nb: il est possible de changer la présentation et de ne pas faire apparaitre les lignes 2 8 et 11, j'ignore ce qui est le plus pratique.

Merci

Bigro

Bonjour et bienvenue bigro,

Essaie cette macro :

Sub doublon()
Dim derlign As Long, i As Long, j As Long
    Application.ScreenUpdating = False
    derlign = [a65536].End(xlUp).Row
    i = 2
    Do While i <= derlign
        j = 0
        Do While Left(Cells(i, 1), 8) = Left(Cells(i + j, 1), 8)
            j = j + 1
        Loop
        If j <= 2 Then Rows(i + j - 1 & ":" & i).Delete shift:=xlShiftUp: derlign = [a65536].End(xlUp).Row Else i = i + j
    Loop
End Sub

Super, ca marche du tonnerre!

Promis, je me mets sérieusement au VBA bientôt...

Encore Merci

Bigro

Pars pas bigro ! Si ton problème est résolu indique-le

J'ai vraiment pas de tête!

Bref, encore merci