macro masquer lignes dans groupe de travail

[janick]

Bonjour,
Ma macro masquer lignes ou colone dans groupe de travail ne fontionne pas à tous les coups,un peut d'aide SVP
Sub Macro1()
Rows('15:17').Select

Sheets(Array('1er tri', 'tri1-1', 'tri1-2', 'tri1-3', 'tri1-4', 'tri1-5', 'tri1-6', _
'tri1-7', 'tri1-8', 'tri1-9', 'tri1-10')).Select
Selection.EntireRow.Hidden = True
Sheets('1er tri').Activate
Range('A5').Select
End Sub

 

[janick]

Rebonjour,

Ci-joint un excemple du fichier

 

[Robert]

Bonjour Janick, bonjour le forum,

Comme toi je suis perplexe sur le code qui ne fonctionne pas... Alors une manière détournée qui elle, fonctionne :

Sub Macro1()
Dim sh As Worksheet
For Each sh In Sheets(Array('1er tri', 'tri1-1', 'tri1-2', 'tri1-3', 'tri1-4', 'tri1-5', 'tri1-6', _
'tri1-7', 'tri1-8', 'tri1-9', 'tri1-10'))
sh.Rows('15:17').EntireRow.Hidden = True
Next sh
Sheets('1er tri').Select
Range('A5').Select
End Sub

 

[janick]

Bonjour,

Merci cela fontionne bien un peut long à écrire mais c'est OK
Merci encore

 

[Robert]

Bonjour Janick, bonjour el forum,

janick écrit:

un peut long à écrire mais c'est OK

Une ligne de plus à peine...