XL 2019 texte en filigrane dans une textbox

Dudu2

XLDnaute Barbatruc

• 16 Février 2025

• #31

Ou avec la technique de @patricktoulon dont le code est à compléter.
Mais une classe comme dans ce Post c'est finalement plus "carré".

 

Pièces jointes

• Pascal24.xlsm

  29.9 KB · Affichages: 2

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #32

@Dudu2
essaie de faire simple

VB:

Sub SetFond(Ref As Control, Texte_De_Fond As String)
    Dim Label As MSForms.Label
    Const Retrait = 8

    Set Label = Controls.Add("Forms.Label.1", "Fond_" & Ref.Name, True)

    With Label
        .ForeColor = &H80000010
        .BackColor = Ref.BackColor
        .Font.Name = Ref.Font.Name
        .Font.Size = Ref.Font.Size
        .Tag = Me.Name & "+" & Ref.Name
        .Caption = Texte_De_Fond
        .AutoSize = True
        .Move Ref.Left + Retrait, Ref.Top + (Ref.Height - .Height) / 2
    End With

    If Not (Not TabLabelEventClass) Then
        ReDim Preserve TabLabelEventClass(1 To UBound(TabLabelEventClass) + 1)
    Else
        ReDim TabLabelEventClass(1 To 1)
    End If
    With TabLabelEventClass(UBound(TabLabelEventClass))
        Set .Label = Label
        Set .tbxassocié = Ref
    End With
End Sub

et ton module classe

VB:

Option Explicit

Public WithEvents Label As MSForms.Label
Public tbxassocié As Object
Private Sub Label_click()
    tbxassocié.SetFocus
End Sub

terminé

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #33

Dudu2 à dit:

Ou avec la technique de @patricktoulon dont le code est à compléter.
Mais une classe comme dans ce Post c'est finalement plus "carré".

Cliquez pour agrandir...

j'ai utilisé cette techno pour 2 boutons pour 3 c'est déjà trop
je l'ai dit plus haut + de 2 on fait du subclassing
sinon çà devient vite une usine a gaz absurde
le sub classing tu peux le faire dans un module classe ou l'userform comme tu veux

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 16 Février 2025

• #34

Dudu2 à dit:

@fanch55, ton code initial fonctionne mais je ne le comprends pas du tout ! 🙁

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #35

tiens @Dudu2 ton pascal23 remastered
les events change textbox sont dans la classe aussi

 

Pièces jointes

• Pascal23 remastered patrick.xlsm

  22.1 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #36

fanch55 à dit:

Regarde la pièce jointe 1213147

Cliquez pour agrandir...

re
c'est pas le bon shema @fanch55 ton label est bel et bien dessus et non en dessous sinon il n'y aurait pas de soucis avec le click sur label

au dessus c'est zorder 0

si c'etait vraiment le cas comme tu est en autosize pour le label donc plus petit avec un textbox transparent on verrait un le label plus petit
et comme tout la surface est blanche donc le textbox backstyle 1 le label est forcement dessus d'autant plus que tu le left à 10 du left du textbox
donc shemas faux
à moins que j'ai raté un exemple dans la discussion

 

Dernière édition: 16 Février 2025

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Février 2025

• #37

Sur le modèle de l'excellent code remasterisé de @patricktoulon voici ma version avec classe.

 

Pièces jointes

• Exemple de noms de champs en TextBox (avec classe).xlsm

  30.5 KB · Affichages: 1

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #38

exellent code remasterisé 🤣 🤣 🤣 🤣
j'ai mis 3 lignes 🤣🤣

pourquoi j'ai fait la classe inverse:
pour libérer les events change original qui peuvent servir pour traiter les valeurs ce qui est le rôle de cet event a l'origine
essaie tu va voir les deux vont marcher
celui de la classe va rendre in/visible
l'autre fait ce que tu veux dedans

et pour faire du code propre tu pourrais utiliser une collection
et voila
merci @fanch55💪👍

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #39

re
code remastered 2 avec collection
c'est plus propre😉

 

Pièces jointes

• Exemple de noms de champs en TextBox (avec classe remastered 2 collection).xlsm

  19.4 KB · Affichages: 3

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 16 Février 2025

• #40

patricktoulon à dit:

c'est pas le bon shema @fanch55 ton label est bel et bien dessus et non en dessous sinon il n'y aurait pas de soucis avec le click sur label

Cliquez pour agrandir...

Pas d'accord, je n'ai aucun problème de click sur le label, puisqu'il se fait sur le textbox .

Sinon, le demandeur ne doit pas être forcément un cador du code, il ne demande finalement qu'à mettre une indication dans sa textbox ...
Vous allez lui demander de mettre des classes et du faire du sub-classing sur un label dynamique, on se tape sur le ventre mais on va être les seuls ...
Sinon ton dernier code fonctionne parfaitement avec un seul label ...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #41

re

Pas d'accord, je n'ai aucun problème de click sur le label, puisqu'il se fait sur le textbox .

Cliquez pour agrandir...

oui quand tu click pas sur le mot du label
ce qui prouve bien qu'il est dessus
dans celui ci tout les textboxs marchent

 

Pièces jointes

• Exemple de noms de champs en TextBox (avec classe remastered 2 collection).xlsm

  23 KB · Affichages: 2

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Février 2025

• #42

Je crois avoir compris comment fonctionne le code initial de @fanch55.

Les TextBoxes qu'il utilise sont en BackStyle = 0, c'est à dire transparent. C'est là toute l'astuce !
Les TextBoxes sont toujours en ZOrder = 0, soit en premier plan.

La transparence permet d'afficher les Labels qui sont en arrière plan.
Il y a 1 Label pour mettre le fond blanc.
Il y a 1 Label transparent aussi pour mettre le titre

On peut se passer du Label pour le fond blanc en utilisant le Label du titre en fond blanc.
Comme les TextBoxes sont toujours en premier plan, quand on clique dessus ce sont bien leurs évènements qui sont activés.

 

Pièces jointes

• Pascal21 B.xlsm

  27.8 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #43

re
oui c'est une possibilité je ne l'ai pas vu cette version
on se passe de classe comme ca

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2025

• #44

re
et pour qu'ils restent blancs

VB:

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Février 2025

• #45

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

 

Pièces jointes

• Pascal21 B.xlsm

  28.4 KB · Affichages: 3

Vote positif 0 Vote négatif