Salut @fcyspm30,
Tu sembles avoir un souci aussi peux-tu nous expliquer le problème STP
En attendant, logiquement il suffit de changer 1 ligne dans l'USF
Public Sub Coupler(ByVal Titre, ByVal obj As MSForms.Control, _
Optional ByVal X As Double = 0, Optional ByVal Y As Double = 1)
Rem. ——— Méthode. Vous pouvez aussi coupler son affichage à un contrôle d'un UserForm.
' Titre: Le titre de la fenêtre. Il est possible de spécifier un contrôle Label.
' Obj: L'objet auquel il doit être couplé, TextBox, Label voire ComboBox.
' X et Y: Position par rapport à l'objet Obj, même principe que pour la méthode Posit.
' Assumés X:=0, Y:=1 si non précisés, donc au milieu et collé juste en dessous de Obj.
Me.Posit obj, X, Y: Me.Caption = Titre
On Error Resume Next: LaDate = obj: If Err Then LaDate = Date
On Error GoTo 0: MontrerLaDate
OK = False: Me.Show
' ## Modifier cette ligne
If OK Then obj = CDate(LaDate)
End Sub
A+