Excel fusion de cellules Résolu

Question

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

Afficher la suite

JvDo · Accepted Answer

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

UsulArrakis · Answer

salutil faut utiliser la fonction CONCATENERen A1 "bonjour"en A2 "toto"en A3 = CONCATENER(A1;A2) ça donne en A3 :  "bonjour toto"

incognito02 · Answer

Bonsoir UsulArrakisBonsoir MickUsulArrakis, ta solution donne ceci bonsoirtotoil vaut mieux mettre ceci : CONCATENER(A1;" ";A2)pour faire l'espace entre bonjour et toto.Bonne soirée.

mike · Answer

En fait c'est la cellule A1 et B1 et je vois aucune fonction concatener , je comprends rien là ...que dois je faire exactement?

incognito02 · Answer

Bonsoir Mike,tu cliques sur le menu insertion puis fonction dans catégorie, tu choisis tous, dans nom de la fonction, tu choisis : concatenerça va aller mieux ?A+

mike · Answer

non çà ne marche pas du tout , dans la cellule D2 j'ai : Groupe A et dans la cellule D3 j'ai : maths .
Je veux que les cellules D2-D3-E2-E3 fussionent toutes les 4 , et que le bloque Groupe A et maths soit centré , groupe A étant au dessus de maths .

UsulArrakis · Answer

t'es compliqué toi !
mets nous un fichier exemple de ce que tu veux sur http://cjoint.com/

en gros dans ta cellule tu veux
Groupe A
Maths
Contenus de E2 et E3

mais pour ça il faut aller à la ligne à l'intérieur de la cellule
en se mettant entre les mots Groupe A et maths
et en faisant Alt+Entrée

sinon faut passer par le VBA (macro)

mike · Answer

"en gros dans ta cellule tu veux
Groupe A
Maths
Contenus de E2 et E3 "

NON , je veux que

Groupe A
maths

soit contenu et centré dans les cellules D2-D3-E2-E3 qui doivent fusioner et former une seule cellule .

mike · Answer

mais non c'est grotesque il suffit de faire une petite manipulation de rien du tout mais apparemment personne ici ne la connait enfin c'est le comble

JvDo · Answer

bonjour,

un minimum de respect Mike.

les personnes qui t'ont répondu ont pris le temps de te lire puis celui d'essayer de te comprendre et enfin celui de te trouver une solution, la tester et la formaliser un peu.

ton "grotesque" est déplacé.

j'espère que tu nous feras part de la "petite manipulation de rien du tout que personne ne connait ici".

mike · Answer

j'estime que quelqu'un qui doit répondre doit prendre en compte la différence de niveau de maitrise d'excel entre celui qui répond et celui qui demande , sinon j'appelle çà du snobisme pur et simple , je vais être plus clair sur mon problème :

lance excel

Dans la cellule D2 écris : Maths
Dans la cellule D3 écris : Physique

Sélectionne les cellules D2-D3-E2-E3

Ensuite : Format > Cellule > alignement > fusionner les cellules

message d'erreur : la sélection contient plusieurs valeurs . la fusion des cellules ne conservera que les données de la cellule supérieure gauche .

Pour remédier à çà il s'agit juste de faire une petite manip de rien mais je l'ai complètement oublié , quelqu'un doit bien la connaitre ?

Et désolé si le "grotesque" a pû offensé quelqu'un...

JvDo · Answer

Bonsoir,content qu'elle te convienne!ça n'était pas le cas de Mike...cordialement

Eve · Answer

Merci Beaucoup à tous !
J'ai réussi à fusionner plusieures cellule au boulot du coup grâce à vous !

....

amadius · Answer

vous avez besoin de fusionner plusieurs cellules entre elles. Par exemple,, sélectionnez les cellules que vous souhaitez fusionner, elles apparaissent alors en surbrillance, et cliquez sur le bouton Fusionner et centrer présent dans la barre d'outils Mise en forme d'Excel.
Cette commande est également accessible via le menu Format puis Cellule. Une nouvelle fenêtre s'ouvre alors, rendez-vous dans l'onglet Alignement puis cochez la case Fusionner les cellules. Cliquez enfin sur le bouton OK pour appliquer la modification.
                             AMADIUS

