Routine Suppression Doublon

Question

J'ai une routine Excel VBA 2010 pour supprimer les doublons qui fonctionnait suivant un livre de 2010. Maintenant, je suis passé à Excel VBA 2016 et cette routine ne fonctionne pas. je vais numéroter les lignes pour mieux repérer celles qui me posent problèmes : 1) Sub SupprimerDoublons() 2) Dim vCellule As Object 3) Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, MatchCase:=False, Orientation:=xlTopToBottom 4) For Each vCellule In Selection 5) If vCellule.Value = vCellule.Offset(1, 0) Then 6) vCellule.Delete 7) End If 8) Next 9) End Sub J'ai toute la ligne 3) qui se met en rouge et les messages suivants : Erreur de compilation: Erreur de syntaxe J'ai cherché sur le web mais n'est pas trouvé de solutions. Peut-être qu'une personne a rencontré ce problème et sait le résoudre. Merci par avance de vos aides. Cordialement JeanF44...

U. Milité · Answer

On peut difficilement répondre, dans la mesure où il manque une partie des explications: à quoi correspond, par exemple la Selection au début du code? D'autre part, il existe aujourd'hui (mais c'était déjà le cas sous Excel 2010!) une fonctionnalité "Supprimer les doublons", qui serait sans doute plus performante qu'un tri suivi d'une boucle sur toutes les cellules d'une plage, à mon humble avis...

U. Milité · Answer

Ca n'aide guère, je le crains ... tout ce que je peux te dire c'est que ton bout de code semble fonctionner sur ma machine, équipée d'Excel 2016. Le problème ne viendrait donc pas de le version d'Excel, mais peut-être de la structure du fichier ... et sans voir ce dernier, on peut se perdre en conjectures, sans formuler la bonne hypothèse...

MFerrand · Answer

Une erreur sur cette ligne est forcément dépendante de la sélection que tu auras préalablement faite. La vraie question est si cette macro te servait, précise l'utilisation que tu en avais et on te la rebâtira en moins approximatif, plus précis, plus rationnel et peut-être mieux adapté à ton utilisation... Bon ! C'est pas un livre que je conseillerais ! s'ils n'ont que ce genre de choses pas très sérieuses à proposer... Cordialement...

MFerrand · Answer

Réponds donc aux questions si tu veux une aide !

Si tu veux une explication, tu fournis le fichier (U.Milité l' suggéré !)

Si tu veux simplement exprimer tes états face à ta macro qu'il serait de toute façon utile d'écrire de façon plus précise, tu le dis aussi...

MFerrand · Answer

Au cas où tu ne t'en serais pas rendu compte, un fichier pdf n'est pas un fichier Excel ...

Ergotamine · Answer

Ce que MFerrand et U.Milité veulent dire c'est de joindre ton fichier .xlsx qui t'affiche ta ligne en rouge afin qu'ils puissent travailler dessus et ne pas perdre de temps à faire un fichier test. C'est comme ça que tu obtiendras la meilleure solution. Si le fichier contient des données confidentielles, il te suffit de les supprimer ou de les remplacer par des valeurs aléatoires. Bonne soirée ...

MFerrand · Answer

Les erreurs ne sont pas mystérieuses :

une procédure commence par Sub et se termine par End Sub, s'il y en a deux de chaque, ça ne va plus ;

la ligne commençant par Selection.Sort est une seule ligne de commande répartie sur 3 lignes physiques : à la fin de chaque ligne, le caractère _ (underline) précédé d'une espace indique que la ligne de commande continue ligne physique suivante.

En ôtant ces caractères, tu casses la ligne en 3 ! Les 2 morceaux coupés vont donc déclencher une erreur d'exécution.

A suivre.

MFerrand · Answer

Re, Sub SuppressionDoublonListe() Dim c As Range If Selection.Cells.Count &lt; 2 Then Exit Sub If Selection.Columns.Count &gt; 1 Then MsgBox "Cette procédure ne peut opérer que sur une liste sur une seule colonne.", _ vbInformation, "Sélection non valide" Exit Sub End If Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlNo, MatchCase:=False For Each c In Selection If StrComp(c, c.Offset(1), vbTextCompare) = 0 Then c.Delete xlShiftUp Next c End Sub Voilà, légèrement réaménagée, pour tenir compte qu'elle n'est prévue pour fonctionner que sur une liste sur une colonne, et si on trie en ne tenant pas compte de la casse, la suppression n'intervenait pas en cas de différence de casse. D'ailleurs, il faudrait aussi remplacer dans la fonction StrComp, c par Trim(c) et c.Offset(1) par Trim(c.Offset(1)) pour ne pas prendre en compte d'éventuelles espaces parasites en début et fin des noms comparés. Cordialement...

MFerrand · Answer

Les fautes d'othographe, en VBA, ça se traduit par des erreurs d'exécution !

Qu'est-ce que tu appelles "exemple d'un livre" ?

Cette proc. n'est pas adaptable pour plusieurs colonnes : besoin différent => réalisation différente !

Pour ce qui est d'apprendre, je te conseillerais de commencer tout d'abord d'écrire correctement le code en l'indentant selon des règles précises, et tu te rendras compte du temps que cela fait gagner, en lecture beaucoup plus rapide et en possibilités d'erreurs éliminées quasiment d'emblée.

Pour ce qui est de structurer ses lignes de commandes, tu peux relire et analyser ta proc. telle que je l'ai modifiée. Les modifications apportées ne relèvent pas de lubies, tant pour les suppressions de quelques éléments inutiles que pour les ajouts qui visent à fiabiliser autant que faire se peut l'exécution...

Une bonne analyse, ligne par ligne, et en comparant à ce qui précédait, pourra déjà t'apprendre pas mal de choses.

Cordialement.

MFerrand · Answer

En effet, mais c'était aussi le cas dans la proc. initiale, je n'ai pas modifié la boucle...

Voici une autre version qui supprime tous les doublons et sans trier :

Sub SuppressionDoublonListe()
    Dim i%, j%
    If Selection.Cells.Count < 2 Then Exit Sub
    If Selection.Columns.Count > 1 Then
        MsgBox "Cette procédure ne peut opérer que sur une liste sur une seule colonne.", _
         vbInformation, "Sélection non valide"
        Exit Sub
    End If
    With Selection
        For i = 1 To .Rows.Count - 1
            For j = .Rows.Count To i + 1 Step -1
                If StrComp(.Cells(i, 1), .Cells(j, 1), vbTextCompare) = 0 Then .Cells(j, 1) _
                 .Delete xlShiftUp
            Next j
        Next i
    End With
End Sub