Recherche de doublons

lamailloche · 12 Septembre 2010

Bonjour
Recherche des dossiers communs d'un mois donné avec les mois précédents.
Voir fichier joint pour plus d'explications.
Merci pour votre aide.

mth · 12 Septembre 2010

Re : Recherche de doublons

Bonsoir,

Un essai avec ce code:

Code:

Sub Macro1()
Dim Derlig As Long
With Sheets("Feuil3")
    Derlig = .Range("A65530").End(xlUp).Row
    
    .Columns("M:P").ClearContents
    .Range("F2").FormulaR1C1 = "=COUNTIF(C[-4],RC[-4])>1"
    .Range("A1:D" & Derlig).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "F1:F2"), CopyToRange:=Range("M1"), Unique:=True
    .Range("F2").ClearContents
End With
End Sub

Bien à toi,

mth

Calvus · 12 Septembre 2010

Re : Recherche de doublons

Bonsoir,

3 heures que je m'arrache les cheveux sur ce problème, à devenir fou, car j'ai PRESQUE les résultats escomptés. 5 sur 7. Mais ce n'est pas suffisant.
Et en revenant sur le post, je m'aperçois que Mth est passée par là avec une solution vba. J'y comprends encore moins que les formules, c'est dire !

Alors je n'apporte pas grand chose à la discussion, désolé, mais c'était l'occasion de saluer Mth. 🙂

lamailloche · 12 Septembre 2010

Re : Recherche de doublons

Hello
Mth d'abord merci pour ce retour. Ce n'est pas tout à fait le résultat escompté. Je ne veux que les doublons correspondants à la denière extraction. Ici le mois d'Aout. Si ca peut simplifier la recherche , cette extraction peut être dans un onglet à part , je dis une grosse bétise !
Calvus, merci d'avoir regardé.

mth · 12 Septembre 2010

Re : Recherche de doublons

Bonjour lamailloche, bonjour Calvus 🙂

Un autre essai avec ce code:

Code:

Sub Macro1()
Dim Derlig As Long
Sheets("Feuil1").Columns("A:D").ClearContents
With Sheets("Feuil3")
    Derlig = .Range("A65530").End(xlUp).Row
    .Range("F2").FormulaR1C1 = "=AND(MONTH(INDIRECT(""D""&MATCH(9^9,C[-2],1)))=MONTH(RC[-2]),YEAR(INDIRECT(""D""&MATCH(9^9,C[-2],1)))=YEAR(RC[-2]),COUNTIF(C[-4],RC[-4])>1)"
    .Range("A1:D" & Derlig).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "F1:F2"), CopyToRange:=Sheets("Feuil1").Range("A1"), Unique:=True
    .Range("F2").ClearContents
End With
End Sub

Pour Calvus, (vu l'heure de ton post, hé bé, pas trop dur le réveil ce matin ?) comme toi j'ai calé sur les formules, une matricielle doit pouvoir le faire mais ça n'est pas de mon niveau 😱.

Très bonne journée à tous et @ +

mth

lamailloche · 12 Septembre 2010

Re : Recherche de doublons

Re le Forum
Mth, je crois que je me suis mal exprimée. Ton dernier vba n'extrait les doublons que sur le mois d'aout. C'est ca ?
Je cherche à lister les "dossiers" du mois d'aout déjà traités les mois précédents. Plus clair !

david84 · 12 Septembre 2010

Re : Recherche de doublons

Bonjour à tous,
cf proposition (utilisation d'une MFC pour cacher les valeurs d'erreurs car sinon, je ne pense pas que cela passe sur les versions antérieures à XL 2007).
A+

mth · 12 Septembre 2010

Re : Recherche de doublons

re, et bonjour David 🙂 🙂

Ton dernier vba n'extrait les doublons que sur le mois d'aout. C'est ca ?

Non, il extrait tous les doublons depuis le début. En revanche, le code précédent extrait également les doublons du seul mois d'aout (deux dossiers identiques en aout mais n'apparaissant pas les mois précédents)

Un autre code ci dessous, qui extrait tous les doublons, sauf ceux existant seulement au mois d'août.

Code:

