Discussion :

[jemigo]

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.

[Igloobel]

Salut,

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

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

Worksheets("MafeuilleAmoi").Visible = False

et pour la rendre visible :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

Worksheets("MafeuilleAmoi").Visible = True

C'est tout

� bient�t

Igloobel

[jemigo]

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.

[Megaxel]

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?

[Pierre Fauconnier]

Bonjour

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

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

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

[leroissejp]

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

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

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

[jemigo]

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

Merci beaucoup pour votre aide � tous!!