recap de doublons

[blackjack]

Bonjour à tous

voilà mon problème est très simple:
je travaille sur plusieurs feuilles qui peuvent avoir des doublons
je ne veux pas les supprimer mais simplement les copier sur une feuille appelée recap

je joins un petit fichier qui sera plus explicite que moi

il y a toujours un code un nom et une valeur les doublons se trouvent au niveau du nom

merci du coup de main 🙂

jack

 

[pierrejean]

Re : recap de doublons

bonsoir blackjack

vois si cela te convient

 

[blackjack]

Re : recap de doublons

🙂 toujours les mêmes

Bonsoir Pierre jean

Je teste grandeur nature demain mais le fichier que tu as fait me semble très très bien

grand merci et passe une bonne soirée

Jack

 

[blackjack]

Re : recap de doublons

Bonjour à tous,
Pierrejean
j'essaie d'adapter ton code sur un de mes tableaux

Mes feuilles s'appelent CLEINTS1 CLIENTS2 etc... pour 6 feuilles en tout

j'ai donc remplacé les termes existants par les miens soit: unité par CLIENTS qui est le nom de ma feuille
ce qui donne :
For i = 2 To Sheets("CLIENTS" & n).Range("B65536").End(xlUp).Row
et la ça coince 🙁

peux tu m'aider sur ce coup là ?

merci
jack

 

[pierrejean]

Re : recap de doublons

bonjour Jack

teste ce code

Sub test()
ligne = 2
For n = 1 To 6
  For i = 2 To Sheets("CLIENTS" & n).Range("B65536").End(xlUp).Row
  z1 = Application.WorksheetFunction.CountIf(Sheets("CLIENTS1").Range("B2:B" & Sheets("CLIENTS1").Range("B65536").End(xlUp).Row), Sheets("CLIENTS" & n).Range("B" & i))
  z2 = Application.WorksheetFunction.CountIf(Sheets("CLIENTS2").Range("B2:B" & Sheets("CLIENTS2").Range("B65536").End(xlUp).Row), Sheets("CLIENTS" & n).Range("B" & i))
  z3 = Application.WorksheetFunction.CountIf(Sheets("CLIENTS3").Range("B2:B" & Sheets("CLIENTS3").Range("B65536").End(xlUp).Row), Sheets("CLIENTS" & n).Range("B" & i))
  z4 = Application.WorksheetFunction.CountIf(Sheets("CLIENTS4").Range("B2:B" & Sheets("CLIENTS4").Range("B65536").End(xlUp).Row), Sheets("CLIENTS" & n).Range("B" & i))
  z5 = Application.WorksheetFunction.CountIf(Sheets("CLIENTS5").Range("B2:B" & Sheets("CLIENTS5").Range("B65536").End(xlUp).Row), Sheets("CLIENTS" & n).Range("B" & i))
  z6 = Application.WorksheetFunction.CountIf(Sheets("CLIENTS6").Range("B2:B" & Sheets("CLIENTS6").Range("B65536").End(xlUp).Row), Sheets("CLIENTS" & n).Range("B" & i))
    If z1 + z2 + z3 + z4 + z5 + z6 > 1 Then
       Sheets("recap doublons unités 1 et 2").Range("A" & ligne) = Sheets("CLIENTS" & n).Range("A" & i)
       Sheets("recap doublons unités 1 et 2").Range("B" & ligne) = Sheets("CLIENTS" & n).Range("B" & i)
       Sheets("recap doublons unités 1 et 2").Range("C" & ligne) = Sheets("CLIENTS" & n).Range("C" & i)
       Sheets("recap doublons unités 1 et 2").Range("D" & ligne) = Sheets("CLIENTS" & n).Name
       ligne = ligne + 1
    End If
  Next i

je te laisse adapter eventuellement le nom de la feuille recap

en cas de probleme (possible puisque je ne peux tester) n'hesite pas a revenir

 

[blackjack]

Re : recap de doublons

Mince de mince
regardes je suis reparti avec une construction complète avec tes info
et ça plante toujours

je te joins mon fichier

Merci
jack

 

[pierrejean]

Re : recap de doublons

hello jack

ne cherche pas à t'engager a la NASA !!

tu as de sérieux problèmes avec l'espace

il y en avait en trop un peu partout !!

apres ETS 1 dans le nom de la Feuille

entre RECAP et DOUBLONS dans la macro

il en manquait dans la macro a "ETS" & n

enfin j'ais réussi a mettre de l'ordre

vois si ça tourne

 

[blackjack]

Re : recap de doublons

Bonjour Pierrejean
ça fonctionne (j'ai mis le temps, je m'étais accordé quelques jours de congés😎 )

j'ai adapté le code avec un autre tableau et je m'en suis sorti
par contre je n'ai pas trouvé ce qui clochait dans ma version


en tout cas merci encore 😉

jack