[Macro] Suppression de doublons sans supprimer la ligne

Bonjour,

Après plusieurs jours à rechercher une solution à mon problème, je me résous à venir vous demander de l'aide même si je suis sur la bonne voie lol

Je souhaite rechercher si plusieurs ligne son identique (doublons) et mettre ces doublons en écriture blanche sur fond blanc afin de ne pas décaler les lignes vers le haut.

Voici le code qui fait se que je veux mais qui ne prend pas en considération le test sur plusieurs colonnes

Je souhaiterais tester si les colonnes A B C D E sont identique à celle du dessus alors je mets le texte en blanc

Sub test()
Dim dico As Object, r As Range, derlig As Long
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    derlig = Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row
    For Each r In Sheets("feuil1").Range("A1:E16" & derlig)
        If Not dico.exists(r.Value) Then
            dico(r.Value) = Empty
        Else
            r.Font.ColorIndex = 2
        End If
    Next
End Sub

bonjour

sans macro, préférer Excel pur jus sans additif

https://www.excel-pratique.com/fr/cours/excel_mises_en_forme_conditionnelles_exemples

faire une MFC en blanc sur fond blanc

amitiés

Merci pour ta réponse mais en faite j'ai une macro qui me récupère des données d'un autre fichier et qui remet en forme les données dans un autre classeur. Du coup j'ai déjà une macro et je voulais continuer dedans car mes gars vont se servir de ce fichier tous les jour(je veux qu'ils cliquent juste sur un bouton).

De plus je n'arrive pas avec la MFC de tester plusieurs colonne.

Je peux fournir un fichier si je ne suis pas très claire

re

tu as construit un système de fichiers avec VBA au sommet et une sous-couche Excel, sans utiliser les fonctionnalités d'Excel.

en conséquence tu as des difficultés pour évoluer, et tu en auras de plus en plus, car les difficultés augmentent comme le carré du nombre de lignes de VBA

travaille avec des fichiers en saisie et des fichiers en lecture (contenant des sommes, moyennes, et autres synthèses et graphiques)

entre les 2, utilise Power Query

https://www.youtube.com/watch?v=gwW2CDdvUUs

qui est gratuit et qui est maintenant intégré à Excel.

note que souvent de simples = suffisent à récupérer des données entre fichiers

VBA est inutile de nos jours, depuis 10 ans en fait.

bon travail

amitiés

Bonjour,

Joins un fichier à ta demande si tu souhaites un réponse adaptée du forum.

Cdlt.

Jean-Eric a écrit :

Bonjour,

Joins un fichier à ta demande si tu souhaites un réponse adaptée du forum.

Cdlt.

Bonjour Jean-Eric,

voici un fichier d"exemple.

tu as le tableau de gauche qui est ce que j'ai de base et celui de droite ce que je souhaiterais.

Pour faire simple je souhaite comparer si une ligne a les colonnes A B C D E identique à celle du dessus alors je met le texte des doublons en blanc afin de le faire disparaitre de l’écran.

J'arrive a faire cela avec le code VBA ci dessous mais cela ne compare que sur une colonne et non sur l'ensemble de mes colonnes.

pourrais tu m'aider stp. Dis moi si je ne suis pas clair dans mes explications

Sub test()
Dim dico As Object, r As Range, derlig As Long
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    derlig = Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row
    For Each r In Sheets("feuil1").Range("A1:E16" & derlig)
        If Not dico.exists(r.Value) Then
            dico(r.Value) = Empty
        Else
            r.Font.ColorIndex = 2
        End If
    Next
End Sub