Bonjour à tous,
Après de nombreux essais je n'arrive pas a obtenir un copier coller propre à l'aide d'un module de classe, la valeur renvoyée est toujours 0
Je m'explique :
J'ai 1 text box sur une page 1 d'un multipage, 1 sur la 2, etc jusqu'à 10.
Je souhaiterais lorsque l'on clique sur un bouton sur la page 2, la valeur de la textbox 1 soit copiée dans la 2, puis sur le bouton de la 3, la valeur Textbox 2 soit copiée dans la 3 etc

J'ai fais le code suivant :

MODULE DE CLASSE :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public WithEvents RfD As MSForms.TextBox
Public WithEvents Copy As MSForms.CommandButton
Private Sub Copy_Click()
RfD.Value = Copy
End sub


USERFORM :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim j As Integer
        For j = 2 To 10
            Set cls(j).Copy = Me.Controls("Copier" & j)
            Set cls(j).RfD = Me.Controls("ReferenceD" &  j)
            cls(j).RfD.Value = Me.Controls("ReferenceD" & j - 1).Value
        Next

Comme je l'ai dis précédemment, j'ai toujours la valeur 0 qui est renvoyée, peut importe ce que je met dans la textbox de la page précédente..

Merci d'avance pour votre aide