fusionner des cellules contenant des valeurs différentes

l'aide est explicite : il faut d'abord concaténer les contenus des cellules,
sinon excel ignore les autres cellules!

--
Serge CENCI
sergiofranceENLEVER@wanadoo.fr
MVP Microsoft WINDOWS
NB - adresse : enlever ENLEVER
"arnaud" <agoumain@jouve.fr> a écrit dans le message de news:
D47FFC37-6087-4E6A-8C9F-334BB40FA4CE@microsoft.com...

Voici mon problème :

les cellules A1, A2, A3 sont fusionnées et contiennent une valeur unique
(un
texte comme titre par exemple). Les cellules B1, B2, B3 ne sont pas
fusionnées et contienent des textes différents correspondant à un
descriptif.

Peut on fusionner les cellules B1, B2, B3 de sorte que les textes présents
dans B1, B2 et B3 soient concatenés ?

Merci pour votre aide.

Salut Arnaud,

Sub Fusion()
For Each xCellule In Selection
xRésult = xRésult & " " & xCellule.Value
Next
Selection.ClearContents
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
ActiveCell.FormulaR1C1 = xRésult
End Sub

Tu fais la sélection de ce que tu souhaites, puis tu exécutes la macro
suivante.
Attention, pas de retour en arrière prévu. C'est à dire que si tu
défusionnes, tu ne te retrouveras pas dans la configuration initiale.

@+ Lolote

"arnaud" <agoumain@jouve.fr> a écrit dans le message de news:
D47FFC37-6087-4E6A-8C9F-334BB40FA4CE@microsoft.com...

Voici mon problème :

les cellules A1, A2, A3 sont fusionnées et contiennent une valeur unique
(un
texte comme titre par exemple). Les cellules B1, B2, B3 ne sont pas
fusionnées et contienent des textes différents correspondant à un
descriptif.

Peut on fusionner les cellules B1, B2, B3 de sorte que les textes présents
dans B1, B2 et B3 soient concatenés ?

Merci pour votre aide.