dans un textboxans le texte d'une cellule

[jujux265]

Bonjour à vous,
j'ai cherché partout et j'ai rien trouvé.
Voilà mon problème
j'ai des cellule avec des phrases différentes qui ont des mots en gras ( quelquefois 1 mot quelque fois 2 3 4 voir 5)

je sais me positionner sur la cellule, la rendre active et la récupérer sur un textbox mais je ne sais pas récupérer dans le textbox que (ou les ) le mot trouvé en gras
Quelqu'un peut-il m'aider
Bon dimanche à vous

 

[Staple1600]

Re : dans un textboxans le texte d'une cellule

Bonjour à tous


Essaies de voir ce que cela t'inspire
(test OK ici)

Sub a()
Dim i, tmpStr$
For i = 1 To Len(ActiveCell)
If ActiveCell.Characters(i, 1).Font.Bold Then
tmpStr = tmpStr & Mid(ActiveCell.Text, i, 1)
End If
Next
MsgBox tmpStr
End Sub

Je te laisse faire les adaptations propres à ta problématique.

 

[jujux265]

Re : dans un textboxans le texte d'une cellule

super j'ai utiliser et adapté ta macro ça fonctionne merci beaucoup bon dimanche