Ajouter Données de UserForm dans une Feuille Excel

Version imprimable

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:

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 ! :)

Bonjour,

Quelque chose de ce genre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub AjouterPanier(NomUsf As UserForm)
    Dim Ctrl As Control, k As Long
    For Each Ctrl In NomUsf.Controls 'parcourir tous les objets
        If TypeName(Ctrl) = "Checkbox" Then 'Si l'objet parcouru est un checkbox
            Sheets("Panier").Range("A2").Offset(k, 0).Value = "Checkbox " & Ctrl.Name
            Sheets("Panier").Range("C2").Offset(k, 0).Value = Ctrl.Value
            k = k + 1
        ElseIf TypeName(Ctrl) = "TextBox" Then
            Sheets("Panier").Range("A2").Offset(k, 0).Value = "Textbox " & Ctrl.Name
            Sheets("Panier").Range("C2").Offset(k, 0).Value = Ctrl.Value
            k = k + 1
        End If
    Next Ctrl
End Sub

Cordialement.

07/06/2021, 10h57
RobinBzh

Merci pour votre réponse !

Je viens d'essayer le code mails il ne fonctionne pas dans mon VBA, de plus il manque une condition d'ajouter les données cherchées en cliquant !

Dois-je appeler cette fonction Module et le code de mes userform ?

Je suis un peu perdu

Cordialement,
07/06/2021, 12h02
EricDgn

Bonjour,

Je crains de n'avoir pas compris votre problème. Il serait sans doute plus simple de joindre un fichier, ou des copies d'écran, pour montrer ce qu'il y a au départ et le résultat recherché.

Cordialement.
08/06/2021, 11h35
fraflt69

Bonjour
Je travaille sur ce tutoriel, qui m'a l'air intéressant : https://fauconnier.developpez.com/tu...eau-structure/
Cela pourrait répondre à votre problématique?
27/06/2021, 14h13
Pierre Fauconnier

Salut.

Tu pourrais t'inspirer de ma réponse dans cette discussion. Je n'y explique pas comment ne reprendre que les textbox et chkbox, mais j'y détaille les 2 ou 3 lignes de code nécessaires au transfert de données d'un userform vers un tableau.

Comme l'écrit fraflt69, je m'appuie bien sûr sur un tableau structuré, dont je parle en détails dans le tuto qu'il a cité dans sa réponse (au passage, merci fraflt69 pour ce relais vers mon tuto ;))