XL 2016 Texte en gras d'une cellule extrait

Bastien43 · 25 Juillet 2022

Bonjour,

Je cherche à extraire d'une cellule le texte en gras uniquement. Dans cette cellule, il peut y avoir du texte non gras, avec d'autres formats, des alinéa, etc.

Comment extraire uniquement le texte en gras svp ? Quel serait le code de la fonction ?

Est-ce possible ? J'avais trouvé ceci mais cela ne fonctionne pas.

VB:

Function GetBold(pWorkRng As Range)
If pWorkRng.Font.Bold Then
    GetBold = pWorkRng.Value
Else
    GetBold = ""
End If
End Function

Merci
Cordialement

job75 · 25 Juillet 2022

Bonsoir Bastien43;

VB:

Function TrouveGras$(c As Range)
Application.Volatile 'touche F9 pour mettre à jour
Dim i%
For i = 1 To Len(c)
    With c.Characters(i, 1)
        If .Font.Bold Then TrouveGras = TrouveGras & .Text
    End With
Next
End Function

Bonne nuit.

Bastien43 · 25 Juillet 2022

J'ai trouvé ca, c'est pas le mieux je pense mais ca fonctionne

VB:

 Public Function findAllBold(ByVal rngText As Range) As String
    Dim theCell As Range
    Set theCell = rngText.Cells(1, 1)

    For i = 1 To Len(theCell.Value)
        If theCell.characters(i, 1).Font.Bold = True Then
            If theCell.characters(i + 1, 1).Text = " " Then
                theChar = theCell.characters(i, 1).Text '& " "
                Else
                theChar = theCell.characters(i, 1).Text
            End If
            Results = Results & theChar
        End If
   Next i
   findAllBold = Results
End Function

Bastien43 · 25 Juillet 2022

Si quelqu'un a une fonction plus rapide, je suis preneur
Merci

job75 · 25 Juillet 2022

Bonsoir Bastien43;

VB:

Function TrouveGras$(c As Range)
Application.Volatile 'touche F9 pour mettre à jour
Dim i%
For i = 1 To Len(c)
    With c.Characters(i, 1)
        If .Font.Bold Then TrouveGras = TrouveGras & .Text
    End With
Next
End Function

Bonne nuit.

Bastien43 · 26 Juillet 2022

Bonjour,

Merci, cela fonctionne

Cordialement
Bonne journée

XL 2016 Texte en gras d'une cellule extrait

Bastien43

XLDnaute Occasionnel

job75

Bastien43

XLDnaute Occasionnel

Bastien43

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Bastien43

XLDnaute Occasionnel

Discussions similaires