Boucler sur objets d'un ou plusieurs Userform

Un oubli
Dim OObj As Control
et si tu veux ajouter le type de contrôle
s = s & OObj.Name & " : " & TypeName(OObj) & vbLf

oui j'ai vu ça dans le code de yg_be c'est intéressant à exploiter je pense dans le rapport de bug

du coup quelle est la différence entre

As Control

et

As MSForms.Control

?

mon (ancien) code fait le tour de toutes les userform définies, pas de celles qui sont actives.
debug.print affiche dans la fenêtre "immédiate". ctrl+G pour activer cette fenêtre.
mon nouveau code devrait fonctionner sur les UserForms actives.

ceci permet d'avoir aussi le nom du userform:

Dim comp As UserForm, ct As Control, s As String
Debug.Print Now()
For Each comp In UserForms
    For Each ct In comp.Controls
        s = TypeName(ct)
        Select Case s:
            Case "Label", "CommandButton":
            Case "TextBox", "CheckBox":
                Debug.Print ct.Parent.Name, ct.Name, ct.Value
            Case Else:
                Debug.Print ct.Parent.Name, ct.Name, s
        End Select
    Next ct
Next comp

effectivement ton nouveau code ne traite que les uf actives (et c'est top)
c'est

For Each comp In ThisWorkbook.VBProject.VBComponents

qui traite tout le classeur sauf les uf actives?

ct.Parent.Name

Cette commande renvoie le "lieu" (je ne sais pas comment dire) où se trouve l'objet : si l'objet est sur l'uf ça renvoie le nom de l'uf mais si l'objet est dans une frame alors c'est le nom de la frame qui est renvoyé c'est bien ça?

L'objectif étant de récupérer les valeurs dans un rapport de bug et ne sachant pas où, ni quand un bug va apparaitre est-ce qu'il faut faire un appel de ton code dans chaque sub de tous les uf et de tous les modules ou il existe une autre méthode? je pense peut être à un public sub déclaré au démarrage du fichier. (j'ai essayé d'ecrire

on error goto rapport_de_bug

en public juste après la ligne option explicit mais ça aurait été trop facile !)

Edit : je ne demande pas de précision sur ct.Parent.name pour que tu fasses une modif de ton code, vous m'avez déjà appris assez de chose pour que je réussisse à me dépatouiller de ça tout seul ;)

Quel message d'erreur?
VBA permet pas mal de choses en debug: examiner les variables, par exemple.

Bonjour et désolé pour le retour tardif, j'ai eu un week end bien occupé.. j'ai tout de même eu le temps de réfléchir à nos échanges
je ne connais pas forcément le n° et le message d'erreur à vrai dire et c'est pour ça aussi que je me suis dirigé sur un système de rapport de bug :
soit les commerciaux sont avec des clients au magasin, et là si ils viennent dans mon bureau avec un bug, ma priorité est de faire le nécessaire pour "décoincer" le script et de faire en sorte que le fichier tourne jusqu'à l'édition du devis pour ne pas faire capoter la vente. Dans ce cas j'avoue que je regarde à peine le message d'erreur, je suis plus en mode "contre la montre"..
soit les commerciaux sont au domicile des clients et là, j'apprend le lendemain "qu'ils ont raté une signature à cause de mon logiciel qui plante" mais sans aucune indication sur ce qu'ils étaient en train de faire, où ils ont cliqué etc

Donc bien que je sois tout à fait d'accord avec toi sur le fait que le rapport risque de ne pas suffir à régler ce problème de "caprice" je continue à penser que ça pourrait rester utile pour me permettre de collecter des info en cas du souci.
D'ailleurs suite au bug que mon commercial a eu samedi sur un uf théoriquement impossible à faire bugger (une listebox et un bouton) j'ai pensé que plutôt que de récupérer les valeurs des objets de façon un peu brut, il y a peut-être plus d'interet de récupérer un "journal de clic"..? c'est à dire alimenter un tableau à chaque clic type "clic1-userform1-listbox1-valeur"toto"" qui s'ecrirait sur une feuille dédiée du classeur si on error est solicité
ça aurait au moins le mérite de reproduire exactement la situation du problème?

VBA permet pas mal de choses en debug: examiner les variables, par exemple.
je ne connais pas cet aspect de vba mais effectivement ca me semble indéniablement être un outils à maitriser. du moins je sais passer un code au pas à pas, utiliser les espions pour contrôler les valeurs des variables en temps réel (debug.print aussi maintenant que je vais m'appliquer à utiliser) mais je suis friand pour apprendre et m'améliorer en vba

Si tu ne peux pas reproduire le problème, je ne vois pas trop l'utilité, pour l'instant, de mettre à disposition un fichier qui, de plus, ne contient peut-être pas le "défaut" du fichier originel.
Peut-être demander aux utilisateurs de prendre une capture d'écran avec le message d'erreur puis avec l'endroit du souci dans le code?
Un bug intermittent peut aussi venir de l'environnement, pas de ton code.

C'est le fichier originel que j'ai envoyé, j'ai retiré tous les tarifs, les logos et mis en commentaire les chemins de sauvegarde et de recherche de photo, c'est la seule différence avec le fichier qu'utilisent mes commerciaux.
Ce qui m'intéresse aussi (c'était pas prévu) c'est d'avoir un avis global sur mon travail
un bug peut venir de l'environnement c'est un peu ce que je redoute... Il y a une manière de contrôler ça?

Bonjour,

un avis global sur mon travail
Plutot complique.

Que le bug vienne de l'environnement ou du code, le point de départ, c'est d'analyser chaque occurrence.

je n'arrive pas à trouver comment automatiser ces 2 noms.. c'est possible ou il faut l'ecrire en dur à chaque fois?

Du coup j'ai écrit

Sub RapportDeBug(Lieu as string)

et dans chaque sub j'écris

Call RapportDeBug("uftoto_subtata")

et à la place de uftoto je nommerai le module dans les sub qui sont dans des modules... Je n'ai absolument rien trouvé sur Google pour récupérer automatiquement le nom d'une sub

j'ai essayé.. et j'ai pas compris sur quelle piste tu voulais m'envoyer
en écrivant ces 2 lignes, ça va dans rapportdebug qui fait bien son boulot, mais après ça retourne sur l'erreur et du coup la fenêtre de debug s'affiche
j'ai essayé resume next à la place de resume : ça va bien sur l'erreur de set focus que j'ai créé sur un bouton en visible=false mais sur l'erreur du word qui n'existe pas (que j'ai écrit pour symboliser une erreur empêchant le code de se poursuivre) là par contre le next ne sert à rien ce que je comprend mais qui ne m'avance pas.. A moins de re-refaire encore un on error goto qui appellerai une sub avec un message et la fermeture du fichier? ça se fait ça?

Une division par zéro déclenche une erreur.

Re,

pas compris la phrase
Vous avez les objets dans les frames et les autres qui sont sur l'userform.
Avec votre Sub JournalDeClic(uf As UserForm, Objet As String), pas de probleme