Détection d'une partie de cellule en gras

Bonjour,

Je reviens à l'assaut pour un souci posé par un collègue qui souhaite détecter une partie de cellule en gras (mais pas sur n'importe quelles cellules..

Je penses qu'un fichier d'exemple parlera de lui même...

Sub toto()
For i = 1 To 20
If Range("A" & i).Characters(1, 4).Font.Bold = True Then
Range("B" & i) = "en gras"
End If
Next i
End Sub

Bonsoir,

une fonction personnalisée qui permet de vérifier si un mot dans un texte d'une cellule est en gras.

à utiliser comme suit

=estengrasdanstexte(A1;"Base") donnera la valeur Vrai si Base est trouvé en gras dans A1

Function estengrasdanstexte(texte As Range, mot As String) As Boolean
    s = InStr(texte, mot)
    If s <> 0 Then
        If texte.Characters(Start:=s, Length:=Len(mot)).Font.Bold = True Then estengrasdanstexte = True: Exit Function
    End If
    estengrasdanstexte = False
End Function

Mercie déjà beaucoup pour ces réponses, je transmets à mon collègue et je reviens si il coince... mais ça m'a tout l'air d'être fonctionnel