masquer ligne si

[eastwick]

Bonjour,
Je voudrais masquer une ligne en fonction du contenu d'une de ses cellules.
Exemple la cellule B2 est égale à "-"; alors masquer la ligne 2 !

En vous remerciant...

Bonne soirée à toutes et tous

 

[ERIC S]

Re : masquer ligne si

Bonjour

peut-êtr

 If Range("B2").Value = "-" Then
    Range("B2").EntireRow.Hidden = True
Else
    Range("B2").EntireRow.Hidden = False
End If

 

[eastwick]

Re : masquer ligne si

Sénèque et moi te remercions...
Mais hélas, ça ne fonctionne pas...

 

[ERIC S]

Re : masquer ligne si

Re

j epense que ce code marche mais peut-être n'ai-je pas compris ton pb
quand et comment se déclenche la macro?

 

[eastwick]

Re : masquer ligne si

Si la cellule B2 est égale à - ou "-", enfin le tiret du 6; alors la ligne 2 doit disparaitre automatiquement sans cliquer sur exécution macro.
Je te remercie.

 

[job75]

Re : masquer ligne si

Bonjour eastwick, ERIC S,

[B2].EntireRow.Hidden = [B2] = "-"

ou aussi :

lig = 2 'à adapter
Rows(lig).Hidden = Cells(lig, 2) = "-"

A+

 

[ERIC S]

Re : masquer ligne si

Re

à mettre dans la zone feuille (feuil1 par exemple), pas dans un module

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Value = "-" Then Target.EntireRow.Hidden = True
End Sub

 

[eastwick]

Re : masquer ligne si

ça ne fonctionne pas, je transmets mon fichier !
dans le cas présent, masquer ligne 70 quand C70 = "-"
P.S. : j'avais bien transformé B2 en C70 !!!
Merci.

 

[job75]

Re : masquer ligne si

la ligne 2 doit disparaitre automatiquement sans cliquer sur exécution macro.

Les macros événementielles sont là pour ça, je suis à peu près sûr que vous le savez.

Par exemple ces 2 solutions :

Private Sub Worksheet_Change(ByVal Target As Range)
[B2].EntireRow.Hidden = [B2] = "-"
End Sub

Private Sub Worksheet_Calculate()
[B2].EntireRow.Hidden = [B2] = "-"
End Sub

A+

 

[ERIC S]

Re : masquer ligne si

Re

essaie de mettre un - en C70

 

[eastwick]

Re : masquer ligne si

Effectivement, en mettant directement -; ça fonctionne mais mon C70 est fonction du 29/12 existant ou non de l'année !
Ainsi pour 2013 non donc C70 = "-" mais en 2016 ma formule effacée laisse la place au "-" et c'est faux forcément !!!
Complexe hein ????
MERCI

 

[eastwick]

Re : masquer ligne si

29/02 Je voulais dire !!!!
désolé

 

[job75]

Re : masquer ligne si

Re,

Une 3ème solution, à mettre dans la feuille planning de votre fichier :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[C70].EntireRow.Hidden = [C70] = "-"
End Sub

Cliquez sur n'importe quelle cellule.

A+

 

[eastwick]

Re : masquer ligne si

ok là; ça fonctionne parfaitement !
Merci beaucoup !

 

[ERIC S]

Re : masquer ligne si

Re

tu mets le code dans worksheet_activate (au lieu de worksheet_change)
la mise à jour se fera quand tu entres dans la feuille

ou dans calculate, cela se fera quand un calcul est déclenché......