Discussion :

[Julien91080]

Bonjour

je me permets de vous solliciter suite à une découverte que je trouve surprenante.

Ci joint un fichier teste qui peut expliquer mon souci.

J'ai créer une macro "ALL" qui crée des cases à cocher (liées et affectée à une macro) sur certaines colonnes.

Chaque case à cocher masque/affiche une colonne en fonction de "VRAI/FAUX".


Mes macros fonctionnent, les cases se créent, et l’ensemble bouge correctement.

Le problème est que si on sauvegarde, ferme, ré-ouvre le fichier, les cases à cocher se "figent" lorsqu’on les activent/désactivent.
J'aimerais qu'elles restent mobile comme lorsque qu'on les crée avec la macro ALL.


Merci par avance pour votre aide.

Cordialement,

Julien91080 Fiche1.xlsm

[PMO2017]

Bonjour,

Essayez avec le code du Module2 modifié

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
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub cacher()
'///
Dim k As Long
k = CheckBoxRow(Application.Caller)
'///
If ActiveSheet.Range("h" & k) <> 0 Then Columns("U:W").EntireColumn.Hidden = False Else Columns("V:V").EntireColumn.Hidden = True
End Sub
 
Sub cacher2()
'///
Dim k As Long
k = CheckBoxRow(Application.Caller)
'///
If ActiveSheet.Range("I" & k) <> 0 Then Columns("W:Y").EntireColumn.Hidden = False Else Columns("X:X").EntireColumn.Hidden = True
End Sub
Sub cacher3()
'///
Dim k As Long
k = CheckBoxRow(Application.Caller)
'///
If ActiveSheet.Range("J" & k) <> 0 Then Columns("Y:AA").EntireColumn.Hidden = False Else Columns("Z:Z").EntireColumn.Hidden = True
End Sub
Sub cacher4()
'///
Dim k As Long
k = CheckBoxRow(Application.Caller)
'///
If ActiveSheet.Range("K" & k) <> 0 Then Columns("AA:AC").EntireColumn.Hidden = False Else Columns("AB:AB").EntireColumn.Hidden = True
End Sub
 
'///
Function CheckBoxRow(ChBoxName As String) As Long
Dim CB As Excel.CheckBox
Set CB = ActiveSheet.CheckBoxes(ChBoxName)
CheckBoxRow = CB.TopLeftCell.Row
End Function
'///

[Julien91080]

Bonjour PMO2017,

Je ne dois pas saisir ce que je dois faire. Lorsque que je lance ton fichier, j'ai toujours le même problème

Dois-je appliquer aux cases à cocher la fonction lors de la création?

Merci pour ton aide

[PMO2017]

Lorsque que je lance ton fichier, j'ai toujours le même problème

Bonjour,

Chez moi cela fonctionne d'une ouverture de mon fichier à l'autre (avec enregistrement au préalable).
Les CheckBoxes cochées OU non cochées restent dans leur état et démasquent/masquent les colonnes correspondantes.

Ou alors, je n'ai rien compris à la problématique et j'ai programmé hors sujet (???).

[Julien91080]

Mes macros fonctionnent, lorsque l'on coche/décoche, les colonnes se masquent/s'affichent.
Je vais prendre un exemple pour être plus parlant.

Si je veux "définir" le plat préféré de jean jack, je doit cocher dans la colonne "Plat préféré" la case à cocher.
Du coup la colonne V s'affiche mais la case à coché de la colonne "Plat détesté" ne bouge pas pour suivre le mouvement de la colonne. Elle se retrouve dans ma colonne V.

Et ce qui est fort (à mon sens) est que lorsque je crée mes case grâce à la macro "ALL", je n'ai pas ce problème. C'est que quand je ferme et ré-ouvre mon fichier que j'observe ce problème.