Demande de traduction code VBA

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:

---

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

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:

---

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.