Excel fusion de cellules

Résolu/Fermé
mike - 15 févr. 2006 à 18:59
 Raph - 6 déc. 2012 à 21:35
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

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
17 févr. 2006 à 02:40
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
J'ai testé cette macro, ça marche au poil
J'en revais depuis toujours ;-)
merci
0
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