Re : Concaténer plusieurs feuilles sur une seule par dénominateur commun
Re,
J'ai bien reçu ton fichier.
Si tu n'as pas toutes les lignes, c'est qu'à la ligne 4154, tu as une ligne vide et comme on utilise :
Feuil2.Cells(1, 1).CurrentRegion.Copy Feuil1.Cells(1, 1)
Cela ne prend que les lignes faisant parties du tableau, comme il y a une ligne vide, la suite n'est pas prise dans le tableau.
Dans tous tes onglets tu as le même problème. Donc j'ai créé une macro pour supprimer les lignes vides.
En premier lieu, lances la macro
Sup_Lig_Vide dans le module 4
Dans "Tout" tu peux aussi supprimer la ligne 4155 où les données ne sont pas cohérentes avec le reste. A mon avis il faudra regarder à tous tes onglets, car tu as des adresses ou des N° de tél dans la première colonne.
Dans l'onglet "Electro FR" une fois
Sup_Lig_Vide passée, tu supprimes la ligne 3394, car tu as une donnée avec erreur (qui bloque les autres macros).
Chez moi, je n'ai testé qu'avec la feuille Club ViteCC, cela n'a pris que 52 secondes. Je l'ai modifié pour que tu testes chez toi (macro "Copie" dans le fichier joint dans le module 1)
Toujours dans la macro "Copie", si l'on n'écrit pas "Non" dans la cellule le temps passe à 36 secondes.
Ensuite, j'ai déplacé l'écriture du nom de la feuille dans la dernière colonne. Je l'avais mis trop tard dans la macro, résultat il était réécrit à chaque boucle. On arrive maintenant à 18 secondes. On a divisé par 3.
Deuxième solution, passer par les Tableaux :
J'ai fait une autre macro avec des tableaux, cela va un peu plus vite (macro "CopieTb" dans le fichier ci-dessous dans le module 2)
Sans le "Non" et avec le nom de colonne déplacé, on arrive à moins d'1 seconde.
Donc, essaies "CopieTb", pour le moment, ce n'est que sur le premier onglet de Club.
Je t'ai mis une troisième macro (macro "CopieTbTout" dans le fichier ci-dessous dans le module 3), avec l'ensemble des onglets. Chez moi, le temps est de 42 secondes.
A te relire
Martial
PS : Pour éviter les doublons, j'ai inclus le nom de la société. Mais je ne sais pas si c'est une bonne chose, si la personne a été indiquée sans sa société ....
PS1 : Si tu n'y arrive pas, dis le moi et je te renvoie ton fichier modifié.