Discussion :

[Barbouze76]

Bonjour,

J'ai réalisé un UserForm automatisé qui crée une série de Frame et de CheckBox en fonction d'une liste.
J'ai utilisées des boucles et la fonction controls.add pour la création et le positionnement des objets.

Le résultat en pièce jointe.

Maintenant je voudrais que l'utilisateur puisse cocher ou décocher toutes les CheckBox dans une frame via un double clique, mais je n'ais pas à mas disposition les fonction classique Frame"X"_DblClick() puisque ce n'est pas moi qui à créé les frame.
J'ai uniquement à disposition la fonction UserForm_DblClick(...) qui ce d'éclanche uniquement quand l'utilisateur double clique à l'extérieur des frames.

Est-il possible de créer une fonction qui se d'éclanche l'ors d'un double clique n'importe ou sur le UserForm et qui me renvoie la frame associer ou actif?

Merci et bonne journée.

[eric4577]

Bonjour à tous et toutes
Bonjour Barbouze76

Si j'ai bien compris, l'UserForm_Initialize crée les frames et CheckBox et donc les codes pour les CheckBox en même temps.
Je suis étonné qu'il ne se trouve pas de FrameX_DblClick.
Perso, j'insérerai un CommandButtonX_Click dans chaque frame qui exécuterait le tout coché ou rien, ce qui serait plus compréhensible pour les utilisateurs.
A+
Eric

[Barbouze76]

Bonjour,
Merci de t'as réponse ERIC et pour l'astuce des boutons dans chaque Frame.
Mais cela ne résout pas le problème, je n'ai pas d'événement CommandBouton_clik dans mon UserForm.

les contrôles sont créés à l'initialisation de l'UserForm, je ne peut donc pas ajouter une fonction événement avant un que le control soit créer.
si c'est possible, comment le coder?

PS, voici un prototype de mon UserForm:
ListeACocher.xlsm

Bonne journée,

[Thumb down]

Bonjour,
j'ai modifié le code de Barbouze76 pour autoriser le double click sur les Frames le double Click sur le UserFom reste valide!


à noter qu'on ne teste pas un boulant pour lui affecter l'inverse de sa valeur!

Code :

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

Drap = Not Drap

[Barbouze76]

Rebonjour,

Merci pour t'as réponse .

Thumb down peux-tu m'expliquer comment cela fonctionne ?

Comment as-tu réussi à créer un événement liés aux frames?

Bonne journée,

[Thumb down]

j'ai créé un module de classe

'Ici on va lié notre control de typ MSForms.Frame mais qui à la particularité d'intercepter les événements WithEvents !

Code Classe Fram :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public WithEvents Fram As MSForms.Frame 'Ici on va lié notre control de typ MSForms.Frame mais qui à la particularité d'intercepter les événements  WithEvents !
Private Drap As Boolean
 
 
Private Sub Fram_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
 Drap = Not Drap
For i = 0 To Fram.Controls.Count - 1
Debug.Print Fram.Controls(i).Name
   If TypeName(Fram.Controls(i)) = "CheckBox" Then Fram.Controls(i).Value = Drap
Next
End Sub

j'ai créé une collection dans ton UserForm

Code :

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

Dim Drap As Boolean, MesFrames As New Collection

puis j'ai ajouter à ma collection autant d'instance de la classe Fram que tu as créé de Frame!

Code :

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

1
2
3
4
 'cré une nouvelle frame
        MesFrames.Add New Fram, valFrame
       Set MesFrames(valFrame).Fram = Me.Controls.Add("Forms.Frame.1", valFrame, True)
       MesFrames(valFrame).Fram.Move Left:=20, Top:=posTopFrame, Width:=200, Height:=hautFrame

notes que toutes les frames auront le même Fram_DblClick

[eric4577]

Bonjour,

Je n'ai pas trop de temps, mais regarde :

https://www.developpez.net/forums/d1...dynamiquement/

Voir la réponse, entre autres, de Pierre Fauconnier et surtout lis son PS

A+
Eric

Thumb down désolé je n'avais pas vu ta réponse. Ce qui n'empêche pas le PS de Pierre Fauconnier

[Barbouze76]

Bonjour,

Merci à vous deux!

Vos réponses m'aide beaucoup, je n'ais pas de formation en programmation et je connais mal le fonctionnement des classes avez vous des "cours / PDF / tuto..." à me recommander ?

Bonne Journée.

[Thumb down]

Bonjour,
https://fauconnier.developpez.com/ar...neral/classes/

[Barbouze76]

Merci