Discussion :

[pignouf]

Bonjour à tous,

Vous trouverez en annexe un fichier. Celui-ci est constitué, entre autre, des feuilles P1, P2, P3, P4 et P5. Ces feuilles sont identiques.
Je souhaiterais pouvoir masquer / afficher les colonnes F, G, H, I, J, K, L sur la feuille Px si sur cette feuille Px (indépendance des feuilles) nous avons les conditions suivantes :

1. F est masquée si et seulement si AT10 est égale à 0 et F est affichée si et seulement si AT10 est différent de 0
2. G est masquée si et seulement si AV10 est égale à 0 et G est affichée si et seulement si AV10 est différent de 0
3. H est masquée si et seulement si AX10 est égale à 0 et H est affichée si et seulement si AX10 est différent de 0
4. I est masquée si et seulement si AZ10 est égale à 0 et I est affichée si et seulement si AZ10 est différent de 0
5. J est masquée si et seulement si BB10 est égale à 0 et J est affichée si et seulement si BB10 est différent de 0
6. K est masquée si et seulement si BD10 est égale à 0 et K est affichée si et seulement si BD10 est différent de 0
7. L est masquée si et seulement si BF10 est égale à 0 et L est affichée si et seulement si BF10 est différent de 0

(Les cellules sur lesquelles le test est fait sont définies par des formules)

Affichage / masquage doit pouvoir se faire automatiquement (événementiel)

Je vous remercie d'avance pour les réponses que vous me donnerez.



pignouf

[QuestVba]

Bonjour,

Plusieurs choses :

• Si tu veux utiliser le VBA, tu devrais poser ta question sur le forum dédié. Tu auras certainement plus de réponses.
• As-tu lu ce tuto sur Les évènements dans la feuille de calcul Excel
• Quant à masquer/afficher, un peu de recherches :
  
  • https://www.developpez.net/forums/d1...gnes-colonnes/
  • https://www.developpez.net/forums/d1...quant-cellule/
  • https://www.developpez.net/forums/d9...ent-condition/
  • https://www.developpez.net/forums/d1...fichier-excel/
  
  

Pourrais-tu mettre le code que tu as déjà commencé ?

[pignouf]

J'ai testé le code suivant sur un fichier test :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
If Target.Value <> 0 Then Columns(1).Hidden = False
If Target.Value = 0 Then Columns(1).Hidden = True
End Sub

En C2, j'ai définit une fonction : si(C1=1;1;0)
Cela ne fonctionne pas, par contre si je transforme la formule comme ceci N(si(C1=1;1;0)) alors la colonne A est masquée MAIS lorsque je change la valeur de C1 la colonne A reste toujours masquée !!!

Je ne pige pas pourquoi !

[pignouf]

J'ai été trop vite dans mon post précédent...

J'ai testé le code suivant :

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
If Target.Value <> 0 Then Columns(1).Hidden = False
If Target.Value = 0 Then Columns(1).Hidden = True
End Sub

Il fonctionne très bien si en C2 j'ai une valeur. Par contre si en C2 j'ai la fonction si(C1=1;C1;C1) il n'y a aucun événement qui passe ... même si je transforme en N(si(C1=1;C;C1))
Je ne vois pas pourquoi. Pourquoi l'écriture d'une fonction change tout ?

[QuestVba]

Bête question : Pourquoi ?

Code :

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

si(C1=1;C1;C1)

Tu auras toujours C1. Non ?

De plus, la cellule pointée par le paramètre 'Target' de 'Worksheet_Change' est celle qui est modifiée à la main. Donc, je pense que tu dois passer par une autre procédure ou peut-être utiliser 'Worksheet.Calculate()'.

[pignouf]

oui effectivement C2 donne toujours la valeur de C1. C'est fait exprès et ce afin de voir si cela fonctionne lorsque j'ai une fonction.

Non le pointeur n'est pas dirigée vers la cellule modifiée à la main mais bien sur celle définie par la formule.

En utilisant Calculate() j'ai une erreur (code 424) et en plus cela ne fonctionne pas...

Je ne trouve pas comment faire ...

[QuestVba]

Il faut donc changer ton approche ...