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 :
Merci beaucoup !
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![]()
Partager