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

Re,

normal dans ce cas l'événement change n'est pas déclenché... voir du coté de l'événement "calculate" de la feuille... quand tu mets un fichier en pièce jointe préférable qu'il reflete la réalité du fichier réel...

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re,

oups desolé, je pensais franchement que le fait d'avoir "=somme xxxx" n'aurais rien changer, vu que le resulat attendu serais le meme (du moins affiché) ..

puis-je donc encore vous demander comment s'ecrit ce code maintenant;
j'ai essayer avec Private Sub Calculate() mais ca ne fonctionne pas
je ne dois pas ecrire le bon code

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

faut modifier les "target" par la référence de la cellule et supprimer le test sur l'adresse...

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re pierrot93

je viens de refaire le code avec celui de depart et la, ca fonctionne

Private Sub Worksheet_Calculate()
Sheets("Sem1").Rows("17:61").Hidden = Sheets("Parametres").Range("F13") < 5
End Sub

Je suis vraiment desolé de vous avoir fait perdre du temps avec cette betise de ma part

Et surtout merci de votre patience.

Je vous souhaite une bonne journée MERCI "Pierrot93"

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

pas de souci... effctivement tu avais déjà le code...

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re,

Glups
une derniere question
que dois-je rajouter au code, car j'ai aussi de preciser que ma feuil "Sem1" et "Parametres" sont proteger et "Parametres "masquer" en plus.

Private Sub Worksheet_Calculate()
Sheets("Sem1").Rows("17:61").Hidden = Sheets("parametres").Range("F13") < 5
End Sub

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

pour ce faire il faut que la protection sot effectuée par le code en utilisant l'argument "userinterfaceonly", code ci dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur.:

Private Sub Workbook_Open()
Sheets("Parametres").Protect "toto", :=True
End Sub

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

Re,

ca ne fonctionne pas avec ce code.
quand mes feuils sont deproteger ca fonctionne des que je protege "Sem1" ca bug
avec le code ci dessous

pour ce faire il faut que la protection sot effectuée par le code en utilisant l'argument "userinterfaceonly", code ci dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur.:

Private Sub Workbook_Open()
Sheets("Parametres").Protect "toto", :=True
End Sub

 

[Pierrot93]

Re : masquer des lignes sous conditions

Re,

AArf... autant pour moi, il manquait l'argument "userinterfaceonly" :

Private Sub Workbook_Open()
Sheets("Parametres").Protect "toto", userinterfaceonly:=True
End Sub

 

[BLACKHAYES]

Re : masquer des lignes sous conditions

RE,

ca y est j'y suis arrivé, enfin ouf

Merci a vous Pierrot93
Tres bonne journée
Cordialement