dans un textboxans le texte d'une cellule

jujux265 · 19 Octobre 2014

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 · 19 Octobre 2014

Re : dans un textboxans le texte d'une cellule

Bonjour à tous

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

Code:

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 · 19 Octobre 2014

Re : dans un textboxans le texte d'une cellule

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

dans un textboxans le texte d'une cellule

jujux265

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

jujux265

XLDnaute Nouveau

Discussions similaires