Discussion :

[RobinBzh]

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 !

[EricDgn]

Bonjour,

Quelque chose de ce genre:

Code :

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

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.

[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,

[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.

[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?

[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 )