Sub Macro1()
Dim Derlig As Long
Sheets("Feuil1").Columns("A:D").ClearContents
With Sheets("Feuil3")
    Derlig = .Range("A65530").End(xlUp).Row
    .Range("F2").FormulaR1C1 = "=AND(MONTH(INDIRECT(""D""&MATCH(9^9,C[-2],1)))=MONTH(RC[-2]),YEAR(INDIRECT(""D""&MATCH(9^9,C[-2],1)))=YEAR(RC[-2]),SUMPRODUCT((R2C2:R22C2=RC[-4])*(MONTH(RC[-2])<>MONTH(R2C4:R22C4)))>0)"
    .Range("A1:D" & Derlig).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "F1:F2"), CopyToRange:=Sheets("Feuil1").Range("A1"), Unique:=True
    .Range("F2").ClearContents
End With
End Sub

Bon après-midi à tous 🙂

mth

david84 · 12 Septembre 2010

Re : Recherche de doublons

Re,
bonjour mth🙂.
Ci-joint fichier avec formule conditionnelle.
A+

ntan-évindi · 12 Septembre 2010

Re : Recherche de doublons

BOnjour à Tous;

Pour une recherche de doublon sans VBA, voilà une solution:
=SI(ESTERREUR(RECHERCHEV(B1;$A$1:$A$26;1;FAUX));"";RECHERCHEV(B1;$A$1:$A$26;1;FAUX))

dans la colonne C d'un tableau:
(ColA) ColB) (ColC =Résultat)
A A A
B M
C N
D O
F P
G Q
H G G
I B B
J D D

laetitia90 · 12 Septembre 2010

Re : Recherche de doublons

bonjour tous;
une version macro a adapter!!

Code:

Sub es()
  Dim i As Long, j As Long
  Application.ScreenUpdating = False
  For j = 2 To Cells(Rows.Count, 4).End(xlUp).Row
  If MonthName(Month(Cells(j, 4))) = "août" Then
  For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
  If MonthName(Month(Cells(i, 4))) <> "août" Then
  If Cells(i, 2) = Cells(j, 2) Then
  Cells(i, 50) = 1: Cells(j, 50) = 1
  End If: End If: Next i: End If: Next j
  For i = 2 To Cells(Rows.Count, 50).End(xlUp).Row
  If Cells(i, 50) Then
  Range(Cells(i, 1), Cells(i, 4)).Copy Destination:=Cells(Rows.Count, 8).End(xlUp)(2)
  Cells(i, 50) = ""
  End If: Next i
End Sub

laetitia90 · 12 Septembre 2010

Re : Recherche de doublons

re, j'ai oublie de préciser je recopie en colonne h a la suite comme dans ton fichier pour faire simple!!!
cette ligne

Code:

If Cells(i, 50) Then

tu peus la remplacer par

Code:

If Cells(i, 50) = 1 Then

si cela pose pb...

le code pas le temps de simplifier avec Dictionary sorry

lamailloche · 18 Septembre 2010

Re : Recherche de doublons

Bonjour le Forum
Laetitia, j'aimerai apporter quelques modifs à ta macro mais je ne sais pas faire.
Comment modifier la macro pour que le résultat de la recherche se fasse sur un autre onglet ? Fichier réel volumineux et de plusieurs colonnes.
Est-il possible par une invite par exemple de choisir le mois de référence pour ne pas modifier la macro à chaque fois.
Merci à chacun d'entre vous pour les solutions apportées. Elles auront toutes leur utilité à un moment ou à un autre puiqu'elles répondent toutes à ma demande.

laetitia90 · 18 Septembre 2010

Re : Recherche de doublons

rebonjour tous;
un exemple avec un user avec un combo . On pourrait le faire aussi avec un imputbox mais moins pratique... copy en feuil1 a adapter
eventuellement on pourrait choisir la feuille de destination avec un autre combo

Recherche de doublons

lamailloche

Guest

Pièces jointes

mth

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

lamailloche

Guest

mth

XLDnaute Barbatruc

lamailloche

Guest

david84

XLDnaute Barbatruc

Pièces jointes

mth

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

Pièces jointes

ntan-évindi

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

lamailloche

Guest

laetitia90

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Recherche de doublons

lamailloche

Guest

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

lamailloche

Guest

XLDnaute Barbatruc

lamailloche

Guest

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

lamailloche

Guest

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency