Modifier une feuille veryhidden

[aeque]

Bonjour à tous

Voilà lors de l'ouverture de mon programme, une macro masque automatiquement toute les feuilles pour ne laisser qu'une page dispo et son usf.


Voilà le code dans this workbook

Private Sub Workbook_Open()

Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Sheets
If Not Ws.Name = "Alarme_Macro" Then Ws.Visible = xlSheetVisible
Next Ws
Sheets("Alarme_Macro").Visible = False
Application.ScreenUpdating = True

Sheets("Userform").Visible = xlSheetVeryHidden
Sheets("Parametre").Visible = xlSheetVeryHidden
Sheets("CA").Visible = xlSheetVeryHidden
Sheets("Jour").Visible = xlSheetVeryHidden
Sheets("modif").Visible = xlSheetVeryHidden

Ouverture.Show
Sheets("userform").Select
Range("D40").Select
Selection.Copy
Range("D41").Select
ActiveSheet.Paste
Sheets("range").Select

End Sub



Maintenant le soucis est de pouvoir accéder à ces pages pas pour les afficher mais pour les modifier comme juste au dessus

Sheets("userform").Select
Range("D40").Select
Selection.Copy
Range("D41").Select
ActiveSheet.Paste
Sheets("range").Select

Mon problème se situe ici car la macro s'arrete. Donc comment faire pour rendre invisible des feuilles tout en pouvant les modifier?




Merci pour votre aide

 

[chris]

Re : Modifier une feuille veryhidden

Bonjour
De façon générale on peut modifier des feuilles invisibles mais pas les "selecter" : il faut donc agir sur les cellules ou plages en indiquant le nom de la feuille avant le range et utiliser les actions copy et paste sans les select :
sheets(x).range(...).copy

 

[aeque]

Re : Modifier une feuille veryhidden

Merci beaucoup