Protection et masquer lignes

Jacques87

XLDnaute Accro

• 23 Janvier 2006

• #2

Bonsoir Natacha

Voici le bout de code qui te permettra de masquer la ligne 7

Rows('7:7').Select
Selection.EntireRow.Hidden = True

Bonne soirée

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 23 Janvier 2006

• #3

Bonsoir Jacques,

Merci pour ta réponse mais mon problème se pose lorsque la feuille est protégée.

Il y a un message d'erreur si tu exécute ce code sur une feuille protégée.

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 23 Janvier 2006

• #4

J'avais bien compris Natacha

Ce bout de code est à intégrer dans une procédure du genre

déprotection de la feuille
masquer la ligne
reprotection de la feuille

exemple
WorkSheets('Feuil1').Unprotect ' si c'est la feuille 1, et éventuellemnt voir s'il y a un mot de passe
Rows('7:7').Select
Selection.EntireRow.Hidden = True
WorkSheets('Feuil1').Protect

n'hésite pas à me contacter si problème

PS ajoute en début de procédure
Application.ScreenUpDating
pour éviter de voir 'les transformations' éventuelles

Message édité par: Jacques87, à: 23/01/2006 23:00

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 23 Janvier 2006

• #5

Escuse moi, je t'es sous estimé.

Effectivement, je n'avais pas pensé à déprotéger avant et reprotéger aprés.

Ca marche trés bien.

Merci beaucoup pour ton aide si efficace.

A bientôt.

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 23 Janvier 2006

• #6

Pas de problème, Natacha
A quand tu veux.
Nous essaierons à chaque fois de te satisfaire même si parfois nous shuntons ce qui nous semble être des évidences

Je te souhaite une bonne nuit

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 23 Janvier 2006

• #7

Bonsoir,

Une solution est pour éviter les Select. Ce qui donne

Code:

WorkSheets('Feuil1').Unprotect
Rows('7:7').EntireRow.Hidden = True 
WorkSheets('Feuil1').Protect

Bonne soirée



Message édité par: Dan, à: 24/01/2006 09:05

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 24 Janvier 2006

• #8

Merci à tous les deux pour vos réponses.

A bientôt.

 

Vote positif 0 Vote négatif