Trouver les doublons

[RENAUDER]

Bonjour,
J'ai une liste de commandes malheureusement disparate et je souhaite trouver les commandes en doublons.
😕 J'ai recherché du coté de FIND, LIKE mais je ne décolle pas, je ne vois pas comment m'y prendre.
Je fais appel à la communauté pour savoir si quelqu'un aurait une piste à me proposer.

Numéro de commande
45003467
45003280
45003450
45003280* est un doublon du 45003280
Cde 77560
77340
77456
Cde 77560 B est un doublon de Cde 77560
45003600
45004560
D'avance merci.

 

[Brigitte]

Re : Trouver les doublons

Bonsoir,

Salut Eric... A tout hasard, tu as essayé la macro "doublons" de didier mydearfriend... Car elle surligne les valeurs doublonnées dans une liste... et fonctionne merveilleusement bien.

Mais à mon avis, je suis à côté de la plaque question "comprenette" car je n'imagine même pas que tu sois passé à côté de cette petite merveille à quérir (si jamais) sur son site, dans sa dernière version (en xla en plussssss, que du bonheur).

Bien sûr si c'est le code qu'il te faut, pour l'intégrer à une macro existante, je ne crois pas qu'il soit accessible, tu peux en revanche poster sur son site, il t'aidera sans doute à trouver la meilleure solution.


A te relire, il semble qu'il y ait des petites choses en pluss sur certaines valeurs... mais bon Didier aurait sans doute une bonne idée, j'en reste persuadée. Et d'autres ici aussi bien sûr.

(Bisous)

 

[Guest]

Re : Trouver les doublons

Bonsoir Eric, Brigitte,

@Eric, pourrais-tu nous donner plus d'exemple de contenus de cellules, nous dire si dans une chaine, la référence numérique à un nombre minimal et/ou maximal de caractères, si elle peut-être précédée ou suivie d'autre chose que l'espace?

A+

 

[jeanpierre]

Re : Trouver les doublons

Bonsoir Eric, Brigitte,

La macro de Didier mDF est certes super, mais je ne pense pas qu'elle traite les "presques similitudes", si j'ai bien compris la question....

Pour les codes de Didier, ils sont protégés pour ne pas polluer la fenêtre de VBAProject, mais son code est son pseudo complet, généralement.

Pas de solution personnelle dans l'immédiat.

Bonne soirée.

Jean-Pierre

 

[Brigitte]

Re : Trouver les doublons

Bonsoir,

Coucou jp... Pour ca que j'ai mis en gras :

A te relire, il semble qu'il y ait des petites choses en pluss sur certaines valeurs... mais bon Didier aurait sans doute une bonne idée, j'en reste persuadée. Et d'autres ici aussi bien sûr.

Mais bon tu paries que Didier l'a imaginé, ce cas de figure ? Rien ne m'étonne venant de Didier... encore moins les choses invraisemblables...

 

[Guest]

Re : Trouver les doublons

Re,

Eric, je pensais à une collection qui utiliserait une fonction comme comme celle-ci:

Function ExtraitRef(Chaine As String) As Long
Dim t: t = Split(Chaine, " ")
Dim i
For i = LBound(t) To UBound(t)
    If IsNumeric(t(i)) Then
        ExtraitRef = t(i)
        Exit For
    End If
Next i
End Function

A+

 

[jeanpierre]

Re : Trouver les doublons

Re tous, Hasco,

Brigitte : Ecrivant au moment de ta réédite, je n'ai pas vu ta phrase en gras....

 

[BOISGONTIER]

Re : Trouver les doublons

Bonsoir,

Voir pj

JB

 

[Guest]

Re : Trouver les doublons

Re bonsoir, tous

Sur le classeur, cela semble fonctionner (mélange de ce que tu as déjà fait et la fonction plus haut)

Sub essai()
Dim chaine As String
 
 For Each cel In Range("champ")
  chaine = ExtraitRef(cel.Text)
  Set c = Range("champ").Find(what:=chaine, after:=cel, LookAt:=xlPart)
  If Not c Is Nothing Then
      premier = c.Address
      Do
        If cel.Value <> c.Value Then
           cel.Offset(, 1) = "doublon de: " & c
        End If
      Loop While Not c Is Nothing And c.Address <> premier
  End If
Next cel
End Sub
 
Function ExtraitRef(chaine As String) As Long
Dim t: t = Split(chaine, " ")
Dim i
For i = LBound(t) To UBound(t)
    If IsNumeric(t(i)) Then
        ExtraitRef = t(i)
        Exit For
    End If
Next i
End Function

A+

 

[RENAUDER]

Re : Trouver les doublons

Bonsoir à tous,

Jacques j'ai essayé ton code il fonctionne mais si par hasard j'ai 3 codes similaires,
cela ne fonctionne plus ...
Cde 77560
Cde 77560 B
Cde 77560 C

Par contre celle de Hasco semble dans ce cas fonctionner.
Je continue de tester différents cas mais je pense que l'on est proche de la solution.
Encore merci.

 

[Guest]

Re : Trouver les doublons

Re,

Je viens de tester en rajoutant ces références au classeur et j'obtiens:
Cde 77560 doublon de: Cde 77560 B
Cde 77560 B doublon de: Cde 77560 C
Cde 77560 C doublon de: Cde 77560

?'est-ce pas le résultat attendu?


A+

 

[Brigitte]

Re : Trouver les doublons

Bon moi j'ai dit de grosses bêtises, mais comme personne n'y a fait attention, à part jp... Je m'éclipse sur la pointe des pieds, sans même dire bonsoir, comme ca vous faites comme si vous ne m'aviez pas vue... Si on vous demande, personne me connaît... ok ?

 

[Guest]

Re : Trouver les doublons

Hello Brigitte,

Il me semble t'avoir dit bonsoir dans mon premier post? Non?

A+

 

[Brigitte]

Re : Trouver les doublons

Je n'ai pas dit ca... j'ai dit : je ne dis même pas bonsoir (je fais de l'humour... je suis venue te dire que je m'en vais...) pour ne pas gêner... ca m'embête d'avoir dit des bêtises... ca se voit bien, j'effacerais bien ma présence sur ce fil...

 

[Guest]

Re : Trouver les doublons

Re, Brigitte,
Tout est bon dans le .... fil. Rien à jeter...

Bises