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!!