Microsoft 365 [Résolu] Problème avec RemoveDuplicates

[Astragor]

Hello tout le monde,
Je m'arrache les cheveux avec la fonction RemoveDuplicates du coup je m'adresse à vous.
Je voudrais supprimer les doublons d'un tableau (c'est à dire les lignes 100% identiques) dont je ne connais pas le nombre de colonne à l'avance.

Et je suis bloqué par le parametre Columns.

En effet si mon tableau contient 3 colonnes la bonne valeur est :

ActiveSheet.UsedRange.RemoveDuplicates Columns:= Array(1,2,3)

Pour 4

ActiveSheet.UsedRange.RemoveDuplicates Columns:= Array(1,2,3,4) ....

Le problème c'est que je n'arrive personnaliser mon Array j'ai essayé plein de combinaisons differentes mais j'ai tout le temps des messages d'erreur.
Quelqu'un aurait une idée SVP ?

 

[sylvanu]

Bonjour Astragor,
Peut être une piste ici :

RemoveDuplicates - Nombre de colonnes variables en paramètre

Bonjour, Sous Excel 2010, je souhaite supprimer les doublons d’une plage entière, pour toutes les colonnes. J’utilise donc : rgCible.RemoveDuplicates Sauf que, contrairement à ce que dit l’aide Excel, si je ne précise pas les colonnes, ça ne dédoublonne rien. Comme j’ai 30 colonnes dans ma...

www.excel-downloads.com

 

[Astragor]

Bon c'est bon j'ai continué à chercher dans mon coin j'ai trouvé la solution

Sub Macro2()


Dim x As Variant, nbcolonnes As Integer, i As Integer
    nbcolonnes = ActiveSheet.UsedRange.Columns.Count
    ReDim x(nbcolonnes - 1)
    For i = 0 To nbcolonnes - 1
        x(i) = i + 1
    Next i

    ActiveSheet.UsedRange.RemoveDuplicates (x)
End Sub

@sylvanu je vais aller voir ton lien par curiosité

 

[Astragor]

@sylvanu ben voila on retrouve à peu près la même chose, pourtant j'avais fouillé le forum avant, (pas remonté assez loin je pense).

Merci de ton aide.