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

mth

XLDnaute Barbatruc

• 15 Octobre 2011

• #2

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

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 15 Octobre 2011

• #3

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

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 15 Octobre 2011

• #4

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

re 🙂

Essaie avec ce code:

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 🙂

 

Dernière édition: 15 Octobre 2011

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 15 Octobre 2011

• #5

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 🙂.

 

Pièces jointes

• 00 - perdinch - masquer & démasquer.xls

  47 KB · Affichages: 70

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 15 Octobre 2011

• #6

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 17 Octobre 2011

• #7

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

Code:

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

Code:

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.

 

Vote positif 0 Vote négatif

N

Numidia

XLDnaute Occasionnel

• 17 Octobre 2011

• #8

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

 

Pièces jointes

• Classeur2.xlsm

  30.8 KB · Affichages: 60
• Classeur2.xlsm

  30.8 KB · Affichages: 74
• Classeur2.xlsm

  30.8 KB · Affichages: 68

Vote positif 0 Vote négatif