Copier une page masquée

Valentin_Loupe · 14 Mars 2008

Bonjour à tous,

Je voudrais connaître la procédure pour copier une page qui est masquée mais que la nouvelle soit visible.

En fait, je me suis fait un classeur dans lequel on peut ajouter des feuilles en cliquant sur un bouton et celles-ci se nomment par "Pièce n°" & Sheets.Count :

Code:

    Application.ScreenUpdating = False
    Sheets("Pièce Vierge").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Pièce n°" & Sheets.Count - 4
    Application.ScreenUpdating = True

Maintenant, je voudrais masquer ma page par défaut (celle qui est copiée) mais lorsque je clique sur mon bouton, la nouvelle feuille créée est aussi masquée.

Merci d'avance

Valentin

fanfan38 · 14 Mars 2008

Re : Copier une page masquée

Bonjour
Ajoute:
Sheets(Sheets.Count).Visible = True
avant Application.ScreenUpdating = True

A+ François

Pierrot93 · 14 Mars 2008

Re : Copier une page masquée

Bonsoir Valentin

essaye peut être comme ci dessous :

Code:

    Sheets("Pièce Vierge").Copy After:=Sheets(Sheets.Count)
    With Sheets(Sheets.Count)
        .Name = "Pièce n°" & Sheets.Count - 4
        .Visible = -1
    End With

bonne soirée
@+

Valentin_Loupe · 14 Mars 2008

Re : Copier une page masquée

Bonsoir Pierrot93, fanfan38 et le forum,

Je viens d'essayer les deux procédures mais celle qui fonctionne le mieux est celle de Pierrot93. Par contre, c'est très bizarre, Excel me renomme ma feuille cachée lors de la premiere copie, ce qui fait que les copies suivantes sont rendues impossibles !

Je joins le programme, merci encore

Valentin

Pierrot93 · 15 Mars 2008

Re : Copier une page masquée

Bonjour Valentin, François

essaye peut être comme ci dessous :

Code:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("Feuil2").Copy After:=Sheets(Sheets.Count)
For Each ws In Worksheets
    If ws.Name <> "Feuil2" Then ws.Visible = -1
Next ws
Sheets(Sheets.Count - 1).Name = "Pièce n°" & Sheets.Count - 2
Application.ScreenUpdating = True
End Sub

bonne journée
@+

Valentin_Loupe · 15 Mars 2008

Re : Copier une page masquée

Bonjour à tous,

Merci pour ta réponse Pierrot93. Par contre maintenant je ne comprends pas pourquoi lorsque je clique la première fois sur "Copier la Feuil2", la feuille est créée mais pas sélectionnée et que lors d'ajout de feuilles suivant, Excel sélectionne la feuille créée avant !

Je rejoins le fichier avec les modifications.

Merci encore

Valentin

Pierrot93 · 15 Mars 2008

Re : Copier une page masquée

Re,

modifies comme suit :

Code:

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Sheets("Feuil2").Copy After:=Sheets(Sheets.Count)
        For Each ws In Worksheets
            If ws.Name <> "Feuil2" Then ws.Visible = -1
        Next ws
    Sheets(Sheets.Count - 1).Name = "Pièce n°" & Sheets.Count - 2
    Sheets("Pièce n°" & Sheets.Count - 2).Select
    Application.ScreenUpdating = True
End Sub

bonne soirée
@+

Valentin_Loupe · 22 Mars 2008

Re : Copier une page masquée

Bonjour Pierrot93, bonjour le forum,

Merci, ca marche nickel !

A bientot

Valentin

ChTi160 · 22 Mars 2008

Re : Copier une page masquée

Salut Valentin
Bonjour le Fil
Bonjour le Forum
arff histoire de saluer des amis Lol

On peut aussi mettre dans la procèdure

Code:

[COLOR=Blue]Feuil7[/COLOR].Copy au lieu de [COLOR=Blue]Sheets("Feuil2")[/COLOR].Copy

ce qui permet de modifier sans problème le nom de la feuille masquée par exemple
Bon WeekEnd

Valentin_Loupe · 22 Mars 2008

Re : Copier une page masquée

Bonjour à tous,

Merci pour vos réponses, d'ailleurs je relance le problème car maintenant j'ai deux feuilles que je voudrais masquer : la feuille 2 et la feuille 3, comment puis-je faire ?
PS : on copie toujours uniquement la feuille 2.

Merci encore !

Valentin

Pierrot93 · 22 Mars 2008

Re : Copier une page masquée

Bonjour Valentin, Jean-Marie

regarde peut être le code ci dessous :

Code:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("Feuil2").Copy After:=Sheets(Sheets.Count)
For Each ws In Worksheets
    If ws.Name <> "Feuil2" Or ws.Name <> "Feuil3" Then ws.Visible = -1
Next ws
Sheets(Sheets.Count - 1).Name = "Pièce n°" & Sheets.Count - 2
Application.ScreenUpdating = True
End Sub

mais attention dans ton fichier, pas de feuille nommée "Feuil2", sinon utilise la propriété "CodeName", comme le suggère Jean-Marie.

bonne soirée
@+

Valentin_Loupe · 22 Mars 2008

Re : Copier une page masquée

Bonsoir à tous,

Je suis désolé mais je ne parviens pas à résoudre le problème, ca plante toujours, ca copie nimporte quoi n'importe ou :-(

Pouvez-vous jeter un oeil au programme que je joins mis à jour ?

Encore merci

Valentin

Pierrot93 · 22 Mars 2008

Re : Copier une page masquée

Re

comprends plus rien, dans ton dernier fichier toutes les feuilles sont affichées...

Valentin_Loupe · 22 Mars 2008

Re : Copier une page masquée

Re,

Oui, en fait il faut masquer à la main les deux feuilles : "Page Vierge" et "Données".
Et ensuite quand on clique sur le bouton pour copier la page, la "Page Vierge" doit se copier mais la copie ne doit pas rester cachée et doit venir s'ajouter à la fin des feuilles existantes. Quant à la page nommée "Page Vierge", elle, doit rester cachée.

ChTi160 · 22 Mars 2008

Re : Copier une page masquée

Re
tu peux ,si tu veux que tes deux feuilles soient masquées à l'ouverture du fichier ,mettre dans la procèdure Workbook_Open de ton fichier

Code:

Private Sub Workbook_Open()
Worksheets("Page Vierge").Visible=False
Worksheets("Données").Visible=False
End Sub

à voir
Bonne fin de Soirée

Copier une page masquée

Valentin_Loupe

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Valentin_Loupe

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Valentin_Loupe

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Valentin_Loupe

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Valentin_Loupe

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Valentin_Loupe

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Valentin_Loupe

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Discussions similaires