Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

cacher/montrer de lignes evolutif

  • Initiateur de la discussion yoan stephant
  • Date de début
Y

yoan stephant

Guest
bonjour

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

Code:
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
 
Y

yoan stephant

Guest
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

XLDnaute Barbatruc
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
 
Y

yoan

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…