fusion cellules

JC de Lorient

XLDnaute Impliqué

• 13 Mars 2006

• #2

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

JC

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 13 Mars 2006

• #3

Salut crinblanc33,

Et bien tu peux toujours utiliser un code du genre :

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 13 Mars 2006

• #5

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.

@+

 

Vote positif 0 Vote négatif

C

crinblanc33

Guest

• 13 Mars 2006

• #6

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

 

Vote positif 0 Vote négatif