Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Recuperer le format de texte de ma cellule dans une textbox

11 réponses
Avatar
L-A
Bonjour

dans mon formulaire j'ai une textbox pour laquelle je r=E9cup=E8re la valeu=
r d'une cellule de mon classeur

or dans cette cellule, je peux avoir une partie du texte en gras, voir meme=
du texte barr=E9

comment r=E9cup=E9rer cela car avec le code que j'ai c=E0 ne me r=E9cup=E8r=
e que la valeur de la cellule



With Sheets("Annexe I INS 161278")
LiRef =3D .Cells.Find(What:=3Dparagraphe, LookIn:=3DxlFormulas, Loo=
kAt:=3D _
xlPart, SearchOrder:=3DxlByRows, SearchDirection:=3DxlNext,=
MatchCase:=3DFalse _
, SearchFormat:=3DFalse).Row

If IsNumeric(LiRef) Then
nbLi =3D 1
=20
Explication2 =3D ""
=20
=20
Do
Explication2 =3D Explication2 & .Cells(LiRef + nbLi, 3).Tex=
t & Chr(10) & vbCrLf
nbLi =3D nbLi + 1
Loop While .Cells(LiRef + nbLi, 1).Text =3D ""

=20
Me.TextBox8.Value =3D Explication2=20


merci par avance

10 réponses

1 2
Avatar
MichD
Bonjour,

Si les variables x, y, z, a retourne la valeur "VRAI" c'est que la
propriété est appliquée au texte du textbox.

With Me.TextBox1
x = .Font.Bold 'Gras
y = .Font.Strikethrough 'Barré
Z = .Font.Italic 'Italique
A = .Font.Underline 'souligné
End With
Avatar
m.loic.andre
Merci MichD

Ou dois-je mettre ce code car j'ai essayé à plusieurs endroits mais les soulignements ou gras n'apparaissent pas
Avatar
MichD
Ta question était comment retrouver le format d'un textbox.

Si tu veux appliquer ce format au texte d'un textbox, choisis l'événement
que tu désires et utilises ce code. Si tu veux voir les effets du code,
débute d'abord par saisir du texte dans le textbox.


With Me.TextBox1
.Font.Bold 'Gras
.Font.Strikethrough 'Barré
.Font.Italic 'Italique
.Font.Underline 'souligné
End With
Avatar
m.loic.andre
En fait je n'inscrit rien dans le textbox

C'est là récupération d'une valeur dans une cellule de mon classeur

Dans cette cellule parfois il y a du texte en gras ou barré
Avatar
Jacky
Bonjour,
Dans cette cellule parfois il y a du texte en gras ou barré


Ceci peut-être (La cellule A1 dans l'exemple)
'-------------------
Private Sub UserForm_Initialize()
Me.TextBox1 = [a1]
With TextBox1.Font
.Bold = [a1].Font.FontStyle = "Gras"
.Strikethrough = [a1].Font.Strikethrough
End With
End Sub
'-------------------

--
Salutations
JJ


a écrit dans le message de news:

En fait je n'inscrit rien dans le textbox

C'est là récupération d'une valeur dans une cellule de mon classeur

Dans cette cellule parfois il y a du texte en gras ou barré
Avatar
L-A
bonjour Jacky

je viens d'essayer mais j'ai une erreur 424 objet requis

pourrais tu me renvoyer l'exemple sur joint

merci par avance

Le mercredi 1 juillet 2015 16:24:09 UTC+2, Jacky a écrit :
Bonjour,
>Dans cette cellule parfois il y a du texte en gras ou barré
Ceci peut-être (La cellule A1 dans l'exemple)
'-------------------
Private Sub UserForm_Initialize()
Me.TextBox1 = [a1]
With TextBox1.Font
.Bold = [a1].Font.FontStyle = "Gras"
.Strikethrough = [a1].Font.Strikethrough
End With
End Sub
'-------------------

--
Salutations
JJ


a écrit dans le message de news:

En fait je n'inscrit rien dans le textbox

C'est là récupération d'une valeur dans une cellule de mon classeur

Dans cette cellule parfois il y a du texte en gras ou barré
Avatar
Jacky
RE..
Un exemple simple qui prend en compte la cellule A1
Il faut évidemment adapter à la cellule de ton classeur.
http://www.cjoint.com/c/EGflAHQ8ydh
--
Salutations
JJ


"
Avatar
L-A
Bonsoir Jacky

tout fonctionne génial après 5 heures de route pour rentrer à la mais on

en revanche si une partie du texte dans la cellule A1 n'est pas soulignée ou en gras cela génère une erreur de type 13

est ce parceque il faut qu'il n'y ait qu'un seul type de format sur toute l a cellule et sur l'ensemble du texte?


Le dimanche 5 juillet 2015 13:28:40 UTC+2, Jacky a écrit :
RE..
Un exemple simple qui prend en compte la cellule A1
Il faut évidemment adapter à la cellule de ton classeur.
http://www.cjoint.com/c/EGflAHQ8ydh
--
Salutations
JJ


"
Avatar
MichD
Si tu as des cellules qui ont seulement une partie du texte en caractère gras,
tu dois faire un test comme ceci :

En supposant que le code est dans un formulaire....
'---------------------------------------------
Sub test()

With Range("A1")
'Si seulement une partie du texte est en caractère gras
If IsNull(.Font.Bold) Then
'un message s'affiche... évidemment tu n'es pas obligé de l'afficher
MsgBox "Seule une partie du texte est en caractère gras"
'Mais tu dois décider si tu veux mettre le textbox tout en gras ou non.
'Un textbox ne peut pas avoir qu'une partie du texte en gras.
Me.textbox1.Font.Bold = True 'Or false
Else
s = .Font.Bold = .Font.Bold
End If
End With
End Sub
'---------------------------------------------
Avatar
L-A
Merci MichD pour cette précision

j'aime beaucoup les test avec les msgbox

bravo, je vais donc contraindre l'utilisateur de tout mettre ne gras dans s a cellule

bonne soirée

Le dimanche 5 juillet 2015 20:59:40 UTC+2, MichD a écrit :
Si tu as des cellules qui ont seulement une partie du texte en caractèr e gras,
tu dois faire un test comme ceci :

En supposant que le code est dans un formulaire....
'---------------------------------------------
Sub test()

With Range("A1")
'Si seulement une partie du texte est en caractère gras
If IsNull(.Font.Bold) Then
'un message s'affiche... évidemment tu n'es pas obligé de l'af ficher
MsgBox "Seule une partie du texte est en caractère gras"
'Mais tu dois décider si tu veux mettre le textbox tout en gras ou non.
'Un textbox ne peut pas avoir qu'une partie du texte en gras.
Me.textbox1.Font.Bold = True 'Or false
Else
s = .Font.Bold = .Font.Bold
End If
End With
End Sub
'---------------------------------------------
1 2