Extraire les doublons d'une chaine de caractere ....

[Marco65]

bonjour j'ai une colonne de 345 lignes qui contient des cellules.Dans chaque cellule j'ai une liste de chaîne de caractères (variable).Je voudrais extraire la liste sans doublon.

Soient les donnees dans la colonne A

A1 = YR4291 YR5511 YR3212
A2 = YR4101 YR5511 YR4291 XX5311
A3 = YR4101 YR5315 YR5511

Je souhaiterai faire une Extraction sous forme de liste dans la colonne B sans doublons :

YR4101
YR4291
YR5511
YR3212
XX5311
YR5315

Merci de votre aide
Marco65

 

[JCGL]

Re : Extraire les doublons d'une chaine de caractere ....

Bonjour à tous,

Bienvenue sur XLD

Tes données en A et avec ce code :

Sub Test()
    Columns("A:A").TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, Tab:=True
    Range("F1:F500").Cut Destination:=Range("E501")
    Range("G1:G500").Cut Destination:=Range("E1002")
    Range("H1:H500").Cut Destination:=Range("E1503")
    Range("I1:I500").Cut Destination:=Range("E2004")
    ActiveSheet.Range("$E$1:$E$2505").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("E1:E2504").Sort Key1:=Range("E1")
    Range("E1").Select
End Sub

A+ à tous

 

[Marco65]

Re : Extraire les doublons d'une chaine de caractere ....

Bonjour à tous,

Bienvenue sur XLD

Tes données en A et avec ce code :

Sub Test()
    Columns("A:A").TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, Tab:=True
    Range("F1:F500").Cut Destination:=Range("E501")
    Range("G1:G500").Cut Destination:=Range("E1002")
    Range("H1:H500").Cut Destination:=Range("E1503")
    Range("I1:I500").Cut Destination:=Range("E2004")
    ActiveSheet.Range("$E$1:$E$2505").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("E1:E2504").Sort Key1:=Range("E1")
    Range("E1").Select
End Sub

A+ à tous

Merci pour cette reponse rapide .Je teste ce bout de code ce matin.Merci beaucoup JCGL

 

[BOISGONTIER]

Re : Extraire les doublons d'une chaine de caractere ....

Bonjour,

Avec fonction perso:

-Sélectionner D220
-=sansdoublons(A2:A20)
-valider avec maj+ctrl+entrée

Avantages par rapport à une macro:

-La source et la destination peuvent modifiés par l'utilisateur sans connaître VBA
-Utilisable pour différents champs
-Si on modifie la source, la Maj du résultat est automatique

JB

 

[Marco65]

Re : Extraire les doublons d'une chaine de caractere ....

Bonjour,

Avec fonction perso:

-rapide
-maj automatique

-Sélectionner D220
-=sansdoublons(A2:A20)
-valider avec maj+ctrl+entrée



JB

Merci JB cela marche tres bien.Par contre j'ai une colonne A qui va bien au-dela de 20 lignes.Du coup comment faire pour etendre la matrice au dela de 20 ? Desole je suis un peu novice sur VBA.En tout cas merci de la reponse qui correspond exactement à ce je veux faire.
Marco65

 

[BOISGONTIER]

Re : Extraire les doublons d'une chaine de caractere ....

Il n'y a pas besoin de connaître VBA

-Sélectionner D2200
=SansDoublons(A2:A100)
-Valider avec maj+ctrl+entrée

JB

 

[Marco65]

Re : Extraire les doublons d'une chaine de caractere ....

Desole JB j'ai compris pour modifier la matrice d'arrivée de 20 lignes à ce que j'ai besoin il faut selectionner toute la matrice d'arrivée et remplacer le 20 par le nombre de ligne voulu.Mille fois merci je vais gagner un temps fou.

 

[laetitia90]

Re : Extraire les doublons d'une chaine de caractere ....

bonjour tous
une autre version macro

Sub es()
Dim m As Object, t, i As Long, c
 Set m = CreateObject("Scripting.Dictionary")
 For Each c In Range("A1:A" & [A65536].End(3).Row)
 t = Split(c, " ")
 For i = 0 To UBound(t):  m(t(i)) = "": Next i
 Next c
 [b1].Resize(m.Count, 1) = Application.Transpose(m.Keys)
End Sub

 

[Marco65]

Re : Extraire les doublons d'une chaine de caractere ....

Merci Laetitia90 je vais faire un test ce soir....

 

[Marco65]

Re : Extraire les doublons d'une chaine de caractere ....

Merci Laetitia90 je vais faire un test ce soir....

Merci cette solution marche aussi

 

[Marco65]

Re : Extraire les doublons d'une chaine de caractere ....

Bonjour,

Avec fonction perso:

-Sélectionner D220
-=sansdoublons(A2:A20)
-valider avec maj+ctrl+entrée

Avantages par rapport à une macro:

-La source et la destination peuvent modifiés par l'utilisateur sans connaître VBA
-Utilisable pour différents champs
-Si on modifie la source, la Maj du résultat est automatique

JB

Bonjour la fonction marche plutôt bien mais je n'arrive pas à modifier la matrice.J'envoi en PJ le fichier excel que je souhaiterai modifier pour les 2 colonnes à traiter. Merci de votre aide.

 

[BOISGONTIER]

Re : Extraire les doublons d'une chaine de caractere ....

Bonjour,

cf PJ

-Sélectionner D2300
=sansdoublons(A2:A10000)
-valider avec maj+ctrl+entrée

JB

 

[Marco65]

Re : Extraire les doublons d'une chaine de caractere ....

Bonjour,

cf PJ

-Sélectionner D2300
=sansdoublons(A2:A10000)
-valider avec maj+ctrl+entrée

JB

Merci JB mais j'ai voulu adapter ta fonction qui marche mais au moment de faire maj+ctrl+ entree cela ne marchait pas.La touche Ctrl est celle de gauche ou à droite de la barre espace. Je vais faire le tour sur le forum pour m'entrainer de mon coté.Mais en attendant merci beaucoup pour votre aide.

 

[vinou]

Tiens tiens ... monsieur travailles sur l'EPR