Discussion :

[mayga]

Bonjour,
J'ai des cellules "concatenés" et j'aimerais mettre une partie du texte en gras.
J'ai lu quelques discussions sur le sujet, j'ai fait une macro en appliquant la méthode : .characters(start,lenght).font.bold=true mais cette méthode ne marche que pour les cellules contenant du texte non "concatené".

Si quelqu'un a une idée, merci d'avance.

[Bear the french]

Bonsoir mayga,

En cherchant assez rapidement, je suis tombé sur un post qui pourrait convenir en terme de réponse : Ancien Post

Bertrand

[fring]

Bonjour,

Ca fonctionne tout aussi bien avec une plage de cellules concaténées mais il faut préciser l'adresse de la première cellule et pas de toute la plage.
Par exemple pour une concaténation des cellules B2 à F5 cela donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim DebTxt As Integer, LongTxt As Integer
 
With Range("B2")
    LongTxt = Len("texte")
    DebTxt = InStr(1, .Value, "texte")
    .Characters(DebTxt, LongTxt).Font.Bold = True
End With
 
End Sub

[mayga]

Merci pour les réponses, mais ça ne marche pas !
Je pense que je me suis mal exprimé.
Il ne s'agit pas de cellules fusionnées, dans une cellule j'ai une formule par exemple : "=Concatener(A1;A2)" ou "=A1 & A2" et je cherche à mettre la partie qui correspond à A2 en gras.

[Bear the french]

Bonsoir mayga,

La solution du VBA comme le propose fring me parait la plus réaliste.
A ma connaissance, il n'existe pas de formule sous Excel seul, sans VBA, qui puisse faire l'équivalent.

Bertrand

[fring]

Effectivement ça change tout, supprime ta formule de concaténation et insère ce code dans le module de la feuille en question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DebTxt As Integer, LongTxt As Integer
 
If Not Application.Intersect(Target, Range("A1:A2")) Is Nothing Then
    With Range("C1") '<-- adapter la cellule contenant la concaténation
        LongTxt = Len(Range("A2"))
        .Value = Range("A1") & " " & Range("A2")
        DebTxt = InStr(1, .Value, Range("A2"))
        .Characters(DebTxt, LongTxt).Font.Bold = True
    End With
End If
 
End Sub

[Bear the french]

Beau code, bravo fring

J'avais trouvé ce post mais ton code me parait plus efficace : POST



Bertrand

[mayga]

Merci, comme ça tout fonctionne bien!
Juste une petite chose, je propose de rajouter après with Range("c1") :
.font.bold = false pour réinitialiser la cellule de destination car au bout de quelques essais celle-ci restait en gras.