Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Cacher automatiquement 5 lignes par vba

lestoiles1

XLDnaute Occasionnel
Bonjour, j'aimrais cacher automatiquement les 5 lignes lorsque dans la collone B , il y un "1"(j'ai mis en vert).
J'ai mis le resultat dont j'aurai besoin dans la feuille "result"

Merci de votre collaboration
 

Pièces jointes

  • row hidden.xlsx
    26 KB · Affichages: 10
Solution
Bonjour lestoiles1, Gégé-45550,
VB:
Private Sub cmd_Afficher_Click()
[B25,B30,B35,B41,B46,B51,B56,B61,B66,B71,B76,B81] = 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows.Hidden = False
For Each Target In [B25,B30,B35,B41,B46,B51,B56,B61,B66,B71,B76,B81]
    If Target = 1 Then Target.Resize(5).EntireRow.Hidden = True
Next
End Sub
A+

job75

XLDnaute Barbatruc
Bonjour lestoiles1, Gégé-45550,
VB:
Private Sub cmd_Afficher_Click()
[B25,B30,B35,B41,B46,B51,B56,B61,B66,B71,B76,B81] = 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows.Hidden = False
For Each Target In [B25,B30,B35,B41,B46,B51,B56,B61,B66,B71,B76,B81]
    If Target = 1 Then Target.Resize(5).EntireRow.Hidden = True
Next
End Sub
A+
 

Pièces jointes

  • row hidden.xlsm
    32.8 KB · Affichages: 3

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…