Discussion :

[a.dequidt]

Bonjour,


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a.dequidt]

AU SECOURRRRRRR


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

[Invité]

Bonjour,

Vous relancez unr macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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

[a.dequidt]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("ton onglet").visible= false

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[a.dequidt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

Erreur d'exécution '438':

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

Aurore

[Invité]

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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