masque-démasque les lignes AVEC critère "oui" en colonne "G" ds 3 feuilles

[perdinch]

Bonsoir,

Tout est dans le titre .
j'ai mis un classeur exemple.

merci de vos suggestions.

cordialement,

Perdinc

 

[mth]

Re : masque-démasque les lignes AVEC critère "oui" en colonne "G" ds 3 feuilles

Bonsoir,

Essaie en utilisant un filtre automatique, sélectionne la première ligne contenant les en-têtes de colonne, puis menu Données/filtrer.
Sélectionne ensuite la petite flèche colonne G, puis décoche "oui", seules les autres lignes seront affichées.
Pour réafficher tout, sélectionner la même petite flèche et choisir d'afficher tout.

Bonne soirée,

mth

 

[mth]

Re : masque-démasque les lignes AVEC critère "oui" en colonne "G" ds 3 feuilles

re 🙂

oups, je n'avais pas vu que tu voulais du VBA, effectivement dans ton titre tu dis qu'il y a trois feuilles, dans un onglet du fichier tu précises qu'il y en a 40, ça devient fastidieux à la mimine ...
Je reviens plus tard avec du VBA si tu n'as pas d'autres réponses d'ici là 🙂

@ +

mth

 

[mth]

Re : masque-démasque les lignes AVEC critère "oui" en colonne "G" ds 3 feuilles

re 🙂

Essaie avec ce code:

Sub Masquer()
Dim i As Byte
For i = 1 To Sheets.Count
    Sheets(i).Range("G3:G" & Sheets(i).Cells(Rows.Count, 7).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 2).EntireRow.Hidden = True
Next i
End Sub
 
 
Sub Afficher()
Dim i As Byte
For i = 1 To Sheets.Count
    Cells.EntireRow.Hidden = False
Next i
End Sub

Bonne soirée,

mth

Edit: Hello 00 🙂

 

[DoubleZero]

Re : masque-démasque les lignes AVEC critère "oui" en colonne "G" ds 3 feuilles

Bonjour, perdinch, mth 🙂, le Forum,

Une autre procédure en pièce jointe.

A bientôt 🙂.

 

[perdinch]

Re : masque-démasque les lignes AVEC critère "oui" en colonne "G" ds 3 feuilles

Merci MTH

cela fonctionne à merveille et j'ai pu l'adapter à mes 40 feuilles!

cordialement

perdinch

 

[TempusFugit]

Re : masque-démasque les lignes AVEC critère "oui" en colonne "G" ds 3 feuilles

Bonjour

En partant de code proposé par mth, mais en le mettant dans ThisWorkBook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Sh.Range("G3:G" & Sh.Cells(Rows.Count, 7).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 2).EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Sh.Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Le code s'éxécute quand on sélectionne un onglet.

 

[Numidia]

Re : masque-démasque les lignes AVEC critère "oui" en colonne "G" ds 3 feuilles

bonjour tt le monde
tu peux voir cette version si elle t'interesse