Autres Généraliser un code (Texte par défaut dans des TextBox )

Private Sub TextBox2_Enter()
If TextBox2.Text = "Saisir ICI le nom de l'ouvrage" Then TextBox2.Text = "": TextBox2.ForeColor = vbBlack
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Init(TextBox2)
End Sub

Private Sub UserForm_Initialize()
For i=2 to 12
init(me.controls("Text" & l))
End Sub
Sub init(txt as objet)
With txt
If .Text ="" then
   .Text ="Saisir ICI le nom de l'ouvrage":      .ForeColor = RGB(200, 200, 200)
end if
End with
End sub

Public WithEvents TXT As MSForms.TextBox

Private Sub TXT_Enter()
If TXT.Text = "Saisir ICI le nom de l'ouvrage" Then TXT.Text = "": TXT.ForeColor = vbBlack
End Sub

Private Sub TXT_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TXT.Text = "" Then TXT.Text = "Saisir ICI le nom de l'ouvrage": TXT.ForeColor = RGB(200, 200, 200)
End Sub
Public Sub init()
With TXT
    If .Text = "" Then
       .Text = "Saisir ICI le nom de l'ouvrage":     .ForeColor = RGB(200, 200, 200)
    End If
End With
End Sub

Dim Txts(2 To 12) As New Classe1

Private Sub UserForm_Initialize()
For i = 2 To 12
  Set Txts(i).TXT = Me.Controls("TextBox" & i)
    Txts(i).init
Next
End Sub

Public WithEvents Txtb As MSForms.TextBox
Dim cls() As New UserForm1
Public oldcontrol As MSForms.TextBox

Private Sub Txtb_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Not UserForm1.oldcontrol Is Nothing Then
        If UserForm1.oldcontrol.Name <> Txtb.Name Then
            If UserForm1.oldcontrol.Text = "" Then UserForm1.oldcontrol.Text = "Saisir ICI le nom de l'ouvrage": UserForm1.oldcontrol.ForeColor = RGB(200, 200, 200)
        End If
    End If

    If Button = 1 Then
        If Txtb.Text = "Saisir ICI le nom de l'ouvrage" Then Txtb.Text = "": Txtb.ForeColor = vbBlack
        Set UserForm1.oldcontrol = UserForm1.Controls(Txtb.Name)
    End If
End Sub

Private Sub UserForm_Activate()
    For i = 1 To 10: X = X + 1
        ReDim Preserve cls(1 To X): Set cls(X).Txtb = Me.Controls("TextBox" & X)
        With Me.Controls("TextBox" & X): .Text = "Saisir ICI le nom de l'ouvrage": .ForeColor = RGB(200, 200, 200): End With
    Next

End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If Not oldcontrol Is Nothing Then If oldcontrol.Text = "" Then oldcontrol.Text = "Saisir ICI le nom de l'ouvrage": oldcontrol.ForeColor = RGB(200, 200, 200)
End Sub