XL 2010 chercher doublons et les copiez

[adkheir]

Bonsoir le forum
je souhaite trouver les doublons sur une tableau en feuil1 sur la colonne B"nom et prenom" a l'aide de formule et les copiés les lignes entières sur un autre endroit

merci pour votre aide
cdlt
a+++

 

[Staple1600]

Bonsoir le fil, le forum

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

 

[adkheir]

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

 

[Staple1600]

Re

Voici de quoi t'aider

 

[adkheir]

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

 

[Staple1600]

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.

 

[mapomme]

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.

 

[Staple1600]

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 )

 

[mapomme]

Bonjour Staple1600,

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

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

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

Je n'avions point percuté

 

[Staple1600]

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)

 

[mapomme]

Re,

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

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

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

 

[Staple1600]

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

 

[adkheir]

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.

 

[laetitia90]

bonjour adkhneir, Staple ,Mapomme

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

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

 

[chris]

Bonjour à tous

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