Affichage de tout le classeur = annuler tous les masquages...

[Absinth]

Hello,

Avec l'aide de Pascal, j'ai réussi à avoir une macro qui masque certaines lignes dans certaines feuilles selon une valeur... enfin soit, le problème est que ce fichier est ouvert, modifié etc par plein de monde, donc si un gars fait un "enregistrer" avec le masquage maximum, le reste ne sera plus jamais visible, donc, je comptais mettre, avant le code qui masque un premier code qui réaffiche tout avant de masquer...

j'ai trouvé ceci:

Dim sh As Worksheet
 
'Parcourir chaque feuille du tableau
For Each sh In Sheets(Array(("Point1", "Point2", "Point3", "Point4", "Point5", "Point6", "Point7", "Point8", "Tables"))
    sh.Visible = xlSheetVisible 'Ou xlSheetVeryHidden ou xlSheetHidden pour masque
Next sh

Que dois-je modifier pour qu'il balaie toute les feuilles puis réaffiche les lignes de ces feuilles

Merci d'avance 😉

 

[tototiti2008]

Re : Affichage de tout le classeur = annuler tous les masquages...

Bonjour Absinth,

queque chose comme :

sh.Cells.EntireRow.Hidden = False

 

[Absinth]

Re : Affichage de tout le classeur = annuler tous les masquages...

Hello Tototiti,

Merci pour ta réponse,

mais... euh... j'm'excuse, mais j'ai pas encore assez l'habitude du VBA, j'arrive pas à la mettre en forme cette commande...
tu pourrais me donner un ptit coup de pouce?

Merci 😉

 

[tototiti2008]

Re : Affichage de tout le classeur = annuler tous les masquages...

Bonjour Absinth,

après avoir affiché la feuille, tu réaffiches toutes les lignes de la feuille :

Dim sh As Worksheet
 
'Parcourir chaque feuille du tableau
For Each sh In Sheets(Array(("Point1", "Point2", "Point3", "Point4", "Point5", "Point6", "Point7", "Point8", "Tables"))
    sh.Visible = xlSheetVisible 'Ou xlSheetVeryHidden ou xlSheetHidden pour masque
sh.Cells.EntireRow.Hidden = False
Next sh

 

[Absinth]

Re : Affichage de tout le classeur = annuler tous les masquages...

Super!

Merci beaucoup 😀