[VBA-E] Utilisation d'un onget masqué

Bonjour,


Je souhaite masquer un onglet via une macro, je suppose qu'il faut que j'utilise

Code:

---

1 2	Sheets("Feuil3").Select ActiveWindow.DisplayWorkbookTabs = False

---

Ce que j'aimerai savoir c'est si je peux récupérer ce qu'il y a sur cet onglet (en l'occurence un tableau) de le copier et de le coller sur un onglet non masqué.

J'espere avoir été assez clair ;)

Merci,

Aurore

AU SECOURRRRRRR
:help:

Le code que j'ai mis m'a effacer TOUT LES ONGLETS :'(

Alors que je voulais seulement que le dernier onglet soit masqué,

Comment faire pour récuperer mes onglets :(

Aurore

Bonjour,

Vous relancez unr macro :

Code:

---

1 2	Sheets("Feuil3").Select ActiveWindow.DisplayWorkbookTabs = True

---

ou

Outils, Options puis onglet Affichage et vous recochez en bas "Onglet du classeur".

D'autre part vous pouvez utiliser les données d'une feuille qu'elle soit masquée ou non.

Bonjour

Va dans Outils/Options/Affichage, et tu dois avoir une case à cocher pour les onglets.

Ton code désactive les onglets, mais ne rend pas les feuilles (ou onglets) invisible.

Si tu veux rendre une feuille invisible, regarde du coté de la propriété Visible de l'objet Worksheet.

Starec

Code:

---

Sheets("ton onglet").visible= false

---

Code:

---

Sheets("ton onglet").visible= false

---

La différence avec cette ligne de code dans votre problème précis (toutes les feuilles sont masquées) est que vous devez la répéter autant de fois qu'il y a de feuilles à moins de l'intégrer dans une boucle.

J'ai mon tableau de A1 a S9 sur l'onglet 4 qui est masqué,

Je cherche a copier ce tableau et a le coller en A24

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ajout_tableau()   Sheets(4).Select Range("A1:S9").Select Selection.Copy Sheets(1).Select Range("A24").Select Selection.Paste   End Sub

---

Lorsqeue je lance ma macro un message d'erreur s'affiche...

Citation:

---

Erreur d'exécution '438':

Propriété ou méthode non gérée par cet objet

---

Aurore

Essayez :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ajout_tableau() Sheets(4).Select Range("A1:S9").Select Application.CutCopyMode = False Selection.Copy Sheets(1).Select Range("A24").Select ActiveSheet.Paste   End Sub

---

Maintenant j'ai

Citation:

---

La méthode Select de la classe Worksheet a échoué.

---

:mur:


Aurore

Votre code est écrit sur une feuille ou dans un module ?

Dans un module, mais c'est bon j'ai trouvé ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub ajout_tableau()   Sheets(4).Visible = True Sheets(4).Select Range("A1:S9").Select Application.CutCopyMode = False Selection.Copy Sheets(1).Select Range("A34").Select ActiveSheet.Paste   End Sub

---