Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Bureautique

Code Vba Pour masquer les Feuilles

Dernière réponse le 16 jan 2008 à 22:22:41 gham, le 16 jan 2008 à 19:46:00

Signaler ce message aux modérateurs

Bonjour,
Je voudrais un code vba pour masquer les feuilles d'un classeur qu'on ne peut pas les afficher à partir du Format/Feuille/Afficher.
Avec tous mes respects.

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Code Vba Pour masquer les Feuilles » dans :

Code VBA (Résolu) Voir

Excel case a cocher code Vba svp Voir

Code VBA pour effacer controles après click (Résolu) Voir

Excel - Signature numérique VoirL’utilisation de code VBA nécessite un niveau de sécurité faible voire moyen, mais dans ce cas il faut activer les macros à chaque ouverture de fichier. Il est possible de remédier à ces désagréments en créant sa propre signature numérique pour...

Supprimer une table avec code VBA et importer Voir

Base de données, code VBA... Voir

Projet complet en ms-access en code vba Voir

Posez votre question Répondre

michel_m, le 16 jan 2008 à 20:52:29

Bonjour,

Worksheets("Feuil2").visible=0

pour rendre visible
Worksheets("Feuil2").visible=

Répondre à michel_m

gham, le 16 jan 2008 à 21:02:49

Merci ami
mais je veux un code pour masquer toutes les feuilles du ckasseur qui contient plus de 20 feuilles.
Toutes les feuilles à la fois sauf bien sûr la principale

Répondre à gham

michel_m, le 16 jan 2008 à 21:33:16

Re,

En supposant que ta feuille principale est la première concue et la première du classeur

Sub masquer()
Dim nbre As Byte, cptr As Byte

Application.ScreenUpdating = False

nbre = ThisWorkbook.Sheets.Count
cptr = 2
For cptr = 2 To nbre
Sheets(cptr).Visible = 0
Next

Application.ScreenUpdating = False

End Sub

Répondre à michel_m

gham, le 16 jan 2008 à 21:59:20

Oui c'est ça Merci, mais en allant au format/Feuille/ on trouve les feuilles masquées, ce que je veux qu'elles soient aussi masquer dans Formt/Feuille.

Répondre à gham

eriiic, le 16 jan 2008 à 22:08:59

Bonsoir,

Juste un complément à la macro de michel qui n'a pas dû tout lire.

Pour ne pas pouvoir les ré-afficher par le menu remplace:
.Visible = 0 par .Visible = xlSheetVeryHidden

Sub masquer()
    Dim nbre As Byte, cptr As Byte
    Application.ScreenUpdating = False
    nbre = ThisWorkbook.Sheets.Count
    cptr = 2
    For cptr = 2 To nbre
        Sheets(cptr).Visible = xlSheetVeryHidden
    Next
    Application.ScreenUpdating = False
End Sub

eric

Répondre à eriiic

michel_m, le 16 jan 2008 à 22:22:41

Exact, Merci Eric

Répondre à michel_m

Posez votre question Répondre