Question doublons

PrinceCorwin

XLDnaute Occasionnel

• 16 Janvier 2012

• #2

Re : Question doublons

Bonjour,
Je me suis permis de ne pas copier les données de la feuille 1 sur la feuille 2, mais le résultat est là...
Bonne journée

 

Pièces jointes

• Doublons.xlsm

  24.3 KB · Affichages: 59
• Doublons.xlsm

  24.3 KB · Affichages: 62
• Doublons.xlsm

  24.3 KB · Affichages: 53

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Janvier 2012

• #3

Re : Question doublons

Bonjour,

Voir pj

Avec filtre élaboré

Code:

Sub doublons()
  Sheets("feuil1").Range("A1:F30").AdvancedFilter Action:=xlFilterCopy, _
     CriteriaRange:=Sheets("feuil2").Range("I1:I2"), CopyToRange:=Sheets("Feuil2").Range("A1:F1"),  Unique:=False
End Sub

Autre méthode avec Dictionary

Code:

Sub Doublons2()
  Set f1 = Sheets("feuil1")
  Set f2 = Sheets("feuil2")
  Set champ = f1.Range("A2:A" & f1.[A65000].End(xlUp).Row)
  Set mondico = CreateObject("Scripting.Dictionary")
  f2.[A2:F100].ClearContents
  For Each c In champ
    temp = c.Value & c.Offset(, 3).Value & c.Offset(, 4).Value
    mondico.Item(temp) = mondico.Item(temp) + 1
  Next c
  ligne = 2
  For Each c In champ
    temp = c.Value & c.Offset(, 3).Value & c.Offset(, 4).Value
    If mondico.Item(temp) > 1 Then
      c.Resize(, 6).Copy f2.Cells(ligne, 1)
      ligne = ligne + 1
    End If
  Next c
  f2.[A1].CurrentRegion.Sort Key1:=f2.[A1], Order1:=xlAscending, Header:=xlYes
End Sub

JB

 

Pièces jointes

• Copie de Doublons-2.xls

  50 KB · Affichages: 62

Dernière édition: 16 Janvier 2012

Vote positif 0 Vote négatif

M

MIKEFLY62

XLDnaute Junior

• 16 Janvier 2012

• #4

Re : Question doublons

Bonjour

Super efficace les deux solutions, merci a vous deux.

Boisgontier, étant grand consommateur de votre excellentissime site free, j'avais cherché dessus sans y arrivé

Merci encore à vs

Cordialement

 

Vote positif 0 Vote négatif

M

MIKEFLY62

XLDnaute Junior

• 6 Octobre 2022

• #5

Bonsoir,

Encore une petite requête dans le fichier joint, par rapport a ce que j'avais précédemment demandé avec un peu plus de complexité. Merci à vous, bonne journée

 

Pièces jointes

• Copie de Doublons-2.xls

  51.5 KB · Affichages: 6

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 6 Octobre 2022

• #6

Bonjour,

Comme l'indique son titre sur le forum, Boisgontier n'est maintenant malheureusement plus des nôtres, paix à son âme.
Je vais donc essayer de t'aider, mais je ne suis pas sûr de comprendre ta demande. Tu mentionnes "on extrait uniquement les lignes de meme groupe en colonnes G", qu'est ce que ça veut dire ?
Je comprends ceci :
- extraire les lignes dont la combinaison Nom + Prenom + Code est présente dans M2:O4
- si, parmi les lignes extraites, le groupe de la ligne étudiée est présent 2 fois ou plus, alors extraire. Si le groupe de la ligne n'est présent qu'une seule fois dans le tableau extrait précédemment, alors ne pas extraire.

Ai-je bien compris ?

Bonne journée,

PS : Voir une première version ci-joint

 

Pièces jointes

• Copie de Doublons-2.xls

  67.5 KB · Affichages: 7

Dernière édition: 6 Octobre 2022

Vote positif 0 Vote négatif

M

MIKEFLY62

XLDnaute Junior

• 6 Octobre 2022

• #7

Bonjour xUPSILON, merci pour ta réponse, je ne savais pas pour Jacques il va nous manquer à tous qu'il repose en paix .....

Oui tu as bien compris, j'ai ajouté des annotations dans le fichier joint pour être plus clair possible dans ma requête de plus j'avais oublié de parler des surlignages vert.


Merci
Bonne journée

 

Pièces jointes

• Doublons-3.xlsm

  32.9 KB · Affichages: 5

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 6 Octobre 2022

• #8

De ce que je vois du coup, ça correspond à la solution que j'ai proposé dans le post #6, est-ce bien le cas ?
Si non, qu'est ce qui ne va pas ?

Bonne soirée,

 

Vote positif 0 Vote négatif

M

MIKEFLY62

XLDnaute Junior

• 6 Octobre 2022

• #9

J'ai essayé le fichier joint en #6, les 2 boutons en effaçant au préalable les résultats en feuil2 mais cela ne fait rien.... désolé

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 7 Octobre 2022

• #10

Bonjour,

Chez moi ça fonctionne, utilises tu le même fichier pour faire ton test ? Avec les mêmes dimensions pour ton tableau source ?
Je ne vois pas pourquoi ça ne ferait rien alors que ça s'exécute correctement chez moi ...

Bonne journée,

 

Vote positif 0 Vote négatif

M

MIKEFLY62

XLDnaute Junior

• 10 Octobre 2022

• #11

Bonjour,

tu as de la chance car en prenant le fichier en fil#6 sans rien modifier juste en effaçant le résultat en feuil2 ca ne fonctionne toujours pas. Essayé avec excel 2016 ET 2019 en vain. J'ai essayé en lisant les macros pas a pas avec F8 mais je n'ai pas le résultat escompté et a la fin il me rajout un bouton en feuil 2 et me dit que l'image va être tronqué. Pourtant je télécharge bien le fichier que tu as posté en 6. J'ai juste remarqué qu'il était en .xls et non .xlsm Est ce que ceci pourrait expliquer cela?

Merci a toi

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 10 Octobre 2022

• #12

Voici la version xlsm.

Si ça ne fonctionne pas, je suis à cours d'idées.

 

Pièces jointes

• Copie de Doublons-2.xlsm

  33.2 KB · Affichages: 5

Vote positif 0 Vote négatif

M

MIKEFLY62

XLDnaute Junior

• 10 Octobre 2022

• #13

Merci, en vain ... une dernière question, est ce c'est le bouton doublon de la Feuil1 ou le bouton "doublon" de la Feuil2 qu'il faut actionné (1 seul ou les 2) pour le résultat final. Aussi quelles sont les macros qui doivent être exécuté la macro sous Private Sub CommandButton1_Click() ou/et la macro Doublon et si c'est les 2 laquelle la première ?

Merci à toi

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 10 Octobre 2022

• #14

Il faut forcément que tu sois sur la Feuil1 parce que j'ai fait une macro "vite fait" qui s'exécute sur la feuille que l'on regarde.
Il suffit de rajouter un Sheets("Feuil1") devant toutes les lignes de Range/Cells de la macro pour que ça fonctionne peu importe la feuille que l'on regarde.

 

Vote positif 0 Vote négatif

M

MIKEFLY62

XLDnaute Junior

• 10 Octobre 2022

• #15

OK merci a toi, je vais bricoler dessus et reviens vers toi ultérieurement car il n'y a pas de raison que ca ne fonctionne pas chez moi.

Bonne journée et merci encore de ton aide.

 

Vote positif 0 Vote négatif