fusion de plusieurs cellules en gardant le contenu de chacune

Salut tipi,

Si ta sélection contient des cellules sur
une seule colonne, essaie ceci :

Sub Fusion()
Set ici = Selection
n = ici.Rows.Count
For i = 2 To n
ici(1) = ici(1) & Chr(10) & ici(i)
Next i
Range(ici(2), ici(n)).Clear
ActiveCell.Select
End Sub

Cela te convient-il ?

Serge


"tipi" <tipi128@hotpop.com> a écrit dans le message de news:
OSyl%23iD7FHA.3752@tk2msftngp13.phx.gbl...

Salut

j'ai plusieurs cellules verticalement alignées que je sélectionne
est il possible d'avoir une macro qui fusionne ces cellules tout en
gardant le contenu de chacune. Un retour à la ligne séparera les contenus
de chacune des cellules dans la nouvelle cellule disponible.

Merci

Bonjour,

Sub Toto()
For Each v In Selection
t = t & v.Value & chr(10)
Next
t = Left(t, Len(t) - 1)
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Selection.Orientation = 0
Selection = t
End Sub

Camille

"tipi" wrote:

Salut

j'ai plusieurs cellules verticalement alignées que je sélectionne
est il possible d'avoir une macro qui fusionne ces cellules tout en gardant
le contenu de chacune. Un retour à la ligne séparera les contenus de chacune
des cellules dans la nouvelle cellule disponible.

Merci

Désolé, ce n'est pas une fusion
que j'ai fait là.

Serge

"garnote" <rien@absent.com> a écrit dans le message de news:
%23pgoh3E7FHA.3456@TK2MSFTNGP10.phx.gbl...

Salut tipi,

Si ta sélection contient des cellules sur
une seule colonne, essaie ceci :

Sub Fusion()
Set ici = Selection
n = ici.Rows.Count
For i = 2 To n
ici(1) = ici(1) & Chr(10) & ici(i)
Next i
Range(ici(2), ici(n)).Clear
ActiveCell.Select
End Sub

Cela te convient-il ?

Serge


"tipi" <tipi128@hotpop.com> a écrit dans le message de news:
OSyl%23iD7FHA.3752@tk2msftngp13.phx.gbl...

Salut

j'ai plusieurs cellules verticalement alignées que je sélectionne
est il possible d'avoir une macro qui fusionne ces cellules tout en
gardant le contenu de chacune. Un retour à la ligne séparera les contenus
de chacune des cellules dans la nouvelle cellule disponible.

Merci