Masquer lignes plusieurs feuilles

[fileofish]

Bonjour le forum !

Je souhaiterais maquer les lignes 9:19 sur 2 feuilles (2&3)

J'ai fait une macro automatique qui me donne le code suivant

Sub essaimas()

Sheets(Array("Feuil2", "Feuil3")).Select
Sheets("Feuil2").Activate
Rows("9:19").Select
Selection.EntireRow.Hidden = True
Sheets("Feuil1").Select
End Sub


Lorsque je l'exécute, seules les lignes 9:19 de la feuilles 2 sont masquées
J'ai pensé que cela venait de : Sheets("Feuil2").Activate je l'ai donc supprimé mais cela ne change pas le problème

Auriez vous des idées

Merci ... une fois de plus 🙂

A bientôt
Philippe

 

[gilbert_RGI]

Re : Masquer lignes plusieurs feuilles

Bonjour

en faisant comme ceci

Sub essaimas()

    For i = 2 to 3
    Sheets("Feuil" & i).Activate
    Rows("9:19").EntireRow.Hidden = True
Next
    Sheets("Feuil1").Select
End Sub

 

[tototiti2008]

Re : Masquer lignes plusieurs feuilles

Bonjour fileofish,

En effet, VBA ne fonctionne pas bien sur les groupes de travail (sélection de plusieurs feuilles)

peut-être comme ça ?

Dim Sh As Worksheet
    For Each Sh In Sheets(Array("Feuil2", "Feuil3"))
        Sh.Rows("9:19").Hidden = True
    Next

Edit : bonjour Gilbert 🙂

 

[fileofish]

Re : Masquer lignes plusieurs feuilles

Merci à tous les 2
C'est vraiment sympa 🙂
Petite question annexe histoire de me cultiver un peu.
Sauriez vous quelle est la différence entre sheet et sheets
Bonne journée
Philippe

 

[tototiti2008]

Re : Masquer lignes plusieurs feuilles

Re,

En général, quand il y a un "s" à la fin, c'est une collection d'objets (Workbooks, Worksheets, Sheets, Cells...), c'est à dire un ensemble de classeurs, feuilles de calcul, feuilles, cellules
Sans "s" c'est un objet unique
Je ne sais pas si ça répond à ta question

 

[fileofish]

Re : Masquer lignes plusieurs feuilles

Super 🙂
Merci Tototiti
Merci Gilbert

 

[fileofish]

Re : Masquer lignes plusieurs feuilles

Petite question additionnelle si j'appelle mes feuilles 1;2;3 au lieu de Feuil1; Feuil2;Feuil3
Est-il possible de faire une correspondance entre le nom des feuilles:

For i = 2 to 3
Sheets("Feuil" & i).Activate


Nb : Lorsque j'ai fait un essai et que j'ai mis Sheets(i).activate avec i=2 il n'a pas pris l'onglet 2 mais l'onglet qui était en 2ème position

Encore merci à tous pour votre aide

 

[tototiti2008]

Re : Masquer lignes plusieurs feuilles

Re,

Peut-être

Sheets("" & i).activate

 

[fileofish]

Re : Masquer lignes plusieurs feuilles

Parfait 😉

Merci encore
A+
Philippe