Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

recap de doublons

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion blackjack
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

blackjack

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : recap de doublons

bonjour Jack

teste ce code

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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Doublons
Réponses
2
Affichages
531
JohnBill
R
  • Question Question
XL 2016 Fonction RECHERCHEV où?
Réponses
5
Affichages
245
OKBI
O
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
701
jeff1494
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
488
agnesd
A
A
  • Question Question
XL 2016 Mise à jour stock pour articles avec nomenclature
Réponses
5
Affichages
367
vgendron
P
  • Question Question
Autres moyenne de plusieurs lignes et colonnes sous deux conditions
Réponses
8
Affichages
413
podarck
P
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
412
nightswan
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
392
job75
K
  • Question Question
XL 2016 Coup de main pour créer un fichier Excel qui gère le suivi des visites médicales du personnel.
Réponses
4
Affichages
549
dysorthographie
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
865
Magis
M
N
  • Résolu(e)
Microsoft 365 Optimisation tableau avec adresse mail et numéro de téléphone (débutant)
Réponses
4
Affichages
316
JHA
J
  • Question Question
XL 2019 Formule Décaler sans les doublons
Réponses
11
Affichages
588
Caninge
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
488
Florent74
F
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
985
job75
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
P
  • Question Question
XL 2010 Fonction Alea.entre.bornes et les doublons .....
Réponses
5
Affichages
994
crocrocro
C
A
  • Résolu(e)
XL 2021 suppression de doublons
2 3
Réponses
31
Affichages
2 K
auloin
A
  • Résolu(e)
XL 2021 Deux formats de date dans un jeu de donnée volumineux
2
Réponses
15
Affichages
656
JHA
J
M
  • Question Question
XL 2016 macro copier coller de plusieurs feuilles excel
Réponses
2
Affichages
553
klin89
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…