XL 2010 chercher doublons et les copiez

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2017

• #2

Bonsoir le fil, le forum

Le filtre élaboré utilisé de façon idoine sait parfaitement faire cela 😉

 

Vote positif 0 Vote négatif

adkheir

XLDnaute Occasionnel

• 16 Décembre 2017

• #3

bonsoir Ce lien n'existe plus, le forum
j'ai vu certaines vidéos sur le net et je n'ai pu réussir a l'appliquer sur mon tableau , et j'ai cru qu'avec l'aide de formule ça résoudrait mon problème a mon avis , sinon j’espère une aide de votre part
cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2017

• #4

Re

Voici de quoi t'aider

 

Vote positif 0 Vote négatif

adkheir

XLDnaute Occasionnel

• 17 Décembre 2017

• #5

bonsoir
avec 11051 lignes ça rame et puis le pc bloc ; pourrais_tu m'expliquez avec plus de détails s'il te plait.
merci
cdlt
a++

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #6

Bonjour le fil, le forum

Je ne peux rien expliquer sur de simples images.
Joins un fichier Excel exemple anonymisé pour qu'on puisse faire des tests.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Décembre 2017

• #7

Bonjour à tous,

La solution de Staple1600 fonctionne très bien mais elle est un peu longuette sur mon PC (âgé de plus de 10 ans). Une autre piste via VBA.

 

Pièces jointes

• adkheir- copier doublons- v1.xlsm

  681.1 KB · Affichages: 70

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #8

Bonjour mapomme

Toujours cette bonté dominicale qui colle à tes pépins 😉
Mais c'est pas du jeu, le demandeur voulait une solution formulée mais pas macrotée 😉
(voir message#1)

Si j'étais moi, je me poserai la question suivante:
Que fait-on ensuite avec ces doublons copiés ailleurs ?
Ne s'agit-il pas au final de supprimer des doublons?
Si oui alors, Données/Supprimer les doublons fera le job sans macro, sans formules et sans pantalon
(salut à toi Rika 😉)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Décembre 2017

• #9

Bonjour Staple1600,

Staple1600 à dit:

Toujours cette bonté dominicale qui colle à tes pépins

Cliquez pour agrandir...

Allez ! Un jour sur sept, c'est acceptable, non ? 😳

Staple1600 à dit:

le demandeur voulait une solution formulée mais pas macrotée

Cliquez pour agrandir...

Je n'avions point percuté 😵

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #10

Re

@mapomme
Sauf dans le cochon, où tout est bon sept jours sur sept 😉
(C'est bien avec toi qu'on a récemment évoqué le cochon ici ?)

Attendons le retour du demandeur (avec pour ce qui me concerne l'ajout d'une PJ)

Sinon, tu présumes quoi à propos de cette affaire de doublons?
(voir mon précédent message)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Décembre 2017

• #11

Re,

Staple1600 à dit:

Sinon, tu présumes quoi à propos de cette affaire de doublons?
(voir mon précédent message)

Cliquez pour agrandir...

Staple1600 à dit:

Si j'étais moi, je me poserai la question suivante:
Que fait-on ensuite avec ces doublons copiés ailleurs ?
Ne s'agit-il pas au final de supprimer des doublons?
Si oui alors, Données/Supprimer les doublons fera le job sans macro, sans formules et sans pantalon

Cliquez pour agrandir...

Sans pantalon, ça te regarde...😀
La demande m'a surpris mais pourquoi pas? Si on savait le pourquoi de la demande, on pourrait probablement trouver une solution par formules (par paquet de doublons, recherche de max ou min ou le plus ancien ou récent, cohérence , etc...)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #12

Re

@mapomme
Dans tout bon cochon*, il y a du bon lard
Dans toute bonne base de données, il n'y pas de lard (de doublons veux-je dire😉)
Or donc je suppute que s'il y a doublons, c'est qu'à un moment ou un autre on finira par dédoublonner.
Le demandeur se fait attendre, il doit être parti à la messe ou au PMU 😉
(à moins que ce ne soit à la chasse, rapport à son avatar)

*: tu n'as pas levé le doute sur ma précédente interrogation cochonaillesque 😉

 

Vote positif 0 Vote négatif

adkheir

XLDnaute Occasionnel

• 17 Décembre 2017

• #13

bonjour mapomme ,Staple1600 , le forum
avant tout je remercie vivement mapomme pour son code qui est impeccable , merci toi aussi Staple1600 , surtout pour ton humour qui me plait d’ailleurs .
concernant la méthode de Staple1600 je l'ai appliqué et ça marche , sauf peut être quelle n'est pas bien précise surtout quand le nombre d'espace entre le nom et prénom ne sont respectés ,ainsi les lettres majuscules et minuscules en tapant les noms et prénoms, et si vous une idée elle la bienvenue.
Le pourquoi ce code c'est parce que je veux savoir les noms répétés pendant une période déterminée.
merci pour votre aide
cordialement.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 18 Décembre 2017

• #14

bonjour adkhneir🙂, Staple🙂🙂 ,Mapomme🙂🙂

une autre facon encore de l'écrire on évite une boucle.... en rapidité doit être a peu prés idem ??

VB:

Sub es()
  Dim t(), i As Long, m As Object, y As Byte, x As Long
   Application.ScreenUpdating = 0
   Set m = CreateObject("Scripting.Dictionary")
   m.CompareMode = TextCompare
   t = Feuil1.Range("a2:f" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value2
   For i = 1 To UBound(t): m.Item(t(i, 2)) = m.Item(t(i, 2)) + 1: Next i
    For i = 1 To UBound(t)
   If m.Item(t(i, 2)) > 1 Then
   x = x + 1
   For y = 1 To 6: t(x, y) = t(i, y): Next y
   End If
   Next i
   Feuil2.[j2].Resize(x, 6) = t
End Sub

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Décembre 2017

• #15

Bonjour à tous

A relier avec ce fil https://www.excel-downloads.com/threads/comparer-deux-tableaux.20021528/
et d'autres ailleurs qu'ici...

 

Vote positif 0 Vote négatif