Supprimer des mots en double

[klip89]

Bonjour,

je cherche comment faire pour supprimer dans excel des mots qui apparaissent en double ou triple dans une colonne

exemple :

Dans ma colonne A, j'ai un mot par ligne mais plusieurs fois le même dans mes 9 lignes et je voudrais trouver le moyen de supprimer tous les mots en double ou en triple, exemple :

ligne 1 : THYM
ligne 2 : COURGES
ligne 3 : RAVES
ligne 4 : NOIX
ligne 5 : COURGES
ligne 6 : NOIX
ligne 7 : COURGES
ligne 8 : RAVES
ligne 9 : THYM

Je cherche donc comment supprimer les mots qui doublent et triplent pour ne garder qu'une seule fois courges, thym, noix, raves

je suis nouvelle et ne sait pas me servir d'excel, merci d'avance pour votre aide

 

[atlonia]

Re : Supprimer des mots en double

Bonsoir clip89,

Voici la macro que j'utilise:

Private Sub SupprimeDoublons(FeuilleATraiter As String, ColonneATraiter As Byte)
Dim i As Integer, j As Integer, DLV1 As Integer
DLV1 = Sheets(FeuilleATraiter).Columns(ColonneATraiter).Find("", , , , xlByRows, xlNext).Row - 1
For i = DLV1 To 2 Step -1
For j = i - 1 To 1 Step -1
If Sheets(FeuilleATraiter).Cells(i, ColonneATraiter).Value = Sheets(FeuilleATraiter).Cells(j, ColonneATraiter).Value Then _
Sheets(FeuilleATraiter).Cells(j, ColonneATraiter).Delete Shift:=xlUp
Next j
Next i
End Sub
Sub SuppressionDesdoublons()
' SUPPRESSION des valeurs en doublon de la colonne A de la Feuille 1
Call SupprimeDoublons("Feuil1", 1)
End Sub

 

[Staple1600]

Re : Supprimer des mots en double

Bonsoir



Tu peux essayer le filtre élaboré avec Extraction sans doublons.

1) Tu sélectionnes tes données
2) Aller dans le menu : Données/Filtre/Filtre Elaboré
3) Choisir [Filtrer sur place] et cocher [Extraction sans doublons]

Tu peux à l'étape 3 choisir également [Copier vers un emplacement]

Regardes dans le ficher exemple joint.

(Les 2 boutons gris sont cliquables)

 

[BOISGONTIER]

Re : Supprimer des mots en double

Bonjour,

Sub supdoublons()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Set champ = Range("A1:A" & [A65000].End(xlUp).Row)
  For i = [A65000].End(xlUp).Row To 1 Step -1
    If Application.CountIf(champ, Cells(i, 1)) > 1 Then
      Cells(i, 1).Delete Shift:=xlUp  ' ou Rows(i).Delete
    End If
  Next i
  Application.Calculation = xlAutomatic
End Sub

Sub supdoublons2()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  For i = [A65000].End(xlUp).Row To 2 Step -1
    Set result = Range("A1:A" & i - 1).Find(What:=Cells(i, 1), LookIn:=xlValues, Lookat:=xlWhole)
    If Not result Is Nothing Then
      Cells(i, 1).Delete Shift:=xlUp  ' ouRows(i).Delete
    End If
  Next i
  Application.Calculation = xlAutomatic
End Sub

JB

 

[Staple1600]

Re : Supprimer des mots en double

Bonjour



Juste pour rappeler au VBA addicts (dont je suis) que:

klip89 nous disait en préambule:

je suis nouvelle et ne sait pas me servir d'excel, merci d'avance pour votre aide

Directement, plongée dans la VBA, ca va lui faire un choc

 

[klip89]

Re : Supprimer des mots en double

aie, vous êtes des pros, ce qui n'est pas mon cas.

Merci de votre aide.

Les formules macros, comment on les insérent dans une page excel ?

merci

 

[Staple1600]

Re : Supprimer des mots en double

Bonjour


Est-ce tu as essayé la méthode Filtre élaboré ?

(qui ne nécessite pas l'utilisation de macros)

cf mon message de 2h07.

 

[klip89]

Re : Supprimer des mots en double

je viens de le tester à l'instant et ça fonctionne, merci à tous

j'ai aussi essayer les macros mais j'avoue que je n'y comprends absolument rien

merci à tous de votre aide

 

[myDearFriend!]

Re : Supprimer des mots en double

Bonsoir le fil,

A toutes fins utiles et en particulier pour ceux qui ne sont pas très à l'aise avec VBA, il existe aussi cette solution : mDF Doublons v4.0

Cordialement,

 

[klip89]

Re : Supprimer des mots en double

bonjour, j'ai essayé et lorsque je fais la suppression ou cacher les doublons, reponse lorsque je fais executer :

erreur dans le module caché MDSfusfdoublons

 

[myDearFriend!]

Re : Supprimer des mots en double

Bonjour klip89, le Forum,

Quelle version d'Excel klip89 ? 2000 ?

Comme précisé dans le lien que j'indique plus haut, cette application est compatible PC Excel 2002 (XP) et supérieur...

Cordialement,

 

[klip89]

Re : Supprimer des mots en double

excel 2000 9.0.2812

sinon quand je fais ==> données ==> filtres ==> filtres élaborés ==> extraction sans doublons, cela me supprime aussi environ 10 % de mots qui ne sont pas en double