cacher les memes lignes sur plusieurs feuilles

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

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