Excel doublons

Résolu
SuperFun -  
Bonjour tout le monde va bien? c'est bien,

Ben voila moi j'ai une petite question relative à Excel 2010.

J'ai une colonne avec des données et j'aimerai supprimer les doublons.

Pour cela il existe une fonction supprimer les doublons et hop les doublons sont supprimés.

MAIS MOI ce que je voudrai c'est qu'il supprime les 2 valeurs à double.

Exemple si à la cellule A33 j'ai "Pommes" et qu'à la cellule A127 j'ai "Pommes", moi je veux supprimer les 2 cellules (A33 et A127)

Euh il y a une solution à ça?

Moi j'ai cherché et rien trouvé.

Merci à celui ou celle qui me donnera la solution, et pour les autres euh ben merci aussi si vous avez de bons tuyaux.



--
Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.

9 réponses

  1.  mbodj
    bonsoir comment sava quelle est sa maison
    0
    2. SuperFun Auteur
      Bonjour,

      MERCI à tous, pépé35530, Mike-31, eriiic et Apatik aussi.

      Tous marchent il suffisait de le faire comme il faut, n'étant pas un grand spécialiste il a fallu du temps et surtout VOS exemples qui sont une pure merveille.

      Donc encore une fois MERCI à vous.

      Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.
      0
      3. Mike-31
        Re,

        pour répondre à ta demande, je site "Pour cela il existe une fonction supprimer les doublons et hop les doublons sont supprimés"
        Il n'y a que le VBA sinon manuellement avec des formules proposées.
        Maintenant si tu n'as pas de notion en VBA cela complique la démarche.
        tout de même un fichier exemple que tu peux tester, tu saisis des données en colonne A avec des doublons et clic sur le bouton, toutes les données en doublons et comme tu le dis si bien et hop supprimées

        https://www.cjoint.com/?BImoDMqQrHT
        0
        1. eriiic Contributeur
          Re,

          Je ne sais pas comment tu testes mais ça marche très bien...

          Sur le fichier joint j'ai filtré sur 'est supérieur à' : 1
          Il ne reste plus qu'à sélectionner les lignes visible, faire un clic-droit et 'supprimer la ligne'.
          En enlevant le filtre il ne reste que les valeurs individuelles.
          https://www.cjoint.com/?BImlXpaCq86

          eric
          0
          1. Mike-31
            Salut le fil,

            Peut être en VBA avec ce code qui ne conservera que les valeurs uniques

            Sub Val_Unique()
            Dim Finlig, i As Long
            Dim c, plage As Range
            Dim T() As String
            Application.ScreenUpdating = False
            ReDim T(1)
            With ActiveSheet 'Sheets("Feuil3") 'à adapter
            Finlig = .Cells(Rows.Count, "A").End(xlUp).Row
            For Each c In .Range("A1:A" & Finlig)
            If Application.CountIf(.Range("A1:A" & Finlig), c) > 1 Then
            T(UBound(T)) = c.Address
            ReDim Preserve T(UBound(T) + 1)
            End If
            Next c
            If UBound(T) > 1 Then
            Set plage = .Range(T(1))
            For i = 2 To UBound(T) - 1
            Set plage = Union(plage, .Range(T(i)))
            Next i
            plage.EntireRow.Delete
            End If
            End With
            End Sub

            0
            1. SuperFun Auteur
              Dit tonton pourquoi tu tousse.... je suis loin d'être un As plutôt un Âne moi....

              Je m'enfile ça ou et comment ???
              0
          2. pépé35530
            Bonjour,

            Créer une colonne avec la formule suivante :

            =NB.SI($A$2:$A$10;A2)

            A adapter en fonction de la plage des données
            recopier vers le bas

            Créer une autre colonne avec la formule suivante :

            =SI(B2>=2;"";A2)

            Recopier vers le bas
            Dans cette colonne n'apparaîtront que les éléments en 1 exemplaire.

            On peut ensuite faire un copier-collage spécial, valeurs des données de cette colonne si on veut une nouvelle liste avec simplement ces données.

            A+

            pépé
            0
            1. eriiic Contributeur
              Bonjour à tous,

              On peut éviter la 2nde colonne.

              Filtrer automatique sur la colonne ayant =NB.SI($A$2:$A$10;A2) avec pour critère > 1,
              et supprimer les lignes.

              eric
              0
            2. SuperFun Auteur
              Testé et je retrouve exactement la même chose en colonne C que dans la colonne a tester (A)

              quand au filtrage auto avec critère >1 cela me dit Référence non valide
              0
          3. Apatik Contributeur
            Salut,

            J'ai pas de solution hyper rapide, mais en 5 minutes, voila comment je ferrais:

            - Un tri sur la colonne dans laquelle tu veux repérer les doublons. (mettons "A ").
            - Tu insère une colonne B
            - En B1, tu insères la formule "=SI(A1=B1;VRAI;FAUX), puis tu étires jusqu'en bas.
            - Puis tu insères une colonne C
            - En C2 tu insères la formule "=SI(OU(B2=VRAI;ET(B2=FAUX;B1=VRAI));VRAI;FAUX), puis tu étire jusqu'en bas.
            - Il reste la cellule C1 à remplir: "=B1"
            -Tu copie la colonne C, puis tu fait un collage spécial "valeur".
            - Tu fais un tri sur la colonne C, puis tu supprime toutes les lignes ou "Vrai" apparait dans la colonne C

            Voila!
            0
            1. SuperFun Auteur
              Voila testé et je n'ai que des valeurs 0 dans mes colonnes B et C après collage spécial "valeurs" je l ai collé en C et après refais mais en D et toujours que des 0

              Jean déduit et moi aussi marche pas bien mais ne désespère pas
              0