XL 2013 Cacher automatiquement 5 lignes par vba

lestoiles1 · 29 Janvier 2024

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

job75 · 29 Janvier 2024

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+

Gégé-45550 · 29 Janvier 2024

lestoiles1 à dit:
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

Bonjour,
Quelque chose comme ça ,
Cordialement,

job75 · 29 Janvier 2024

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+

lestoiles1 · 30 Janvier 2024

Gégé-45550 à dit:
Bonjour,
Quelque chose comme ça ,
Cordialement,

Oui, c'est ça, mais pour amélioration, est-ce qu'on peut activer le macro seulement lorsqu'on clique sur la feuille , non , lorsqu'on click sur "enter"

Gégé-45550 · 30 Janvier 2024

lestoiles1 à dit:
Oui, c'est ça, mais pour amélioration, est-ce qu'on peut activer le macro seulement lorsqu'on clique sur la feuille , non , lorsqu'on click sur "enter"

voir pj

XL 2013 Cacher automatiquement 5 lignes par vba

lestoiles1

XLDnaute Occasionnel

Pièces jointes

job75

Gégé-45550

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

lestoiles1

XLDnaute Occasionnel

Gégé-45550

XLDnaute Accro

Pièces jointes

Discussions similaires