XL 2016 Mettre des balises html autour d'un text

Don pépé · 7 Mai 2018

Bonjour,
J'ai un textbox et je voudrais ajouter une balise html autour du texte sélectionner dans se textbox multiligne.

je sais comment mettre ma balise avant le texte ou apres dans la textbox avec

VB:

'Souligner
Private Sub Label3_Click()
Dim Rv
  'Si le contrôle actif est un TextBox "SetFocus"
    If TypeName(Me.ActiveControl) = "TextBox" Then
        Rv = Me.ActiveControl.Value
        Me.ActiveControl.Value = "<u></u>" & Rv
    Else
        MsgBox "Vous devez sélectionner une section", vbCritical, "Erreur"
    End If
End Sub

mais autour du text sélectionner je n'y arrive pas

help me please

merci a vous

Dranreb · 7 Mai 2018

Bonjour.
Utilisez les propriétés SelStart et SelLength de la TextBox

Don pépé · 7 Mai 2018

Bonjour,
Merci @Dranreb je vais voir de se coter la

Dranreb · 7 Mai 2018

Comme ça ça semble marcher :

VB:

Private Sub Label3_Click()
Dim TBx As MSForms.TextBox, P&, L&
On Error Resume Next
Set TBx = Me.ActiveControl
If Err Then Exit Sub
P = TBx.SelStart
L = TBx.SelLength
TBx.Text = Left$(TBx.Text, P) & "<u>" & Mid$(TBx.Text, _
   P + 1, L) & "</u>" & Mid$(TBx.Text, P + 1 + L)
End Sub

Don pépé · 8 Mai 2018

Bonjour,
Merci a toi @Dranreb ça fonctionne nickel

XL 2016 Mettre des balises html autour d'un text

Don pépé

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Don pépé

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Don pépé

XLDnaute Occasionnel

Discussions similaires