Fusionner des cellules en gardant les valeurs

bonjour à tous,

je voudrais fusionner des cellules, jusque là pas de souci.

seulement le fait de fusionner supprime les valeurs de la cellule du bas.

y a t'il une solution pour garder toutes les valeurs?

dans mon cas il s'agit de texte, il n'y a pas de formule.et les cellules sont à fusionner sont sur des lignes

exemple: cellule duhaut : magasin de lyon

cellule du bas: Mr dupont

merci pour vos réponses

cordialement, patrick

hello

suggestion :

• créer une ligne (ou colonne) où tu concatènes tes cellules (fonction &)
• ensuite dans cette ligne tu copies/collage spécial valeurs sur elles-mêmes (ça fige le contenu)
• tu supprimes les lignes d'origine

essaye sur une copie de ton ficher

au besoin joindre ton fichier

rem : c'est souvent une mauvaise idée de mettre 2 informations dans une seule cellule, à toi de juger 8)

bonjour jmd,

ok cela fonctionne mais demande beaucoup de manip et autant tout retaper directement.

le but était de trouver une méthode plus rapide, lié à la fusion pa exemple.

merci tout de même je ne connaissais pas cette fonction contaner.

re à toi

c'est rapide pourtant, si tu dois le faire 1 fois ça va

si tu dois le faire tous les jours, je comprends mieux

alors il te faut essayer l'enregistreur de macros pour fait tout ça : magie magie !

Bonjour,

Personnellement, je ne vois pas l'intérêt de fusionner si c'est pour y inscrire 2 choses différentes...

Quelque chose m'échappe.

Cordialement,

bonjour elbie,

pourquoi fusionner des cellules si les inscritpions sont différentes?

c'est que la personne s'en est rendu compte après que le tableau soit fini, sinon effectivement toutes les infos nécessaires aurait été construites différement.

est ce plus clair?

sinon effectivement utilisé une macro, pourquoi pas....

si il n'y a pas d'autre idée je cloturerai le post.

merci,

Bonsoir,

le fait de fusionner 2 cellules supprime automatiquement le contenu de la ou des cellules suivantes.

Seul le contenu de la première cellule est conservé.

Par une macro, ce serait possible.

Pour cela, afin de voir la structure de ton fichier, joins un exemple, avec des données bidons....

Bonne soirée

Bonsoir Pat,

Salut Félix,

Je partage ton avis, sans fichier, on travaille dans le vide...

En attente de tes données, Pat, donc... A moins que la solution proposée par jmd te convienne... si tu dois le faire une fois pour toutes et pas de façon récurrente, c'est en effet une possibilité qui devrait résoudre ton problème.

Cordialement

https://www.excel-pratique.com/~files/doc2/essai_liste.xls

voici un fichier qui représente un peu le réel avec evidement beaucoup moins de données.les données à fusionner sont dans la 1er colonne.nom du magasin et nom du contact.

merci,

Bonsoir,

Ton fichier correspond un peu à ce que je m'imaginais. Ce n'est pas très difficile de s'en sortir... voilà ce que je te propose

• insérer une colonne par exemple entre A et B
• utiliser une formule pour récupérer le texte de la deuxième ligne : =CONCATENER(A3;" - ";A6) -> à recopier vers le bas
• copier la colonne ainsi créée, puis collage spécial : valeurs
• sélectionner le tableau entier, puis dans Format, décoher "fusionner les cellules"
• trier sur la nouvelle cellule : les cellules vides vont se trouver regroupées, il n'y aura plus qu'à les supprimer.

Si tu dois modifier un fichier une fois pour toutes, c'est faisable en quelques minutes. Si tu dois renouveler l'opération plusieurs fois, il vaudrait mieux essayer d'automatiser la transformation par macro. A toi de nous dire tes besoins.

Cordialement,

Bonjour à tous,

essaye ce code:

Sub concat()
Dim Cel As Range, Lg As Long
    Application.ScreenUpdating = False
        Lg = Range("A65536").End(xlUp).Row
    For Each Cel In Range("a3:a" & Lg)
        Cel = Cel & Cel.Offset(1, 0)
        Cel.Offset(1, 0).EntireRow.Delete
    Next Cel
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/dKAgHConcatener.xls

Bonne journée

Claude.

édit: il faut défusionner tout le tableau avant de lancer la macro.

Sub concat()
Dim Cel As Range, Lg As Long
    Application.ScreenUpdating = False
        Lg = Range("A65536").End(xlUp).Row
        With Range("a3:d" & Lg)
            .MergeCells = False
        End With
    For Each Cel In Range("a3:a" & Lg)
        Cel = Cel & Cel.Offset(1, 0)
        Cel.Offset(1, 0).EntireRow.Delete
    Next Cel
End Sub

là, c'est fait.

merci à vous pour vos réponses

v_elbie et dubois, vos 2 solutions me conviennent suivant la situation.

merci encore,

pat