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

[Algoplus]

Bonjour,

Avec un bouton bascule (ToggleButton) sur la feuille:

Code :

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

1
2
3
4
Private Sub ToggleButton1_Click()
 Range("B6:B182").EntireRow.Hidden = ToggleButton1.Value
 ToggleButton1.Caption = IIf(ToggleButton1, "Tout Afficher", "Tout Masquer")
End Sub

dans les propriétés, initialiser Value à False et Caption à 'Tout Masquer'.

si on clique, les lignes sont masquées, le bouton se trouve alors en position "enfoncée" avec affichage= 'Tout Afficher'
si on clique à nouveau, les lignes sont affichées, le bouton est en position "relevée" avec affichage= 'Tout Masquer'

A+

[persjussysylvain]

Désolé mais je me suis mal expliqué, ce n'est pas ce que je cherchais

Le code suivant me permet par exemple
quand je fais un clic droit sur B56 masquer (pour la plage B56 à B64) toutes les lignes de B56 à B64 sauf B56 et B57
et quand je refais un clic droit sur B56 afficher les lignes 56,57,58,62,63 et masquer les lignes 59,60,61,64

Idem quand je fis clic droit sur B65 pour la plage B65 à B73 : masquer toutes les lignes de B65 à B73 sauf B65 et B66 - et au prochain clic droit afficher les lignes 65,66,67,71,72 et masquer les lignes 68,69,70,73
Idem pour B74 pour la plage B74 à B82
et ainsi de suite
jusqu'à B182
Ce code fonctionne bien

Mais je voudrais avec un bouton de commande que toutes ces opérations se fasse automatiquement pour tous les blocs de plages
sans faire clic droit sur chaque cellule de début de bloc

Peut-être avec une boucle dans ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
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

Ce n'est peut-être pas très clair

Merci

[patricktoulon]

Bonjou
sauf erreur de ma part c'est pas le premier post sur ce meme sujet me semble t'il
c'est pas tres apprécié les doubles posts
cela dit
j'espere que tu comprends que

Le code suivant me permet par exemple
quand je fais un clic droit sur B56 masquer (pour la plage B56 à B64) toutes les lignes de B56 à B64 sauf B56 et B57
et quand je refais un clic droit sur B56 afficher les lignes 56,57,58,62,63 et masquer les lignes 59,60,61,64

represente 3 positions d'affichage

1. toute visible
2. masquer toutes les lignes de B56 à B64 sauf B56 et B57
3. afficher les lignes 56,57,58,62,63 et masquer les lignes 59,60,61,64

ca devrait deja te mettre la puce a l'oreille du comment faire

[Algoplus]

re et bonjour patricktoulon

Sans doute mal réveillé, j'avais lu en travers.

Une solution possible = adaptation dans une boucle dans un ToggleButton du code existant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ToggleButton1_Click()
Dim P As Range, R As Range
    For i = 56 To 173 Step 9
        Set R = Range("B" & i)
        Set P = R(3, 1).Resize(7)
        P.EntireRow.Hidden = True
        If Not ToggleButton1 Then
            P.EntireRow.Hidden = Not P.EntireRow.Hidden
            R(4, 1).Resize(3).EntireRow.Hidden = True 'pour cacher
            R(9, 1).EntireRow.Hidden = True
        End If
    Next
 
 ToggleButton1.Caption = IIf(ToggleButton1, "Tout Afficher", "Tout Masquer")
End Sub

Sur les 3 positions, n'effectue que les 2 et 3, comme le code du Worksheet_BeforeRightClick.

A+

[persjussysylvain]

Ok. Merci beaucoup ��