Supprimer les doublons ne fonctionne pas

Bonjour Excel World.

J'ai un problème. Ci-dessous, j'ai un exemple de fichier factice avec des numéros en double.

J'ai essayé d'utiliser:

Onglet Données >> Supprimer les doublons

Et pour une raison quelconque, ça ne s'entraîne pas

Merci d'avance

bonsoir,

selon moi il n'y a pas de doublons. (doublons = lignes différentes avec le même contenu dans les colonnes sélectionnées)

si les colonnes 1 et 2 sont sélectionnées pour déterminer s'il s'agit de doublons ou pas, la ligne a a b sera supprimée.

Merci h2so4

Merci de m'avoir aidé à comprendre. Oui, il a plusieurs numéros de la plupart des colonnes.

Comment puis-je supprimer les numéros supplémentaires?

Salut. Est-ce que je peux de toute façon utiliser VBA pour supprimer les numéros correspondants?

Merci d'avance

Bonjour le monde Excel.

Je faisais des recherches sur le problème que je rencontre.

Je suis tombé sur ce lien.

https://www.automateexcel.com/vba/removing-duplicate-values-in-excel-vba/

C'est en anglais.

Pour certaines raisons. Je n'ai pas la possibilité de supprimer les numéros en double de mon classeur.

Pois. N'importe qui là-bas. Qu'est-ce que je fais mal? Qui peut m'indiquer la bonne direction?

Merci d'avance

Bonsoir,

dans ton fichier exemple, peux-tu définir ce que tu considères comme doublons ? que veux-tu eliminer ?

Je ne considère que les numéros de téléphone dans chaque colonne. La plupart ont le même code

Bonjour,

une proposition via vba (ne fonctionne pas sur mac), suppression doublon sur la même ligne

Bonjour h2so4, corriedtoppin

On supprime les doublons sur l'ensemble de ton tableau ou ligne par ligne

Sinon essaie ceci :

Option Explicit
Sub test()
    Dim a, i As Long, j As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    With Sheets("Sheet1").Range("A1").CurrentRegion
        a = .Value
        For i = 1 To UBound(a, 1)
            dico.RemoveAll
            For j = 1 To UBound(a, 2)
                If Not dico.exists(a(i, j)) Then
                    dico.Item(a(i, j)) = Empty
                Else
                    a(i, j) = Empty
                End If
            Next
        Next
        .Value = a
    End With
End Sub

klin89