Fusionner des lignes en fonction d'une valeur

[numz]

Bonjour,
je suis graphiste et je ne connais que très peu excel.
J'ai consulter ce site qui à l'air très complet et fait des recherches dans ce forummais j'avoue que je suis perdu.

Je vous explique mon problème :

j'ai un feuille avec 3 colonnes (année, groupe, artiste) qui contient plus de 5000 lignes.
Je dois fusionner les lignes de la colonne "année" en fonction de la valeur de la colonne "groupe", idem pour la colonne "groupe" et la colonne "artiste".

Je ne sais pas si j'ai été très clair dans mes explications...
Pour être plus explicite, je joins 2 fichiers xls, le premier "base" est le fichier de départ et "resultats", ce que je souhaiterais obtenir.

Et à part me taper tout à la main, je ne vois pas de solution.

merci d'avance pour votre aide

 

[pierrejean]

Re : Fusionner des lignes en fonction d'une valeur

bonjour numz

Voila qui pourra t'aider

Par contre avec 5000 lignes il va falloir etre patient ,très patient

Enfin , je pense que cela ira toujours plus vite qu'a la mimine

 

[numz]

Re : Fusionner des lignes en fonction d'une valeur

merci pierrejean,
je suis bleuffé par ta rapidité à sortir un truc qui fonctionne très bien !

puis-je abuser de ton temps et te demander un peu d'explication sur le fonctionnement de cette macro ?

Histoire de me coucher moins bête.

merci

 

[porcinet82]

Re : Fusionner des lignes en fonction d'une valeur

Salut,

Moi j'en profite egalement pour demander a PierreJean (qui est toujours d'excellent conseil) pourquoi il utilise une Collection. Est-ce que tu n'aurais pas pu faire la meme chose avec un tableaux ?
En faite, je n'ai pas tres bien saisie a quoi servait une Collection et comment ca s'utilisait...
M'enfin, je suis deja content de savoir utiliser les tableaux qui me rendent de nombreux services (et pas seulement en vba excel) !!!

@+

 

[pierrejean]

Re : Fusionner des lignes en fonction d'une valeur

bonsoir numz , Romain

@ Romain 🙂
J'utilise la collection pour créer une liste sans doublons ce qui est plus simple que de creer un tableau sans doublons (nb il existe aussi le dictionary mais jen suis moins familier .Le Grand Hervé a créé en son temps un post a ce sujet)
Le truc c'est qu'en mettant en clé le cstr de l'item , les doublons creent une erreur a laquelle on pallie avec le on error resume next
on fait suivre tout de suite par le on error goto 0 pour retrouver le signalement des erreurs

@ numz
dans le fichier la macro est commentée (du mieux que je peux,ce n'est pas mon fort)
Quant a la rapidité : je sortais d'un probleme similaire

 

[porcinet82]

Re : Fusionner des lignes en fonction d'une valeur

Salut,

Et bien merci PierreJean pour ces précisions. Par contre, je ne suis pas certains de les utiliser tout de suite... 🙄

@+

 

[numz]

Re : Fusionner des lignes en fonction d'une valeur

Merci beaucoup !
Je vais regarder çà de plus près.

 

[kilcelalf]

Re : Fusionner des lignes en fonction d'une valeur

Bonjour à tous,
je profite un peut de ce post pour vous faire une petite demande de fusion de cellule.
Voila j'aimerais fusionner plusieurs cellules entre elles mais garder le texte de chacune d'elle.
C'est à dire dans la premiere cellule j'ai toto et dans la cellule d'en dessous j'ai tata.
Ma demande est donc, est il possible de fusionner ces deux cellules en gardant toto et tata l'un sur l'autre mais dans la meme cellule .....?
Generalement lors d'une fusion seul le texte du haut est garder.
J'ai plusieurs lignes a faire et resaisir tout n'est pas chose facile (en temps).
Merci à vous

Kilcelalf

 

[kilcelalf]

Re : Fusionner des lignes en fonction d'une valeur

ci-joint un exemple !

merci

 

[pierrejean]

Re : Fusionner des lignes en fonction d'une valeur

bonjour kilcelalf

vois si cela te convient

 

[kilcelalf]

Re : Fusionner des lignes en fonction d'une valeur

Bonjour,
C'est super ! Pile poil ce que je recherchais. Merci, j'aimerais savoir le comment SVP.

 

[pierrejean]

Re : Fusionner des lignes en fonction d'une valeur

Re

le comment ?

2 macros:

Private Sub CommandButton1_Click()
Call fusionspeciale
End Sub

Sub fusionspeciale()
valeur = Cells(Selection.Row, Selection.Column)
For Each cel In Selection
 If cel.Value <> valeur Then valeur = valeur & Chr(10) & cel.Value
Next cel
With Selection
 .ClearContents
 .VerticalAlignment = xlCenter
 .HorizontalAlignment = xlCenter
 .MergeCells = True
 .WrapText = True
 Cells(.Row, .Column) = valeur
End With
End Sub