concatener formats de façon récurrente

olbeef · 6 Novembre 2005

[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 · 6 Novembre 2005

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é · 6 Novembre 2005

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 · 6 Novembre 2005

merci à tous !
ça marche...

🙂

concatener formats de façon récurrente

olbeef

Guest

Pièces jointes

bebere

Guest

Hervé

XLDnaute Barbatruc

olbeef

Guest

Discussions similaires

concatener formats de façon récurrente

olbeef

Guest

Pièces jointes

bebere

Guest

Hervé

XLDnaute Barbatruc

olbeef

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency