Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

[PatLac]

Bonjour à tous !

Le sujet est déja maintes fois débatu sur le forum, mais là c'est un peu différents !

Je m'explique :
A l'aide d'une macro je copie les cellules d'une feuille (feuil1) sur la deuxième (feuil2) ...pas de soucis !

Sub RAPPORT()
Range("A8:E23").Select
Selection.Copy
Sheets("RAPPORT").Select
Range("B7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Les 2 feuilles sont actives, donc pas de problème !

Mais moi je voudrais que la copie se fasse sur la feuil2 lorsque ce que l'onglet est caché, et c'est là que ça bloque.

Donc faire apparaitre provisoirement la feuil2, le temps de faire des modifs dessus et à l'aide du bouton "retour" qui est sur la feuil2, refermer celle-ci ....la masquer à nouveau !

Sub RetourAccueil()

Application.ScreenUpdating = False

Worksheets(1).Select
Application.ScreenUpdating = True

End Sub

Je mets ci-dessous un exemple.
Merci à vous.

Cordiale Journée

 

[PatLac]

Re : Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

Merci !
En fait ça fonctionne même avec la protection, donc c'est nickel.
Juste une petite info encore : Comment faire pour que l'onglet caché, reste caché ?
En fait pour que la copie se fasse, mais à l'insu du plein gré de l'utilisateur ? lol 😉
Merci

 

[Pierrot93]

Re : Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

Re,

bah... laisser la feuille masquée... devrait fonctionner...

 

[PatLac]

Re : Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

Non, au moment de la copie elle apparait, ce qui est normal.
Je pense qu'il faille mettre quelque choses en false ...mais quoi et combien?
Merci

 

[Pierrot93]

Re : Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

Re,

bah chez moi un code comme ceci ne fait pas apparaitre la feuille :

Range("A1").Copy Destination:=Sheets("Feuil2").Range("A1")

 

[Pierrot93]

Re : Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

Re,

A noter tout de même que dans ton dernier fichier, la feuille 2 n'est pas masquée....

 

[PatLac]

Re : Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

oups, pas fais gaffe !
Je mets le fichier ci-dessous, pas de mot de passe sur la protection.
Merci

 

[Pierrot93]

Re : Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

Bonjour,

ceci fonctionne chez moi....

dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Feuil2.Protect userinterfaceonly:=True
End Sub

dans le module 1 :

Option Explicit
Sub test()
Sheets("Feuil1").Range("A8:a23").Copy
With Sheets("Feuil2")
    .Paste .Range("A65536").End(xlUp)(2)
End With
End Sub

bonne journée
@+

 

[PatLac]

Re : Copier les cellules d'une feuille dans une autre qui est masqué - CODE EXISTANT

C'est Nickel !
Merci beaucoup pour ton/votre aide. 😉
@+