speed06 · Answer

salut help me
imaginez vous avez 2 cellules dans la premiere"A1" vous avez un mot 'pierre'
dans la seconde"A2" vous avez un autre mot 'dance'

vous fusionnez de n'importe quelle manière expliquer ici 
et dans tous les cas dans "A3" si vous voulez recuperé le texte par copier 
vous avez la formule et non ' pierre dance '

donc pour moi c est pas de la fusion de cellule  

je voudrais fusionner pour pouvoir recuperé le résultat fusionner pour crée une autre feuille car j ai 850 ligne a fusionner pour eviter de copier coller 1700 fois 
si quelqu'un a une solution

merci

speed06 · Answer

salut a tu trouver le soluce pour la fusion

UsulArrakis · Answer

salut speed
en A3 mettre =A1&" "&A2
ou utiliser la fonction CONCATENER :  =CONCATENER(A1;" ";A2)
et dans le menu Outils / options / onglet "affichage" vérifier que "formules" n'est pas coché

Zal · Answer

Petite amélioration du script, très pratique soit dit en passant. 
À se demander ce que fait l'armée d'ingénieurs à Redmond toute la journée... il me semble que c'est la moindre des choses que de prévoir la fusion de deux cellules ou plus...

Sub Concatenation_Cellulle()
    Dim vzone As Range
    Dim vtxt As Variant
    Dim i As Long
    
    Selection.UnMerge
    
    Set vzone = Selection
    vtxt = ""
    For i = 1 To vzone.Rows.Count
        If Len(vzone.Cells(i, 1).Value) > 0 Then
            If Len(vtxt) > 0 Then
                vtxt = vtxt & Chr(10) & Trim(vzone.Cells(i, 1).Value)
            Else
                vtxt = Trim(vzone.Cells(i, 1).Value)
            End If
            
        End If
        vzone.Cells(i, 1).ClearContents
    Next
    vtxt = Trim(vtxt)
    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

MaMaT · Answer

Bonjour,

j ai créer une macro qui lors de son execution fusionne certaines cellules,
Mon problème vient du fait que le fichier traité est gros, et que je fusionne a plusieurs reprise ( 70 fois environ),
A chaque fusion je recoit le message d avertissement classique,

Avertissement : Microsoft Excel place uniquement les données situées dans le coin supérieur gauche de la plage sélectionnée dans la cellule fusionnée résultante. Si des données existent dans d'autres cellules, ces données sont supprimées. 
 

Sauriez vous comment supprimer ce message? 
A chaque itération de ma macro je dois cliquer 70 fois pour lui dire que " oui je veux fusionner "
je suis sur que c est simplement une ligne de code ou une case a cocher, mais j ai pas réussi a la trouver...  

merci d avance

jerome · Answer

salut tt le monde.

voici mon probleme. j ai groupe plusieurs 8 colones ensembles (de 1997 a 2004). j ai fais un graphiques qui comprend des valeurs sur ces 8 colones + 3 autres (2005 a 2007). lorsque je ferme ces 8 colones, sur mon graphiques, il me retire automatiquement les valeurs de ces 8 colones. si je le reouvre, elles reapparaissent automatiquement. mais moi, j aurias besoin de garder tt le tps les valeurs, meme lorsque je ferme un groupe.

est ce que qlq un peut m aider plz

merci

Cervantes · Answer

Bonjour,

Si j'ai bien compris ce que tu veux faire je te propose ma solution:

Sub CellFusion()
    Dim i As Integer
    For i = 1 To 50
        'worsheet.temp
        Range("A" + CStr(i) + ":E" + CStr(i)).Select
        Selection.Merge
    Next i
End Sub

Ce script permet de fusionner 1 cellule sur 5 colones et cela 50 fois.

Excel fusion de cellules

21 réponses

Votre réponse

Discussions similaires

Newsletters