Re : Controltiptext
Bonjour à tous
En m'inspirant de l'idée de Yann
Un code ci-dessous à mettre dans le userform,
Permettant de fabriquer au faire à mesure un label servant de tiptext
Dans ce cas tous les choix de formatage possible
Un seul module pour tous les controls
une idée pas plus...
Dim n
Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call newtiptext(CommandButton1, "Nonjour")
End Sub
Sub newtiptext(contr, texte)
Set n = contr.Parent.Controls.Add("forms.label.1", "momtiptext", True)
n.Caption = texte
n.Left = contr.Left + contr.Width
n.Top = contr.Top + contr.Height
End Sub
Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
UserForm2.Controls.Remove (n.Name)
End Sub