Macro m'empêche de masquer une feuille

[good57]

Bonjour,

Lorsque je clique sur le bouton "Zurückstellen" qui permet de faire une remise à zéro de mon tableau, ma macro utilise la feuille du même nom ("Zurückstellen").
Je voudrais masquer cette feuille, mais je pense que cela m'est impossible car pour créer la macro qui se cache derrière le bouton de remise à zero, j'ai utilisé l'enregistreur de macro.

Qqn a-t-il une solution à me proposer ??

 

[DoubleZero]

Re : Macro m'empêche de masquer une feuille

Bonjour, good57, le Forum,

Les données d'un onglet ne semblent pas fictives : merci de bien vouloir retirer le fichier joint en #1...

Une suggestion, avec le présent code :

Option Explicit
Sub Zurückstellen2()
    Application.ScreenUpdating = False
    With Sheets("Zurückstellen")
        .Visible = -1
        .Rows("1:2139").Copy Destination:=Sheets("Nachkalkulation").Range("a8")
        .Visible = 0
    End With
    Application.ScreenUpdating = True
End Sub

Bis bald 🙂

 

[job75]

Re : Macro m'empêche de masquer une feuille

Bonjour,

Surtout pour saluer notre chère ânesse 🙂

Et pour préciser qu'en VBA on peut toujours faire du copier-coller à partir d'une feuille masquée si on ne la sélectionne pas.

Bonne soirée.

 

[DoubleZero]

Re : Macro m'empêche de masquer une feuille

Re-bonjour, bonjour, job75 😀,

Un gr😱s MERCI, j😀b75 !

Le code mentionné en #2 peut devenir :

Option Explicit
Sub Zurückstellen2_Merci_job75()
    Application.ScreenUpdating = False
    Sheets("Zurückstellen").Rows("1:2139").Copy Destination:=Sheets("Nachkalkulation").Range("a8")
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂🙂

 

[job75]

Re : Macro m'empêche de masquer une feuille

Re 00 🙂

Et les Application.ScreenUpdating sont alors inutiles...

A+

 

[good57]

Re : Macro m'empêche de masquer une feuille

Bonjour Job75 et DoubleZero.
Merci pour cette macro ! Ca tourne comme une horloge !