Discussion :

[RobinBzh]

Bonjour,

Tout d'abord je tiens à précisé que je suis un très grand débutant pour ce qui est du VBA mais le sujet m'intéresse tout particulièrement.

On m'a donné un début de fonction à mettre dans un module pour gérer plusieurs UserForm à la fois mais je ne comprends pas très bien les lignes.
SI quelqu'un peut me traduire ces lignes de codes afin que je les comprennes au mieux ce serait superbe !

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub AjouterPanier(NomUsf As UserForm)
    For Each ctrl In NomUsf.Controls
        If TypeName(ctrl) = "Checkbox" Then
            CtrlText = NomUsf.Controls("Textbox" & Right(ctrl.Name, Len(ctrl.Name) - 8))
            Qt = CtrlText.Object.Value
 
 
        End If
    End If

End Sub


Pour plus de précision sur le projet, je souhaite, lorsqu'on coche une CheckBox et donne un nombre dans une TextBox qu'un nom et un nombre s'affiche dans une feuille en appuyant sur un button. Il y a plusieurs UserForm comme ceci quasiment identique.


Merci d'avance

[Alex020181]

Bonjour,

De façon générale ton code parcoure tous les objets de ton formulaire et, si l'objet parcouru est de type "checkbox" (case à cocher) alors il enregistre sa valeur.

Il fait cela en 2 temps avec les variables "ctrltext" et "qt".

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
Public Sub AjouterPanier(NomUsf As UserForm)
 
'parcourir tous les objets
For Each ctrl In NomUsf.Controls
 
'Si l'objet parcouru est un checkbox
If TypeName(ctrl) = "Checkbox" Then
 
'enregistrer sa valeur
CtrlText = NomUsf.Controls("Textbox" & Right(ctrl.Name, Len(ctrl.Name) - 8))
 
Qt = CtrlText.Object.Value
 
End If
 
'passer à l'objet suivant
Next ctrl
 
End Sub

Attention ton code initial a un "end if" à la place d'un "next ctrl".

Merci pour la mise en forme Winjerome. Je ne trouvais pas le bouton adéquat sur mon smartphone.