[VBA-Excel]Aller sur une feuille sans l'activer.

Bonjour a tous et a toute !
J'ai une question en Vba sur Excel.:oops:
J'ai mis en place une petite macro qui lorsqu'on active la feuille A ,deprotege les cellules de toutes les feuilles,fais un recalculate sur toutes les feuilles de mon classeur, pour ensuite les reproteger.

Ma question est la suivante :Est-il possible d'aller sur une feuille (pour reproteger toutes les cellules de ma feuille+FormulaHidden=False) sans activer la feuille (car sinon ca relance la macro vu qu'on 'active' la feuille A)

J'ai cherché mais j'ai pas trouvé .Quelqu'un aurait une solution?
Merci d'avance!

Sans problème. Il suffit que tu la désignes

Code:

---

1 2 3 4

Worksheets(NomDeLaFeuille).Cells.Locked = True Worksheets(NomDeLaFeuille).Cells.FormulaHidden = True Worksheets(NomDeLaFeuille).Protect DrawingObjects:=True, _ Contents:=True, Scenarios:=True

---

A+

Merci pour cette indication.

Mais y'a un petit hic

y'a 3 feuilles : A B C
qd on va sur la feuille A(donc worksheet_activate),ca lance la macro qui deprotege toutes les feuilles (A B C),recalcule ,et reprotege

Code:

---

1 2 3 4

Cells.Select Selection.Locked = False Selection.FormulaHidden = False

---

Avec ta macro ca marche ,mais a la fin ,je tombe sur la feuille C (car il va pas sur la feuille A en dernier)
Je pensais a 2 choses:

C'est possible de faire un truc pour me laisser sur la cellule A1 de la feuille A sans la reactiver?
ou alors ,dans le cas ou je fais pas d'activate sur les feuilles B et C (quand ca déprotege), mettre les memes lignes que ce que tu m'as donné ,mais j'arrive pas a mettre un Worksheets(NomDeLaFeuille).Cells.Select

Comment faire?

Honnêtement j'ai vaguement lu en diagonale mais je peux te proposer qqch qui marche pas mal.
Declare une variable booleenne en globale

Code:

---

1 2	public boContinuer as boolean

---

Ensuite dans ta procédure événementielle de page, tu rajoutes au début :

Code:

---

if bocontinuer=false then exit sub

---

Finalement dans ta procédure de protection tu mets :

Code:

---

1 2 3

bocontinuer=false TONCODE bocontinuer=true

---

N'oublie pas de remettre bocontinuer a true car vu que c'est une variable globale elle garde sa valeur même à la fin des procédures. C'est un peu comme application.displayalerts ou application.screenupdating...

Citation:

---

Envoyé par bonilla

j'arrive pas a mettre un Worksheets(NomDeLaFeuille).Cells.Select

Comment faire?

---

ben evidement, .Select ne fonctionne que sur une feuille active et tu ne veux pas l'activer, alors, faudrait savoir ?

ouskelnor n'utilise pas de Activate ni de Select dans son code !

Pour abonder dans le sens de Thierry (salut Thierry, tu vas ?) juste une question :

Citation:

---

Envoyé par ouskel'n'or

Worksheets(NomDeLaFeuille).Cells.Locked = True
Worksheets(NomDeLaFeuille).Cells.FormulaHidden = True
Worksheets(NomDeLaFeuille).Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True

---

Citation:

---

Envoyé par bonilla

Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False

---

Tu verrais pas une différences, des fois ? :arf: