Excel fusion de cellules

Résolu
mike -  
 Raph -
Bonjour à tous , voilà j'ai une cellule où il est marqué un mot ( dans excel ) , et en dessous une cellule où il est marqué un autre mot , j'aimerais fusionner les 2 cellules mais au moment de les fusionner excel me sort que seule la valeur du haut à gauche sera conservée , comment fusioner 2 cellules ayant chacun un mot?
merci

21 réponses

  • 1
  • 2
Résumé de la discussion

Fusionner deux cellules Excel contenant chacune un mot revient à contourner le comportement par défaut qui ne conserve que la valeur du coin supérieur gauche lors de la fusion.
Plusieurs solutions proposées incluent l’utilisation d’une macro qui concatène les contenus des cellules avant fusion, ou l’emploi d’une fonction CONCATENER pour assembler les mots dans une cellule intermédiaire puis fusionner.
D’autres répondants recommandaient des méthodes pratiques comme CONCATENER(A1; ' '; A2) pour ajouter un espace, ou la concaténation via macro qui assemble plusieurs lignes puis fusionne.
En cas de macros répétées ou de gros fichiers, certains évoquent des avertissements d'Excel lors des fusions et la recherche d'une automatisation pour réduire les confirmations, mais les solutions restent surtout des scripts ou formules.

Généré automatiquement par IA
sur la base des meilleures réponses
  1. JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   859
     
    bonsoir,

    met cette macro dans un module de ton classeur
    Sub eliot()
        Set vzone = Selection
        vtxt = vzone.Range("a1").Value
        For i = 2 To vzone.Rows.Count
            vtxt = vtxt & Chr(10) & vzone.Cells(i, 1).Value
            vzone.Cells(i, 1).ClearContents
        Next
        vzone.Range("a1").Value = vtxt
        With vzone
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = True
        End With
        vzone.Range("a1").Value = vzone.Range("a1").Value
    End Sub
    sélectionne tes 4 cellules et lance la.
    elle concatène avec saut de ligne tout ce qui est contenu dans les cellules de la colonne de gauche de ta sélection.
    ça marche avec le nombre de lignes et de colonnes que tu veux.

    il faudrait l'améliorer pour qu'elle gère correctement les trous.

    cordialement
    18
    1. alpheratz
       
      J'ai testé cette macro, ça marche au poil
      J'en revais depuis toujours ;-)
      merci
      0
    2. Lo!
       
      Bonjour,

      Comment peut-on adapter cette macro pour fusionner 2 colonnes dans une 3eme?
      Car ici on fusionne 2 lignes dans une même cellule.

      Donc moi je cherche à ce que A1 et A2 se fusionnent en A3.
      Merci!
      0
  • 1
  • 2