Sub Demasquer()
For Each sh In Worksheets
sh.Visible = True
Next sh
End Sub
Sub Masquer()
For Each sh In Worksheets
If sh.Name <> "O" Then sh.Visible = False
Next sh
End Sub
MerciBonjour,
VB:Sub Masquer() For Each sh In Worksheets If sh.Name <> "O" Then sh.Visible = False Next sh End Sub
Sub Demasquer()
For Each sh In Worksheets
sh.Visible = True
Next sh
End Sub
j'ai utiliser le code masquer les lien yhpertexte ne fonctionne plus ?Pour démasquer tous les onglets :
VB:Sub Demasquer() For Each sh In Worksheets sh.Visible = True Next sh End Sub
MerciCa n'a rien à voir, mais je me pose quand même une question : vu que tu as Excel 2016, pourquoi enregistrer tes classeurs au format obsolète Excel 97-2003 ???