masquer des lignes sous conditions [Résolu]

[BLACKHAYES]

Bonjour le forum,

j'aimerais connaitre le code vba pour masquer mes lignes de 17 à 61 sous condition que ma cellule en feuille "Parametres! F13 soit inférieur à 5

et les afficher si superieur à 5

cordialement,

 

[Pierrot93]

Re : masquer des lignes sous conditions

Bonjour,

peut être comme ceci :

Option Explicit
Sub test()
Sheets("NomFeuille").Rows("17:61").Hidden = Sheets("Parametres").Range("F13") < 5
End Sub

bonne journée
@+

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Bonjour Pierrot93,

Merci pour votre solution, mais elle ne fonctionne pas ????
il ne se passe rien !!!?
cordialement

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

sans pouvoir tester, difficile d'en dir plus...

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re Pierrot93,

je vous un fichier exemple

Cordialement

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

bah... le code fonctionne chez moi...

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re

avec mon fichier .... !!!????
je viens de reessayer et rien ne se passe, avez vous fait une manip quelconque avant ?!!

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

avec mon fichier .... !!!????

oui... je lance la macro à partir de l"éditeur vba...

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re,

Ah oui effectivement chez moi aussi cela fonctionne en lancant manuellement la macro;

mais que la macro s'execute toute seule si la condition n'est pas reunie ....????
Désolé de toutes ces questions

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

modifie peut être le code en procédure événementielle à utiliser dans la feuille "paramètre" lorsque la cellule F13 est modifiée...

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re,

Non ca ne veut rien savoir .....

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

essaye ceci dans le module de la feuille "parametre"...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$13" Then Sheets("Sem1").Rows("17:61").Hidden = Target < 5
End Sub

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re,

non, désolé ca ne fonctionne pas non plus;

meme pas manuellement,

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

ton fichier en retour

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re,

Donc le fichier fonctionne aussi chez moi, mais que si je change la valeur "Parametres! F13"
alors j'ai ciblé pourquoi ca ne fonctionne pas sur les autres fichiers, ni sur celui-la d'ailleurs si ...
explication:

dans mon fichier de base "Parametres F13" est la somme de ("=SOMME(H11:H15)")
et quand F13 a cette formule ca ne fonctionne pas ....