Discussion :

[persjussysylvain]

Bonjour,

J'ai un code qui met permet par un clic droit sur des cellules (B56, B65, B74 ... B182) de masquer ou afficher des lignes, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
 
Private Sub Worksheet_BeforeRightClick(ByVal R As Range, Cancel As Boolean)
  If Intersect(R, [B56:B182]) Is Nothing Or (R.Row - 2) Mod 9 Then Exit Sub
  Dim P As Range
  Cancel = True
  Set P = R(3, 1).Resize(7)
  P.EntireRow.Hidden = Not P.EntireRow.Hidden
  If P.EntireRow.Hidden = True Then Exit Sub
  R(4, 1).Resize(3).EntireRow.Hidden = True 'pour cacher
  R(9, 1).EntireRow.Hidden = True
End Sub

Serait-il possible à l'aide d'un bouton de commande "Tout Masquer" de lancer cette procédure pour toutes la feuille d'un coup de B56:B182
Je veux quand même garder la procédure actuelle pour pouvoir par un clic droit masquer uniquement les lignes par personne, ce qui fonctionne trés bien.

Je vous remercie de votre aide

Cordialement