Discussion :

[casavba]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
sub rrr()
if sheets("feuil1").visible = false then 
sheets("feuil1").visible = true
end if
if sheets("feuil2").visible = false then 
sheets("feuil2").visible = true
end if
...
end sub

quelqu'un peut mieux écrire cette macro. Moins de ligne
je sais c un jeu d'enfant

[Guidhy]

Je sais pas si ca ca marche ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
sub rrr()
 
i = 1 to 10 'admettons que tu ai 10 feuilles...
 
if sheets("feuil" & i).visible = false then 
sheets("feuil" & i).visible = true
end if
...
end sub

[AlainTech]

Nettement plus "propre":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub rrr()
  Dim wks As Worksheet
  For Each wks in ThisWorkbook.Worksheets
    wks.Visible = True
  Next wks
End Sub