Discussion :

[JohannCOU]

Bonjour à tous,

Je me permets de vous solliciter car j’ai un problème que je n’arrive pas à résoudre. Dans un fichier Excel qui gère une multitude de données dans un tableau structuré, j’ai réalisé une petite macro qui gère l’affichage des colonnes en passant par une Userform contenant des checkboxes. Jusque-là, tout fonctionne. Dans la Userform, j’ai créé des frames par catégorie de données afin de structurer visuellement la userform en fonction des besoins des utilisateurs. Afin d’éviter aux utilisateurs de coché ou décoché toutes les checkboxes d'une catégorie (Frame), j’ai ajouté une checkbox dans chaque frame pour gérer les checkboxes de la catégorie en question. Et j’aimerais que la valeur de la checkbox qui gère la catégorie se mette à jour en fonction de la valeur des autres checkboxes (Si elles sont toutes cochées, elle se coche. S'il y en a une qui est décochée, elle se décoche).

J’ai créé un fichier très simplifié pour exposé mon problème.
Dans la userform, il y’a 3 frames (qui ont la même fonction mais c’est pour l’exemple) qui résume le cheminement de ma réflexion.
Dans le frame « Problème 1 », la checkbox qui est ajoutée pour gérer les autres fonctionne mais ne se met pas à jour.
Dans le frame « Problème 2 », elle se met à jour mais ne gère pas les autres.
Dans le frame « Problème 3 », qui est la conclusion des deux autres frames, ne fonctionne pas et en plus je ne comprends pas leurs réactions. Mon code me parait pourtant logique mais quelque chose m’échappe.

Gestion données simplifiée.xlsm

Si quelqu’un à une solution ou des explications, je suis preneur !
Je vous remercie par avance.
Johann.

[Nagel Tha]

Bonjour,

Il faut que tu utilises les évènements des checkboxes de ton UserForm à mon avis. J'ai fait quelque chose de similaire récemment. Le clic sur la checkbox ou son changement de valeur doit déclencher la vérification de l'état de toutes les checkboxes dans une boucle contenant un test conditionnel.

Essaye ça en l'adaptant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Integer
i = 0
For Each Ctrl In Controls
If Not Ctrl.Value Then 
  Me.CheckBoxToutCoche.Enabled = False
  Exit For
End If
i = i + 1
Next Ctrl
If i = Me.Controls.Count Then Me.CheckBoxToutCoche.Enabled = True

[galopin01]

Bonjour,

J'ai un peu l'impression que tu essaies de savoir qui fait l'oeuf ou la poule...

Tu veux des CheckBox qui se cochent en fonction des colonnes visibles : pas de problème. Mais si après tu essaies de gérer les colonnes d'après les CheckBox tu ne peux pas le faire avec un CheckBox "collectif" car si le collectif est coché, à la moindre tentative de décocher une colonne, ça va décocher le collectif donc toutes les colonnes...
C'est un peu le même problème que si on utilise un "Plan" : Le fait de masquer ou démasquer un élément du plan n'agit pas sur la synthèse annuelle. et le fait de réduire ou pas une année ne peut développer tout ou partie des trimestres...

[EDIT] Bonjour Nagel... Juste pour suivre le sujet.

A+

[patricktoulon]

re
bonsoir

Tu veux des CheckBox qui se cochent en fonction des colonnes visibles : pas de problème. Mais si après tu essaies de gérer les colonnes d'après les CheckBox tu ne peux pas le faire avec un CheckBox "collectif" car si le collectif est coché, à la moindre tentative de décocher une colonne, ça va décocher le collectif donc toutes les colonnes...

faite moi plaisir observez le comportement des evenement surtout nagel tha tiens!!il comprends pourquoi
observez l'evenement mouse up l'effet( l'oeuf ou la poule/le serpent qui se mort la queue) pourrait bien ne pas avoir lieu

[patricktoulon]

je vais meme etre plus precis en fait il y a un evenement qui le gere encore mieux cet effet
c'est l'effet beforeupdate

testez ca dans un userform et apres refaite le meme test mais avec l'evenement click c'est marrant non ?

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
22
23
24
Private Sub CheckBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Allcheck
End Sub
'
Private Sub CheckBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Allcheck
End Sub
'
Private Sub CheckBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Allcheck
End Sub
'
Private Sub CheckBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
For i = 1 To 3
Me.Controls("CheckBox" & i).Value = CheckBox4.Value
Next
End Sub
'
Private Sub Allcheck()
For i = 1 To 3
If Me.Controls("CheckBox" & i).Value = True Then X = X + 1
Next
If X >= 3 Then CheckBox4.Value = True Else CheckBox4.Value = False
End Sub

maintenant prenez le meme code mais avec les evenement click pour les 4 checkbox il va rester plus que la tete du serpent

je connais un certain Nagel tha qui va etre tres...tres content

[Nagel Tha]

Dans l'évènement BeforeUpdate, l'évènement est déclenché avant que la valeur de l'objet ne change réellement de valeur donc au moment de l'exécution du code la valeur contenue dans le contrôle n'a pas été mise à jour. Dès que j'ai le temps, j'ai vais tester à fond tous les évènements.
Cela dit pour tirer les meilleur des contrôles, il faut utiliser les modules de classe si j'ai bien compris ? (je n'ai pas encore touché à ces bêtes-là)

[patricktoulon]

re
teste avant de tirer des conclusion

Cela dit pour tirer les meilleur des contrôles, il faut utiliser les modules de classe si j'ai bien compris ? (je n'ai pas encore touché à ces bêtes-là)

rien a voir les classe controls sont faite pour gerer les evenements de X meme controls en un seul evenement