Supprimer répétition synthèse

Bonjour à tous !

J'espère que vous avez la pêche !

Je me permets de vous solliciter, car dans le fichier joint, il y a beaucoup de lignes qui se répètent et j’aimerais m’en débarrasser pour obtenir une seule ligne avec le même contenu.

J'ai ainsi pensé à une macro qui réaliserait ce type d'action :

En partant de la ligne 5 jusqu’à la dernière ligne où il y a du contenu, si dans les 500 prochaines lignes, on retrouve une ligne avec le même contenu de la colonne E à M, alors tu supprimes la ligne étudiée

Par exemple dans l'image ci-dessous en ayant appliqué un filtre pour faciliter l'explication, nous avons beaucoup de fois les 2 mêmes lignes qui se répètent. L'objectif de la macro est de les supprimer pour épurer cette feuille de calcul.

capture excel pratique supprimer repetition

Également, j'aimerais vous demander sur quelle page je pourrais m'instruire, ou contenu pour apprendre à créer des boucles sur VBA.

Je vous remercie par avance pour temps et votre aide et je vous souhaite à tous une excellente journée ! Prenez soin de vous.

Bonjour !

Si le passage entre les mains de Power Query est envisageable, je vous livre une proposition :

Merci pour ton retour et ton temp JFL.

Je préférerais une solution en VBA, mais comment as-tu fait ça via Power Query?

Bonjour,

Une proposition VBA.

Cdlt.

Public Sub DeleteDuplicates()
Dim lo As ListObject
    Set lo = Range("Tableau1").ListObject
    lo.Range.RemoveDuplicates Columns:=Array(4, 5, 6, 7, 8 _
            , 9, 10, 11, 12), Header:=xlYes
End Sub

Bonjour !

mais comment as-tu fait ça via Power Query?

La chose est d'une grande difficulté......

Il faut en effet demander à Power Query d'éliminer......les doublons !

Je ne peux que vous inviter à investir un peu de votre temps dans l'apprentissage de cet outil.

Bonjour à vous deux,

J'espère que vous avez la forme et je vous remercie pour votre retour.

Public Sub DeleteDuplicates()
Dim lo As ListObject
    Set lo = Range("Tableau1").ListObject
    lo.Range.RemoveDuplicates Columns:=Array(4, 5, 6, 7, 8 _
            , 9, 10, 11, 12), Header:=xlYes
End Sub

Jean-Eric, je l'ai exécuté, mais j'ai obtenu le message suivant :

1

Je te remercie par avance de ton retour.

Bon après-midi à tous.

Laplacea

Bonjour,

J'ai mis tes données sous forme de tableau structuré (Tableau1).

Cdlt.

Bonjour à tous,

@laplacea:

Le code fourni par Jean-Eric () fonctionne si tes données sont sous forme de tableau structuré (nommé Tableau1).

Un essai d'adaptation:

Public Sub DeleteDuplicates()
 Dim plage As Range
    Set plage = Range("B5:M" & Range("B" & Rows.Count).End(xlUp).Row)
        plage.RemoveDuplicates Columns:=Array(4, 5, 6, 7, 8, 9, 10, 11, 12), Header:=xlYes
End Sub

Cordialement,

Bonjour à tous !

Je vous remercie pour vos retours et j'espère que vous avez la forme !

@Jean-Eric je comprends mieux

@xorsankukai, ça marche super bien merci ! Peut-on ajouter la condition disant que si on retrouve dans les 500 prochaines lignes, une ligne avec le même contenu dans les colonnes indiquées, qu'elle supprime cette ligne ?

Je vous remercie pour vos retours et je vous souhaite à tous une bonne journée.

Laplacea

Rechercher des sujets similaires à "supprimer repetition synthese"