Discussion :

[Sherman750]

Bonjour à tous,

Je voudrais être capable d'exécuter mes macros qui sélectionne des onglets mais je voudrais cacher ces mêmes onglets.

Voici un exemple de code qui utilise un onglet:

Code :

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

1
2
3
4
5
6
7
8
9
10
                For month = 11 To 22
                    With .Range("A1:X65536")
                    .AutoFilter field:=16, Criteria1:="*" & month & "*"
                    .Range("M:M").Copy
 
                    Sheets("PO").Select
                    End With
                    i = i + 1
                    Cells(j, i).Select
                    ActiveSheet.Paste

Je voudrais pouvoir cacher l'onglet PO par exemple...comment faire?

J'ai essayé cacher les onglets mais ma macro ne fonctionne pas lorsque la macro doit sélectionner l'onglet PO...problème!!!

Merci de l'aide

[Jean-Philippe André]

Salut,

attention aux termes employés, on parle de feuille Excel, les onglets, c'est autre chose

Concernant ton problème, tu peux cacher une feuille avec par exemple

Code :

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

a.Visible = xlsheethidden

mais l'utilisation des Select n'est pas pertinent (tu ne peux pas sélectionner une feuille cachée manuellement )

tu simplifieras ton code sans passer par les select, en utilisant le .paste en direct

[Sherman750]

Est-ce que c'est possible de cacher une feuille mais de modifier le code pour ne pas avoir de select. et de quand même être capable de rouler une macro qui travail avec toutes les onglets cachés?

[Jean-Philippe André]

Oui,
exemple (foireux, mais tu saisiras l'idée) :

Code :

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

1
2
3
4
Dim a as worksheet
set a = Worksheets("Piou")
a.Select
activesheet.Range("A1").Copy

peut se faire directement avec

Code :

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

1
2
3
Dim a as worksheet
set a = Worksheets("Piou")
a.Range("A1").Copy

[Sherman750]

Ah d'accord excellent je comprends bien...donc en appliquant ces changements je pourrai cacher les feuilles et quand même faire rouler la macro sans problème.

Merci de l'aide

[patricktoulon]

Bonjour sherman

On vient de te répondre que oui, à condition que tu n'utilise pas de Select ou Activate sur tes feuilles cachées.

Exemple :
Ta feuille 1 est cachée, ce code ne marche pas.

Code :

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

1
2
3
4
 
sheets("feuil1").activate
range("a1").select 
range("a1")= "me voici"

alors que ce code marche

Code :

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

1
2
 
sheets("feuil1").range("a1")="mevoici"

au plaisir

[Sherman750]

@patricktoulon: Merci de la réponse...c'était la question qui me fallait

Merci à vous deux

Je n'arrive pas à raccourcir cette partir de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
                For month = 11 To 22
                    With .Range("A1:X65536")
                    .AutoFilter field:=16, Criteria1:="*" & month & "*"
                    .Range("M:M").Copy
 
                    Sheets("PO").Select
                    End With
                    i = i + 1
                    Cells(j, i).Select
                    ActiveSheet.Paste
                Next

J'ai essayé d'écrire Sheets("PO").Cells(j, i).Paste

Mais je reçois un code d'erreur 438

Pourquoi ça ne fonctionne pas?

[patricktoulon]

bonsoir

le end with déjà est mal placé quand au critère je suppose que c'est une date

c'est dangereux de jouer avec le joker "*"

et j et i je vois pas trop a quoi ils correspondent

sachant que ta boucle se fait sur "month"

d'autant plus que les select et activate a tout va font ramer la machine

enfin j'ai beau tourner ton code dans tout les sens je ne sais pas ce que tu veux faire