Comment mettre en gras avec une formule une partie d'un texte/chiffre contenue dans une cellule ?

Question

Bonjour ! Je souhaite mettre en gras le texte entre guillemet (ou quote ""). Pouvez vous m'aider svp ?

Answer 1

Bonjour,

Via une macro (VBA)

Answer 2

Pour agir sur une plage de cellules sélectionnées

Sub BoldTextBetweenQuotes()

Dim rgCellule       As Range 

Dim strTexteCellule As String 

Dim intPosDep       As Integer 

Dim intPosFin       As Integer 

For Each rgCellule In Selection 

    strTexteCellule = rgCellule.Value 

    intPosDep = 1 

    Do While InStr(intPosDep, strTexteCellule, Chr(34)) > 0 ' Boucler tant qu'il y a des guillemets 

        intPosDep = InStr(intPosDep, strTexteCellule, Chr(34)) 

        intPosFin = InStr(intPosDep + 1, strTexteCellule, Chr(34)) 

        If intPosFin > intPosDep Then ' Vérifier si la position de fin est valide 

            rgCellule.Characters(Start:=intPosDep, Length:=intPosFin - intPosDep + 1).Font.Bold = True 

        End If 

        intPosDep = intPosFin + 1 

    Loop 

Next rgCellule 

End Sub

Answer 3

Merci à vous. Comme le dit Hecatonchire c'est possible avec une macro BVA. Je vais travailler ce coté là!

Answer 4

Est-ce qu'il y a une formule dans la cellule ? Pare que, sinon, il suffit de double-cliquer dans la cellule...

Daniel

Answer 5

Bonjour,

A ma connaissance, ce n'est pas possible.

Daniel