Suppression doublons avec caractères alphabétiques

[Claude]

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

 

[BOISGONTIER]

Re : Suppression doublons avec caractères alphabétiques

Bonjour,

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

 

[kiki29]

Re : Suppression doublons avec caractères alphabétiques

Salut, bestialement sous forme de fonction personnalisée

 

[Claude]

Re : Suppression doublons avec caractères alphabétiques

Merci BOISGONTIER,

Je m'y entend pas trop en VB, pour ce genre de travail j'aurais préféré une formule.

Avec tous mes remerciements. Claude

 

[Claude]

Re : Suppression doublons avec caractères alphabétiques

Bonsoir KIKI29 ,

Désolé, j'ai pas pu lire ton fichier. Je suis sous Excel 97, pourrais tu me l'adresser non compressé. Merci bien.

Claude

 

[kiki29]

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

 

[Claude]

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