Utilisation de la propriété Tag

Set MonUsf = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls("TextBox1")
MonUsf.Tag = "NomduTag"

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  SaveSetting "Mes parametres", "TextBox1", "Valeur TextBox1", TextBox1.Value
End Sub

Sub es()
 MsgBox GetSetting("Mes parametres", "TextBox1", "Valeur TextBox1")
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  SaveSetting "Mes parametres", "TextBox1", "Valeur TextBox1", TextBox1.Tag
End Sub

DeleteSetting "Mes parametres", "TextBox1"

SaveSetting "Mes parametres", "TextBox1", "Valeur TextBox1", TextBox1.Tag

Sub EcrireTag(NomTag As String, MonTexte As String)
    With ThisWorkbook.CustomDocumentProperties
        On Error GoTo Existe
        .Add Name:=NomTag, LinkToContent:=False, Type:=msoPropertyTypeString, Value:=MonTexte
        On Error GoTo 0
        Exit Sub
Existe:
        .Item(NomTag) = MonTexte
    End With
End Sub

Function LireTag(NomTag As String) As String
    LireTag = ThisWorkbook.CustomDocumentProperties(NomTag)
End Function


Sub test()

EcrireTag "MonTag", "test1"

End Sub

Sub test2()

MsgBox LireTag("MonTag")

End Sub