fusion cellules

[crinblanc33]

bonjour, peut on fusionner A1, B1 et C1 par ex. en demandant que le contenu soit conservé et separé par des virgules?
merci

 

[JC de Lorient]

salut
tu peux faire comme ça:
=A1&', '&B1&', '&C1

JC

 

[porcinet82]

Salut crinblanc33,

Et bien tu peux toujours utiliser un code du genre :

Sub Macro2()

    Range('A1:C1').Select
    a = Cells(1, 1).Value
    b = Cells(1, 2).Value
    c = Cells(1, 3).Value
    Selection.Merge
    ActiveCell.Value = a & ',' & b & ',' & c
End Sub

@+

Edition : Salut JC, par rafraichit 😉

Message édité par: porcinet82, à: 13/03/2006 19:06

 

[pierrejean]

bonsoir crinblanc jc porcinet

encore une solution par macro (un peu plus générale )

suppose que sont selectionnées le cellules à fusionner

Sub Macro1()
Dim final As String
Dim cel As Range
For Each cel In Selection
final = final & ',' & cel.Value
cel.Value = ''
cel.HorizontalAlignment = xlCenter
Next cel
Selection.MergeCells = True
Selection.Value = Mid(final, 2)
End Sub

 

[porcinet82]

Salut Pierrejean,

C'est vrai, j'ai fait ce code vite fais, et comme la demande n'etait pas tres precise, je ne me suis pas trop pris la tete car je suis quasiment certains qu'il y aura une autre question apres celle-ci, enfin peut-etre que je me trompe.

@+

 

[crinblanc33]

salut et merci a tous pour votre coup de main, j'ai utilise =A1&', '&B1&', '&C1 et ça marche au poil, il n'y aura pas d'autres questions B)
bonne soiree, christi@n33