Il faut copier les modules de classe contenus dans l'exemple, par un simple sélection/glissement par exemple vers ton projet
ensuite recopier ceci en-tête du code de l'userform
' à mettre dans le code du userform en fonction du nombre de "NumBox"
Dim NumBox(1 To 2) As New ClasseNumBox ' indiquer le nombre de NumBox
Dim DateBox(1 To 2) As New ClasseDateBox ' indiquer le nombre de DateBox
Private Sub UserForm_Initialize()
For n = 1 To UBound(NumBox): Set NumBox(n).NumSaisie = Me("NumBox" & n): Next
For n = 1 To UBound(DateBox): Set DateBox(n).DateSaisie = Me("DateBox" & n): Next
End Sub
et enfin, pour transférer les données vers la feuille, utilise
= CDbl(NumBox1)
et
= CDate(DateBox1.Value)
Je ne peux pas l'adapter moi-même à ton fichier trop complexe et dont je ne maîtrise pas toutes les fonctionnalités.