Affichage onglets masqués

2 réponses

Laurent Courpron

31/05/2006 à 16:05

Bonjour,

Dans un classeur, une vingtaine d'onglets sont masqués.
Y a t-il un moyen de tous les ouvrir en une seule fois et non un par un ?

Merci

2 réponses

Jacky

31/05/2006 à 16:20

Bonjour,
En VBA alors
'-------
Sub jj()
For i = 1 To Sheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Visible = True
Next
End Sub
'--------
Salutations
JJ

"Laurent Courpron" a écrit dans le message de
news:

Bonjour,

Dans un classeur, une vingtaine d'onglets sont masqués.
Y a t-il un moyen de tous les ouvrir en une seule fois et non un par un ?

Merci

papou

31/05/2006 à 16:22

Bonjour
Utilise une macro comme celle-la et tu la places dans un module de ton
classeur:
Sub Macro1()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Visible = xlSheetHidden Or _
sh.Visible = xlSheetVeryHidden Then _
sh.Visible = xlSheetVisible
Next sh
End Sub

Cordialement
Pascal

Laurent Courpron a exprimé avec précision :

Bonjour,

Dans un classeur, une vingtaine d'onglets sont masqués.
Y a t-il un moyen de tous les ouvrir en une seule fois et non un par un ?

Merci

Affichage onglets masqués

2 réponses

Veuillez sélectionner un problème