Extraire une chaîne de caractères en gras depuis une cellule

Bonjour,

J'ai un logiciel qui m'exporte au format excel tous les itinéraires de transport (bus, tram, train...) selon une localité donnée.

La colonne de cet export qui m'intéresse ressemble à cela :

Ville 1 00:02 - Ville 2 00:17 - [b]Ville 3 00:44[/b] - Ville 4 00:49 - Ville 5 00:56 - Ville 6 01:02 - Ville 7 01:06 - Ville 8 01:11 - Ville 9 01:16 - Ville 10 01:21 -

La localité choisie lors de l'export apparaît en gras (comme ci-dessus) avec l'heure où le transport passe à cette dernière.

Je recherche une méthode (de préférence une formule) pour extraire dans une nouvelle cellule tous les caractères en gras afin de ne garder que la localité recherchée + l'horaire :

[b]Ville 3 00:44[/b]

J'ai déjà essayé avec ce code VBA que j'ai mis dans une nouveau "module" :

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

Puis, dans une cellule vide, il me suffisait de mettre = GetBold (A2) (avec A2 = cellule de la liste des villes desservies). Pour extraite le texte qui était en gras dans cette colonne. Néanmoins ma méthode n'a pas fonctionné. Elle fonctionne uniquement lorsque les caractères présents dans la cellule sont tous en gras.

Je vous joins à mon problème un fichier excel de test.

En vous remerciant par avance pour les lumières que vous m'apporterez.

Bien cordialement,

Baptiste.

Salut Baptiste,

une fonction personnalisée...

Public Function GetBold(ByVal rCel As Range)
'
For y = 1 To Len(rCel)
    If rCel.Characters(y, 1).Font.Bold = True Then _
        GetBold = Split(Right(rCel, Len(rCel) - (y - 1)), " -")(0): _
        Exit For
Next
'
End Function

A+

65extractbold.xlsm (17.82 Ko)

Bonjour,

à tester dans une cellule mettre la formule =Texte_Gras(A2)

Function Texte_Gras(cell As Range) As String
For i = 1 To Len(cell)
 If cell.Characters(Start:=i, Length:=1).Font.FontStyle = "Gras" Then txt = txt & Mid(cell, i, 1)
Next
Texte_Gras = txt
End Function

Bonjour à tous,

ma petite contribution

Bonjour,

Merci à tous pour vos réponses ! Mon problème est résolu

Baptiste

Rechercher des sujets similaires à "extraire chaine caracteres gras"