cacher les memes lignes sur plusieurs feuilles

[Evelynetfrancois]

bonjour à tous et toutes
voici mon prob
dans une macro j'ai:

For Each sheet In Sheets
Range("25:28,46:49").Select
Selection.EntireRow.Hidden = False
Next

mais ça ne me cache que la feuilles active
Comment faire agir cette macro sur toutes les feuils d'un meme classeur
merci de m'eclairer
bon Dim as Anche
Evelynetfrancois

 

[Vériland]

Bonjour Evelynetfrancois et toi le Forum,

Ah ben on est en pleine programmation là...lol...

Voilà ce qui te (vous...lool) permettra d'effectuer cette requête....

Sub Masquer_Ligne()
Dim Feuille As Variant
Dim Col As Variant
For Each Feuille In Sheets
With Feuille
For Col = 25 To 28
.Rows(Col).Hidden = True
Next Col
For Col = 46 To 49
.Rows(Col).Hidden = True
Next Col
End With
Next Feuille
End Sub

j'ai paramétré le masquage avec deux boucles puisqu'apparemment tu aurais deux plages distinctes à masquer..

Le principe est simple...on fait une boucle sur toutes les feuilles présentes dans le classeur, puis dans chacune d'elle on masque d'une part les lignes 25 à 28 et d'autre part les lignes 46 à 49...euh...pour afficher c'est False à la place de True...

Voilà...Bonne programmation

et bon Dim as Anche aussi...lol

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[Evelynetfrancois]

bonsoir : Vériland
une fois de plus, ça colle parfaitement je te remercis1000 fois
ma macro de départ
Range("25:28,46:49").Select
Selection.EntireRow.Hidden = False
fonctionnait bien sur 1 feuille mais pas sur plusieurs alors........
j'ai cherché mais j'ai pas trouvé......
la tienne fonctionne a merveille
je te souhaite une bonne soirée
et encore merci
Evelynetfrancois