Microsoft 365 Supprimer les lignes doublantes qui ont le même identifiant

[SAAD doli]

Salut tout le monde , j'espère que vous allez bien
je veux supprimer dans ma feuille de calcul les lignes qui se répètent qui ont même valeur d'identifiant dans la colonne A avec garder une seule ligne qui est la première
Merci

 

[sylvanu]

Bonsoir Saad doli,
Pas de fichier test ? Vous pariez surement que nous le ferions.
En PJ un essai si j'ai bien compris avec :

Sub Nettoie()
    Application.ScreenUpdating = False                  ' On fige l'écran
    DL = [A65000].End(xlUp).Row                         ' Dernière ligne de Résultat
    Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' Insertion colonne en A
    f = "=SI(NB.SI($B$1:B2;B2)>1;CAR(1);0)"             ' Formule utilisée. Attention ajouter 1 aux colonnes pour compenser nouvelle colonne en A.
    With Range("A2:A" & DL)                             ' Plage où coller la formule en colonne A qui sera triée
        .FormulaLocal = f                               ' Coller formule
        .Value = .Value
        .EntireRow.Sort .Cells, xlDescending            ' Tri pour regrouper et accélérer
        .SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete ' Suppression des  lignes doublons
        [A:A].Delete Shift:=xlToLeft                    ' Effacement colonne formules
    End With
End Sub

 

[mapomme]

Bonjour à tous 🙂,

Une autre façon de faire :

• Utiliser la commande "Supprimer les doublons" du menu "Données".

Ou en VBA :

Sub AucunDoublonColA()
   Range("a1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

edit : bonjour @sylvanu 😉.

 

[sylvanu]

@mapomme
Comme quoi il vaut mieux réfléchir un peu avant de se lancer. 😂
Je ne comprends même pas comment j'ai pu pondre ça.