Discussion :

[Antispyware]

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

[mercatog]

Module de classe nommé Cls

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Public WithEvents Btn As MSForms.CommandButton
 
Private Sub Btn_Click()
Dim j As Byte
 
j = Replace(Btn.Name, "CommandButton", "")
UserForm1.Controls("TextBox" & j).Value = UserForm1.Controls("TextBox" & j - 1).Value
End Sub

Module de l'userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Dim TbBtn(1 To 10) As Object
Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim j As Byte
 
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "CommandButton" Then
        j = j + 1
        If j > 1 Then
            Set TbBtn(j) = New Cls
            Set TbBtn(j).Btn = Ctrl
        End If
    End If
Next Ctrl
End Sub

Adapte les noms.
La classe instancie uniquement les boutons

[Antispyware]

Bonjour Mercatog,
Merci tout d'abord pour ta réponse rapide.
Je suis totalement novice dans les modules de classe et leur fonctionnement, je t'avoue qu'en adaptant les noms, le code ne fais pas planter le userform, mais ne copie rien du tout...
Sur ma page 1, j'ai en textbox : ReferenceA1, ReferenceB1, ReferenceC1, ReferenceD1
Sur ma page 2, j'ai en textbox : ReferenceA2, ReferenceB2, ReferenceC2, ReferenceD2 et un commandbutton, nommé Copier2
Sur ma page 3, j'ai en textbox : ReferenceA3, ReferenceB3, ReferenceC3, ReferenceD3 et un commandbutton, nommé Copier3

etc jusqu'à 10...


En adaptant les noms j'ai le code suivant :
Dans mon module de classe nommé classe1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Public WithEvents Btn As MSForms.CommandButton
 
Private Sub Btn_Click()
Dim j As Byte
 
j = Replace(Btn.Name, "Copier", "")
UserForm1.Controls("ReferenceA" & j).Value = UserForm1.Controls("ReferenceA" & j - 1).Value
UserForm1.Controls("ReferenceB" & j).Value = UserForm1.Controls("ReferenceB" & j - 1).Value
UserForm1.Controls("ReferenceC" & j).Value = UserForm1.Controls("ReferenceC" & j - 1).Value
UserForm1.Controls("ReferenceD" & j).Value = UserForm1.Controls("ReferenceD" & j - 1).Value
End Sub

et sur mon userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Option Explicit
 
Dim TbBtn(1 To 10) As Object
Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim j As Byte
 
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "Copier" & j Then
        j = j + 1
        If j > 1 Then
            Set TbBtn(j) = New classe1
            Set TbBtn(j).Btn = Ctrl
        End If
    End If
Next Ctrl
End Sub

Comme je l'ai dis, le code ne bug pas, mais il ne se passe rien lorsque je clique sur les différents buttons... Je ne comprend pas...
Merci d'avance

[mercatog]

La ligne 10 de ton code d'userform à ne pas adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If TypeName(Ctrl) = "CommandButton" Then  'Ici n'adapte rien

Ou d'une autre manière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If TypeOf Ctrl Is msforms.CommandButton Then

[Antispyware]

Là, pour le coup, j'ai une erreur d'exécution '9'
L'indice n'appatient pas à la sélection ...

[Invité]

Bonsoir,
Tous les contrôles disposent d'une propriété Tag que tu peux utiliser!

Si c'est possible dis lui la source du contrôle!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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
cls(j).RfD.Tag="textbox1"
        Next

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public WithEvents RfD As MSForms.TextBox
Public WithEvents Copy As MSForms.CommandButton
Private Sub Copy_Click()
RfD.Value = UserForm1.Controls(RfD.Tag).Value
 
End sub

[Antispyware]

Merci pour vos réponses,
J'ai essayé avec le code de dysorthographie, il se trouve que j'obtiens une Erreur d'exécution '-2147024809 ( 80070057 )

La ligne surlignée est celle dans le module de classe.... J'avoue ne vraiment pas comprendre

[Antispyware]

J'ai trouvé une solution qui semble fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim j As Integer
For j = 2 To 10
    ReDim Preserve cls(j)
    Set cls(j).Copy = Me.Controls("Copier" & j)
    Set cls(j).RfD2 = Me.Controls("RefDoublure" & j)
    Set cls(j).RfD = Me.Controls("RefDoublure" & j - 1)
    cls(j).RfD2.Value = cls(j).RfD.Value
 
Next

et pour le module de classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Copy_Click()
RfD2.Value = RfD.Value
End Sub

Merci à vous !