Suppression doublons avec caractères alphabétiques

Claude

XLDnaute Occasionnel
Bonjour le Forum,

Voici ma question.
Dans les cellules A1:F10, j'ai les caractères alphabétiques suivants :
D V T T T Q
U U D D V Q
U D D D Q Q
U U U D V T
U D V V T Q
U D D V T Q
U D V T T Q
U U U U D D
U D D D D D
D D D D V V
Par quelle formule supprimer les doublons pour obtenir dans une seule cellule colonne H1:H10
les contractions suivantes :
DVTQ
UDVQ
UDQ
UDVT
UDVTQ
UDVTQ
UDVTQ
UD
UD
DV

Je joint un travail au cas d'une mauvaise lisibilité ici.

Merci. Claude
 

Pièces jointes

  • suppdoublonscaracteres.zip
    2.6 KB · Affichages: 23

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Suppression doublons avec caractères alphabétiques

Bonjour,


Code:
Sub essai()
  For Each c In Range("A1", [A65000].End(xlUp))
   Set mondico = CreateObject("Scripting.Dictionary")
   For col = 0 To 5
     If Not mondico.Exists(c.Offset(0, col).Value) Then _
        mondico.Add c.Offset(0, col).Value, c.Offset(0, col).Value
   Next col
   temp = ""
   For Each k In mondico.items
     temp = temp & k
   Next k
   c.Offset(0, 7) = temp
  Next c
End Sub

JB
Formation Excel VBA JB
 

Pièces jointes

  • Dictionnaire13.xls
    26.5 KB · Affichages: 62

kiki29

XLDnaute Barbatruc
Re : Suppression doublons avec caractères alphabétiques

Salut à tous,la version "décompressée", ton probleme n'a rien à voir avec Excel 97.D'ailleurs ayant Excel97/2002/2007 je viens de le tester avec 97 et pas de soucis.Suis les conseils de JeanPierre concernant IZarc,7Zip etc via
 

Pièces jointes

  • suppdoublonscaracteres_01.xls
    24.5 KB · Affichages: 61
Dernière édition:

Claude

XLDnaute Occasionnel
Re : Suppression doublons avec caractères alphabétiques

Bonsoir kiki29, jeanpierre,

Merci pour votre aide.
J'ai suivi ton conseil jeanpierre, IzArc m'a sorti d'affaire.
Quant à ta fonction personnalisée, kiki29, elle marche très bien, c'est génial.

Merci encore et bonne soirée.

Amicalement. Claude
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
314 564
Messages
2 110 747
Membres
110 910
dernier inscrit
Sergio 6531