Comment cacher des onglets tout en les utilisant

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:

---

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

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:

---

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 :ccool:

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?

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

Code:

---

1 2 3 4

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

---

peut se faire directement avec

Code:

---

1 2 3

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

---

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

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:

---

1 2 3 4

sheets("feuil1").activate range("a1").select range("a1")= "me voici"

---

alors que ce code marche

Code:

---

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

---

au plaisir

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

Merci à vous deux :ccool:

Je n'arrive pas à raccourcir cette partir de code

Code:

---

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?

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

@patricktoulon: Le i et le j ne sont que des variables pour désigner la valeur d'une cellule mais dans une autre feuille(il ne s'agit que d'une partie du code)

Si j'utilise "*" c'est parce que "month" correspond à 11 - February, 12 - March, etc. Donc, je filtre avec un filtre qui contient. C'est le seul moyen que j'ai trouvé sur ce forum :lol: