Mister Binaire
XLDnaute Occasionnel
Bonjour le Forum,
J'ai cette macro (voir ci-dessous) qui me permet de masquer des lignes pour ajuster un tableau de synthèse.
Le problème que je rencontre est le suivant : Lorsque je retourne sur une autre feuille et que je reviens sur la feuille contenant cette macro le masquage des lignes a disparu ?? .
Pouvez-vous m'aider pour que mes lignes masquées restent figées.
Merci de votre aide
Option Explicitl
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Rows.Hidden = False 'affiche toutes les lignes de l'onglet
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim PL As Range 'déclare la variable PL (Plage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Set PL = Range("A6:A43") 'définit la plage PL
If Application.Intersect(Target, PL) Is Nothing Then Exit Sub 'si le double-clic a lieu ailleurs que dans la plage PL, sort de la procédure
Cancel = True 'annule le mode [édition] lié au double-clic
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Select Case Target.Value 'agit en fonction de la valeur de la cellule double-cliquée
Case Is <> "" 'si la cellule n'est pas vide
Rows.Hidden = False 'affiche toutes les lignes de l'onglet
Case Else 'tous les autres cas
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
If CEL.Value = "" Then Rows(CEL.Row).Hidden = True 'si la valeur de la cellule CEL est vide, masque la ligne de la cellule CEl
Next CEL 'prochaine cellule de la boucle
End Select 'fin de l'action en fontion de la valeur de la cellule double-cliquée
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub
J'ai cette macro (voir ci-dessous) qui me permet de masquer des lignes pour ajuster un tableau de synthèse.
Le problème que je rencontre est le suivant : Lorsque je retourne sur une autre feuille et que je reviens sur la feuille contenant cette macro le masquage des lignes a disparu ?? .
Pouvez-vous m'aider pour que mes lignes masquées restent figées.
Merci de votre aide
Option Explicitl
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Rows.Hidden = False 'affiche toutes les lignes de l'onglet
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim PL As Range 'déclare la variable PL (Plage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Set PL = Range("A6:A43") 'définit la plage PL
If Application.Intersect(Target, PL) Is Nothing Then Exit Sub 'si le double-clic a lieu ailleurs que dans la plage PL, sort de la procédure
Cancel = True 'annule le mode [édition] lié au double-clic
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Select Case Target.Value 'agit en fonction de la valeur de la cellule double-cliquée
Case Is <> "" 'si la cellule n'est pas vide
Rows.Hidden = False 'affiche toutes les lignes de l'onglet
Case Else 'tous les autres cas
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
If CEL.Value = "" Then Rows(CEL.Row).Hidden = True 'si la valeur de la cellule CEL est vide, masque la ligne de la cellule CEl
Next CEL 'prochaine cellule de la boucle
End Select 'fin de l'action en fontion de la valeur de la cellule double-cliquée
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub