Fusionner un résultat "B" issu de cellules "A" en doublons [Résolu/Fermé]

Signaler
Messages postés
8
Date d'inscription
mardi 1 juillet 2014
Statut
Membre
Dernière intervention
4 juillet 2014
-
Messages postés
8
Date d'inscription
mardi 1 juillet 2014
Statut
Membre
Dernière intervention
4 juillet 2014
-
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



7 réponses

Messages postés
16477
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
10 juin 2021
3 189
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
Messages postés
8
Date d'inscription
mardi 1 juillet 2014
Statut
Membre
Dernière intervention
4 juillet 2014

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 !
Messages postés
16477
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
10 juin 2021
3 189
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....
Messages postés
8
Date d'inscription
mardi 1 juillet 2014
Statut
Membre
Dernière intervention
4 juillet 2014

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 "
Messages postés
16477
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
10 juin 2021
3 189
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
Messages postés
8
Date d'inscription
mardi 1 juillet 2014
Statut
Membre
Dernière intervention
4 juillet 2014

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
Messages postés
16477
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
10 juin 2021
3 189
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)
Messages postés
8
Date d'inscription
mardi 1 juillet 2014
Statut
Membre
Dernière intervention
4 juillet 2014

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

Merci !
Messages postés
8
Date d'inscription
mardi 1 juillet 2014
Statut
Membre
Dernière intervention
4 juillet 2014

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

Je vous confirme que cela fonctionne parfaitement.

Merci à vous.