Fusionner un résultat "B" issu de cellules "A" en doublons

Résolu/Fermé

MutMut35 Messages postés 8 Date d'inscription mardi 1 juillet 2014 Statut Membre Dernière intervention 4 juillet 2014 - 1 juil. 2014 à 21:42
MutMut35 Messages postés 8 Date d'inscription mardi 1 juillet 2014 Statut Membre Dernière intervention 4 juillet 2014 - 4 juil. 2014 à 11:56

Bonjour,
Voici ce que je souhaiterai faire via une macro. J'aurai besoin de votre aide pour cela.
Je mets en pj un fichier test issu de mon fichier réel afin que vous puissiez comprendre.
J'ai 2 colonnes. Une colonne A que j'ai nommé pour le test Ref et une colonne B, que j'ai nommé Number Ship.
La colonne A a des valeurs qui ne sont pas uniques.
Je souhaiterai donc concaténer avec un séparateur ";" tous les résultats issus de mes refs en doublons.
J'ai fait un exemple dans le xls, avec une formule de concaténation, pour que ce soit plus clair.
Cette formule fonctionne bien lorsque l'on a quelques dizaines de refs à traiter, mais là mon fichier original fait plusieurs milliers de lignes.
Je pense qu'une macro serait plus simple et surtout plus fiable.

PS: Je suis sur Excel 2010.

Merci à vous !

Le fichier est ici:

https://docs.google.com/spreadsheets/d/104dIWaQ1PiSd8CUImCttuUu7JkZmc1-JZKZQ71bKN0U/edit?usp=sharing

A voir également:

Fusionner doublon excel
Liste déroulante excel - Guide
Supprimer doublon excel - Guide
Fusionner fichier excel - Guide
Formule excel - Guide
Fusionner pdf - Guide

7 réponses

Réponse 1 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
2 juil. 2014 à 07:39

Bonjour,

Pas pratique ta feuille google :-(

pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe sur
http://cjoint.com/ 
puis copier l'adresse du lien et la coller dans le message de réponse

Qu'entends tu par .."plusieurs milliers de lignes. "...: 5000,20000,80000... ?

Dans l'attente

Réponse 2 / 7

MutMut35 Messages postés 8 Date d'inscription mardi 1 juillet 2014 Statut Membre Dernière intervention 4 juillet 2014
2 juil. 2014 à 09:27

Bonjour,

Merci pour l'info d'hébergement de la pj.

Voici donc le lien: http://cjoint.com/14ju/DGcjz0Kmt6F.htm

Dans le fichier que je travaille actuellement il y a près de 5 000 lignes. J'en ai un autre qui en fait 24 000.

Merci !

Réponse 3 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
2 juil. 2014 à 13:56

Re

Retour de ton fichier avec proposition (j'ai défait parfois l'ordre des ref pour voir si c'était pris en compte quelque soit l'adresse)
https://www.cjoint.com/?DGcn27cyQbE

Tu dis....

Réponse 4 / 7

MutMut35 Messages postés 8 Date d'inscription mardi 1 juillet 2014 Statut Membre Dernière intervention 4 juillet 2014
2 juil. 2014 à 17:23

Bonjour et merci pour votre retour.

Sur le fichier que vous m'avez joint, cela fonctionne effectivement parfaitement.

En revanche, lorsque je remplace les valeurs par celles de mon fichier, j'ai une erreur d'éxécution que l'outil de débogage me remonte ainsi. (je ne mets que la fin.)
Le pb est au niveau de la ligne Value=Application..

Pour info dans mon fichier les valeurs dans la cellule B sont séparées par un ";".
Cela peut jouer?

Merci

"
'restitutions
With Range("C1:C" & Derlig)
.Value = Application.Transpose(T_colC)
.Borders.Weight = xlThin
.Columns.AutoFit
End With

End Sub "

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 3/07/2014 à 09:30

Nonjour,

Si ça marche sur mon fichier, difficile de savoir ce qui se passe chez toi !
d'autant plus que tu n'indiques pas le message d'erreur....
tu as bien un point devant "value" ?

serai absent une grande partie de la journée

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

MutMut35 Messages postés 8 Date d'inscription mardi 1 juillet 2014 Statut Membre Dernière intervention 4 juillet 2014
3 juil. 2014 à 09:45

Bonjour,

J'ai une erreur de type 13..
Quand je vais dans l'outil de débogage, il me dit que l'erreur est à la ligne Value, comme indiqué dans mon précédent post.

Voici le lien pour voir le fichier en configuration type de ce que je souhaite faire.
Ce sera peut-être plus simple pour vous.
https://www.cjoint.com/?3GdjSx3lBbo

Cdt

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
3 juil. 2014 à 12:13

Effectivement c'est curieux !
voici ce que j'ai fait mais ça ralentit le processus
après l'indication "restitution"

With Range("C1:C" & Derlig)
     .ClearContents
     For Lig = 1 To Derlig
          Cells(Lig, "C") = T_colC(Lig)
     Next
     .Borders.Weight = xlThin
     .Columns.AutoFit
End With

je repasserai en fin d'apres- midi en espèrant que...
:o)

Réponse 6 / 7

MutMut35 Messages postés 8 Date d'inscription mardi 1 juillet 2014 Statut Membre Dernière intervention 4 juillet 2014
3 juil. 2014 à 12:14

ok je vais ajouter cela et tester. je vous tiens au jus.

Merci !

Réponse 7 / 7

MutMut35 Messages postés 8 Date d'inscription mardi 1 juillet 2014 Statut Membre Dernière intervention 4 juillet 2014
4 juil. 2014 à 11:56

Bonjour Michel et désolé de ne pas être revenu vers vous plus tôt.

Je vous confirme que cela fonctionne parfaitement.

Merci à vous.

Discussions similaires

tirage aléatoire sans doublon

Discussions similaires

Newsletters