feuille masqué

[jojo]

Bonjour, jaimerai cacher toutes mes feuilles de mon classeur sauf une !
jai fais fenetre, masquer mais ça me masque tout !
Apparament il y a une macro pour cacher les feuilles jaimerai savoir c koi?

merci

 

[Danix]

Bonsoir

Utilise Format Feuille Masquer ou alors va dans l'editeur VBA et sur chacune des feuilles choisit l'option xlveryhidden et là on ne les verra plus du tout sauf à repasser dans l'editeur VBA pour les remettre en visible.

Slts

 

[Hervé]

re jojo, bonsoir danix

jojo, voici un code pour masquer des feuilles

Sub Bouton1_QuandClic()
Sheets('feuil1').Visible = False
Sheets('feuil2').Visible = False
Sheets('feuil3').Visible = False
Sheets('feuil4').Visible = False
Sheets('feuil5').Visible = False
End Sub

on pourrait faire une boucle pour éviter de se taper tout à la main, mais j'ai peur que ce ne soit trop compliqué.

salut

 

[porcinet82]

Bonsoir a tous,

Hervé je te sens en petite forme cette nuit, une petite boucle ca ne fait de mal a personne :

La feuille que tu ne veux pas cacher est la feuille feuille_non_caché :

Sub cacher_feuille()
Dim i As Byte

For i = 1 To Sheets.Count
    If Sheets(i).Name DIFF 'feuille_non_caché' Then
        Sheets(i).Visible = False
    End If
Next i
End Sub

Bonne nuit,

@+

PS : Le forum n'acceptant pas les signes inférieurs et supérieur, je les aient remplacé par DIFF

 

[Hervé]

bonjour tout le monde

porcinet, pour eviter l'utilisation de different de dans ton code, essaye :

If Not Sheets(i).Name = 'Feuil1' Then

salut

 

[jojo]

Hum.....jai pas tous compris !
comment marche xlveryhidden ???
ques ce qui faut faire?

Pour ça : Sub Bouton1_QuandClic()
Sheets('feuil1').Visible = False
Sheets('feuil2').Visible = False
Sheets('feuil3').Visible = False
Sheets('feuil4').Visible = False
Sheets('feuil5').Visible = False
End Sub

il sagit dune macro?!! moi jaimerai que des que je lance le fichier xls on ne voit que ma feuille de menu !

Merci !

 

[porcinet82]

Salut jojo, re Hervé,

Il s'agit effectivement d'une macro. Pour que des l'ouverture de ton fichier, seule la feuille
feuille_de_menu soit visible, place le code suivant dans le module de ThisWorkbook.

Private Sub Workbook_Open()
Dim i As Byte

For i = 1 To Sheets.Count
    If Not Sheets(i).Name = 'feuille_de_menu' Then
        Sheets(i).Visible = False
    End If
Next i
End Sub

@+

 

[Danix]

Bonjour à tous

Si à la place de Sheets(i).visible = false tu mets Sheets(i).visible xlveryhidden
les feuilles ne seront plus affichables par Format Feuile Afficher (cette option restera grisée).
J'utilise cette possibilité pour diffuser mes graphiques sans que les destinataires ne puisse voir les feeuilles de données. J'aurais aussi pu faire des images mais.....

Slts