Trouver les doublons

Brigitte

XLDnaute Barbatruc

• 14 Novembre 2009

• #2

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)

 

Dernière édition: 15 Novembre 2009

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Novembre 2009

• #3

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+

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Novembre 2009

• #4

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

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 14 Novembre 2009

• #5

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.

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Novembre 2009

• #6

Re : Trouver les doublons

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Novembre 2009

• #7

Re : Trouver les doublons

Re tous, Hasco,

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 14 Novembre 2009

• #8

Re : Trouver les doublons

Bonsoir,

Voir pj

JB

 

Pièces jointes

• Doublon21.xls

  28 KB · Affichages: 77
• Doublon21.xls

  28 KB · Affichages: 79
• Doublon21.xls

  28 KB · Affichages: 77

Dernière édition: 14 Novembre 2009

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Novembre 2009

• #9

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)

Code:

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+

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 14 Novembre 2009

• #10

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.

 

Dernière édition: 14 Novembre 2009

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Novembre 2009

• #11

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+

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 14 Novembre 2009

• #12

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 ?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Novembre 2009

• #13

Re : Trouver les doublons

Hello Brigitte,

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

A+

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 14 Novembre 2009

• #14

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...

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Novembre 2009

• #15

Re : Trouver les doublons

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

Bises

 

Vote positif 0 Vote négatif