[VBA]activer les feuilles d'un classeur Excel

Bonjour,

je rencontre des difficultés pour activer et désactiver des feuilles dans un classeur Excel.

Mon application est la suivante :

J'ai un classeur Excel contenant trois feuilles : "FEUIL1", "FEUIL2", "FEUIL3"

J'ai créé un UserForm (bouton de commande). Lorsque je clique dessus, la form disparait et je souhaite faire apparaitre seulement la "FEUIL1" du classeur Excel s'affiche, pouvoir écrire dedans et rendre invisible "FEUIL2", et "FEUIL3"

Par la suite, en exécutant à nouveau le code, le souhaite faire apparaitre seulement la "FEUIL2",rendre invisible les deux autres et je veux pouvoir écrire dans la "FEUIL2" lorsque je clique sur le meme bouton de commande.
Le problème, c'est que la feuille "FEUIL2" ne s'affiche pas et je pense que la feuil1 est toujours active.

Comment puis-je remédier à ce problème ??

merci d'avance.

Salut,

pour rendre invisible la feuille : "MafeuilleAmoi" il suffit de faire :

Code:

---

Worksheets("MafeuilleAmoi").Visible = False

---

et pour la rendre visible :

Code:

---

Worksheets("MafeuilleAmoi").Visible = True

---

C'est tout :wink:

à bientôt

Igloobel

Merci mais ce n'est pas le problème!!!

car si j'ai deux feuilles, c'ets toujours la première qui est active.

JE ne peux pas rendre invisble la première et activber la deuxième pour écrire dedans.

puisque la première feuille est tjrs activée.

Je souhaite absolument que lorsqu'une feuille est visible que les autres soient :

- invisible
-désactivée

Avec ton code elle sont certe invisible mais tjrs active.

Je sais que les notions d'"ACTIVE" et de "SELECTIONNÉE" sont assez floue pour tout le monde (ou presque... En tout cas, pour moi), mais je ne vois pas ce que tu veux dire par "invisible, mais tjs active"?
Pour moi, ça ne se tient pas. Si elle est invisible, elle ne peut pas être active. Ça veut dire quoi, pour toi, active?

Bonjour

Il faut activer la deuxième avant de rendre la première invisible

Code:

---

1 2 3 4

Feuil2.Activate Feuil1.Visible = xlSheetHidden Feuil3.Visible = xlSheetHidden

---

Select et Activate n'ont pas le même effet.

feuil1.activate ne renverra pas d'erreur si feuil1 est invisible
feuil1.select renverra une erreur si feuil1 est invisible

Ok?

Pierre Fauconnier

Bonsoir,
Pour faire ce que tu veux, pourquoi n'utilises-tu pas des OptionButtons ??

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub UserForm_Activate() OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton4.Value = False End Sub   Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Sheets(1).Visible = True Sheets(2).Visible = False Sheets(3).Visible = False ElseIf OptionButton2.Value = True Then Sheets(2).Visible = True Sheets(1).Visible = False ElseIf OptionButton3.Value = True Then Sheets(3).Visible = True Sheets(2).Visible = False ElseIf OptionButton4.Value = True Then Sheets(1).Visible = True Sheets(2).Visible = True Sheets(3).Visible = True   End If End Sub

---

jpleroisse

Cette dernière solution fonctionne bien et me convient tout à fait!

Merci beaucoup pour votre aide à tous!!