Salut à tous,

Je suis actuellement en train d'écrire une fonction permettant de parcourir tout les objets de mes UserForm pour ne garder que les valeurs des Textbox et des Checkbox pour ainsi les afficher dans une Feuille excel en cliquant sur un bouton.

Dans chacune de mes UserForm j'ai un bouton "CommandButtonPanier" qui, lorsqu'on clique dessus, affiche les valeurs "CrtlText" et "Qt" dans une feuille.
Le problème c'est que je n'arrive pas à les faire apparaître sur ma feuille.

Je débute en VBA c'est pour cela que je requierts votre aide !

Voici le code :

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
19
20
21
Public Sub AjouterPanier(NomUsf As UserForm)
 
    For Each ctrl In NomUsf.Controls 'parcourir tous les objets
 
        If TypeName(ctrl) = "Checkbox" Then 'Si l'objet parcouru est un checkbox
 
            'enregistrer sa valeur
            CtrlText = NomUsf.Controls("Textbox" & Right(ctrl.Name, Len(ctrl.Name) - 8))
            Qt = CtrlText.Object.Value
 
            ' insertion dans la feuille du panier
            TypeName(ctrl) = "CommandButtonPanier"
            If CommandButtonPanier = True Then
 
                Sheets("Panier").Range("A2").Value = CtrlText
                Sheets("Panier").Range("C2").Value = Qt
 
            End If
        End If
    End If
End Sub
Merci beaucoup !