A voir également:
- VBA Fonction format cellule et concaténer
- Fonction si et - Guide
- Format epub - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format apfs - Guide
- Concatener deux cellules excel - Guide
3 réponses
Dans ma cellule A1 : Bonjour
Dans ma cellule B1 : ça va
Dans ma cellule D1 : La concaténation de ces deux éléments, en respectant la police, le style la taille et la couleur de chacun des textes
(1ère version ... les remarques sont les bienvenues :-))
Sub Concaténation_avec_format()
'
' Macro enregistrée le 02/09/2009 par ****
'
'Concaténation des cellules et mémorisation des tailles des cellules concaténées
Range("D1").Value = Range("A1") & " " & Range("B1")
lg1 = Len(Range("A1"))
lg2 = Len(Range("B1"))
'Lecture du format de la cellule qui nous interesse
'Récupération de la police, du style, de la taille et de la couleur
Range("A1").Select
police = Selection.Font.Name
style_police = Selection.Font.FontStyle
taille = Selection.Font.Size
couleur = Selection.Font.ColorIndex
'Mise en forme des zones voulues
'On précise la position et la longueur de la zone à mettre en forme
Range("D1").Select
With ActiveCell.Characters(Start:=1, Length:=lg1).Font
.Name = police
.FontStyle = style_police
.Size = taille
.ColorIndex = couleur
End With
'Lecture du format de la cellule qui nous interesse
Range("B1").Select
police = Selection.Font.Name
style_police = Selection.Font.FontStyle
taille = Selection.Font.Size
couleur = Selection.Font.ColorIndex
'Mise en forme des zones voulues
'On précise la position et la longueur de la zone à mettre en forme
Range("D1").Select
With ActiveCell.Characters(Start:=(lg1 + 2), Length:=lg2).Font
.Name = police
.FontStyle = style_police
.Size = taille
.ColorIndex = couleur
End With
End Sub
Dans ma cellule B1 : ça va
Dans ma cellule D1 : La concaténation de ces deux éléments, en respectant la police, le style la taille et la couleur de chacun des textes
(1ère version ... les remarques sont les bienvenues :-))
Sub Concaténation_avec_format()
'
' Macro enregistrée le 02/09/2009 par ****
'
'Concaténation des cellules et mémorisation des tailles des cellules concaténées
Range("D1").Value = Range("A1") & " " & Range("B1")
lg1 = Len(Range("A1"))
lg2 = Len(Range("B1"))
'Lecture du format de la cellule qui nous interesse
'Récupération de la police, du style, de la taille et de la couleur
Range("A1").Select
police = Selection.Font.Name
style_police = Selection.Font.FontStyle
taille = Selection.Font.Size
couleur = Selection.Font.ColorIndex
'Mise en forme des zones voulues
'On précise la position et la longueur de la zone à mettre en forme
Range("D1").Select
With ActiveCell.Characters(Start:=1, Length:=lg1).Font
.Name = police
.FontStyle = style_police
.Size = taille
.ColorIndex = couleur
End With
'Lecture du format de la cellule qui nous interesse
Range("B1").Select
police = Selection.Font.Name
style_police = Selection.Font.FontStyle
taille = Selection.Font.Size
couleur = Selection.Font.ColorIndex
'Mise en forme des zones voulues
'On précise la position et la longueur de la zone à mettre en forme
Range("D1").Select
With ActiveCell.Characters(Start:=(lg1 + 2), Length:=lg2).Font
.Name = police
.FontStyle = style_police
.Size = taille
.ColorIndex = couleur
End With
End Sub