concatener formats de façon récurrente

[olbeef]

[file name=concatformats.zip size=6658]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/concatformats.zip[/file]
bonjour,
je cherche à concatener des cellules en conservant les formats des parents... grace à cet excellent forum j'ai trouvé une macro qui s'y prête pour concatener deux cellules (A1 et B1) dans une troisième (C1). Je souhaiterais maintenant améliorer cette macro pour concatener Ai et Bi dans Ci de façon récurrente. Qq'un peut-il m'aider ? (voir fichier)
merci d'avance
olbeef
[file name=concatformats.zip size=6658]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/concatformats.zip[/file]

 

[bebere]

bonjour Olbeef

Public Sub concateneretformat()
'changer byte par integer ou long si erreur
Dim DerL As Byte, L As Byte
DerL = Range('A65536').End(xlUp).Row
For L = 1 To DerL
Range('C' & L) = Range('A' & L) & ' ' & Range('B' & L)
Range('C' & L).Characters(Len(Range('A' & L)) + 1).Font.Bold = True
Next L
End Sub

à bientôt

 

[Hervé]

Bonjour olbeef

essaye comme ceci :

Public Sub concateneretformat()
Dim c As Range
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
With c.Offset(0, 2)
.Value = c & ' ' & c.Offset(0, 1)
.Characters(Len(c) + 1).Font.Bold = True
End With
Next c
End Sub

salut

edition : salut bebere

Message édité par: Hervé, à: 06/11/2005 15:52

 

[olbeef]

merci à tous !
ça marche...