cacher/montrer de lignes evolutif

[yoan stephant]

bonjour

avec votre aide j'ai la macro qui me permet de cacher les cellules dont les premieres cases contienent 0 :

Sub cache()
Dim cel As Range
For each cel In Range ('A1:A30')
IF cel.value='0' Then
cel.entirerow.hidden=True
End IF
Next
End sub

cela marche correctement mais l'application que je veux en faire est un peu différente. Je vais tacher de vous la détailler :

Dans ma colonne, plusieurs cases ont un contenu issu de formule de recherche (rechercheH) dans un bdd... et lorque le contenu de la bdd est vide, cela me renvoie 0

je souhait donc caché automatiquement, des leur apparition les lignes contenant un 0 dans la première colonne (sans necessité d'executer la macro manuellement) sachant que le contenu de la cellule de la première colonne peu evoluer (redevenir différent de 0...) et devra donc réafficher la ligne.

je vous remercie pour votre aide

cordialement

 

[Jacques87]

Bonjour

essaie de mettre ton code dans la procédure WorkSheet_Change() de la feuille concernée

elle se lancera alors automatiquement à chaque modification apportée à ta feuille

Bon courage

 

[yoan stephant]

merci, cela a l'effet désiré, mais seulement en partie car cela n'est pas evolutif, une fois la ligne caché, impossible de la remontrer

cordialement

yoan STEPHANT

 

[Jocelyn]

Bonjour le Forum,
Bonjour yoan stephant, Jacques87

pour ton deuxième soucis tu peux ajouter apré la ligne :

cel.entirerow.hidden=True

ces 2 lignes

Else
cel.EntireRow.Hidden = False

voila espérant t'avoir aidé

Jocelyn

 

[yoan]

merci, j'avais reussit avec un autre si, mais c'est plus facile ainsi

sinon le fait de faire tourner des macro en fond ralentit pas mal le pc, rafraichissement a chaque clic... ( a priori, j'aurais juste cette macro a tourner)
c'est inévitable?

merci
yoan

 

[Jocelyn]

Re bonjour,

tu peux essyer de la passer en :

Private Sub Worksheet_Activate()

mais je suis pas sur que cela convienne a ton besoin.

Jocelyn