XL 2019 texte en filigrane dans une textbox

[pascal21]

bonjour à tous
dans un userform j'aimerais ne pas utiliser les labels pour indiquer le sujet de la textbox qui va avec (hum!!! déja pas tres clair)
donc, j'aimerais savoir si il est possible d'indiquer "NOM" par exemple dans un textbox pour que je sache ce qu'il faut y mettre?
merci

 

[patricktoulon]

le transparent met le dans le setfond

Option Explicit



Private Sub TextBox1_Change()
    Controls("Fond_Textbox1").Visible = Len(TextBox1) = 0
    TextBox1.BackStyle = Abs(TextBox1 <> "")
End Sub

Private Sub TextBox2_Change()
    Controls("Fond_Textbox2").Visible = Len(TextBox2) = 0
    TextBox2.BackStyle = Abs(TextBox2 <> "")
End Sub

Private Sub UserForm_Initialize()
    SetFond TextBox1, "Nom"
    SetFond TextBox2, "Prénom"
    Me.StartUpPosition = 1
End Sub

Sub SetFond(Ref As Control, Texte_De_Fond As String)
    Ref.BackStyle = 0
    With Controls.Add("Forms.Label.1", "Fond_" & Ref.Name, True)
        .ForeColor = &H80000010
        .BackColor = vbWhite
        .Font.Name = Ref.Font.Name
        .Font.Size = Ref.Font.Size
        .Caption = String(2, " ") & Texte_De_Fond
        .Move Ref.Left, Ref.Top + 2, Ref.Width, Ref.Height - 2
        '.AutoSize = True
        '.Move Ref.Left + Retrait, Ref.Top + (Ref.Height - .Height) / 2
    End With
    
    Ref.ZOrder 0
End Sub

je crois que c'est la solution la plus simple pour le demandeur

👍

 

[fanch55]

Exactement, c'est ce que j'étais en train de faire

N'oubliez pas qu'un label n'a pas de centrage vertical, s'il doit recouvrir en totalité le textbox pour assurer le fond blanc, le texte sera de ce fait non centré verticalement. ..

 

[patricktoulon]

c'est ce qui explique ton 2d label alors un pour remplir l'autre avec le text autosize et centré

 

[Dudu2]

C'est pour çà que j'ai positionné le Top en +2

.Move Control.Left, Control.Top + 2, Control.Width, Control.Height - 2

*
Alors est-ce général ?

Ceci dit, on peut garder le Label pour le fond blanc (ou de la couleur de fond de la TextBox).

 

[Dudu2]

Avec les 2 labels, c'est en effet plus juste pour le centrage vertical.

 

[patricktoulon]

ou alors tout simplement utiliser un textbox dynamico a la place du label
le texte sera centré comme celui du textbox tout simplement

 

[fanch55]

c'est ce qui explique ton 2d label alors un pour remplir l'autre avec le text autosize et centré

Tout a fait

 

[Dudu2]

ou alors tout simplement utiliser un textbox dynamico a la place du label

Ah oui, diantre, mais pourquoi n'y avons-nous pas pensé avant !

 

[Dudu2]

Et voilà avec la TextBox de @patricktoulon...

Edit: fichier modifié pour une fonction générale de gestion du titre en TextBox_Change() et ComboBox_Change().

 

[Dudu2]

Bon, je crois qu'on a fait le tour du monde de la question.
Finalement, c'est bien @fanch55 qui tenait le bon bout depuis le début. A quelques ajustements près.
Je suggère à @pascal21, d'utiliser cette dernière version.

 

[patricktoulon]

le soucis n'est pas tellement de centrer le texte dans le label verticalement mais c'est que dans le textbox il ne l'ai pas
sinon j'ai pour centrer le texte dans verticalement dans le label

oui l'idée de @fanch55 est excellente

 

[patricktoulon]

si ca vous intéresse le centrage de texte verticalement dans un label

un exemple comme ça vite fait

Private Sub UserForm_Click()
    Dim chemin
    chemin = ThisWorkbook.Path & "\centre.jpg"
    With ActiveSheet.ChartObjects.Add(0, 0, 0.1, 0.1).Chart
        .Parent.ShapeRange.Line.Visible = msoFalse
        .Export chemin, "jpg"
        Label1.Picture = LoadPicture(chemin)
        .Parent.Delete
    End With
    Kill chemin
End Sub

en fait il suffit qu'elle face 1 demi pixel et c'est bon

 

[Dudu2]

Pour la postérité j'ai modifié le fichier du Post #54 pour ajouter les ComboBoxes, regrouper dans une fonction la gestion du titre et faciliter le codage.

@fanch55, ça pourrait être utile d'en faire une ressource car ce système permet de se passer de Labels titres de TextBoxes et ComboBoxes.

 

[fanch55]

si ca vous intéresse le centrage de texte verticalement dans un label

Salut @patricktoulon , je connaissais cela avec un fichier Gif, l'inconvénient c'est que cela centre Verticalement et Horizontalement

 

[fanch55]

Pour la postérité j'ai modifié le fichier du Post #54 pour ajouter les ComboBoxes, regrouper dans une fonction la gestion du titre et faciliter le codage.

Tu dors quand @Dudu2 ? Peux-tu joindre le code de tes modifs ?

@fanch55, ça pourrait être utile d'en faire une ressource car ce système permet de se passer de Labels titres de TextBoxes et ComboBoxes.

Tu peux le faire si tu veux , je n’en ai pas le monopole exclusif et cela évitera la récurrence des demandes .