Discussion :

[d.deneys]

Bonsoir,
J'ai des flèches gauche et droite aux quelles je souhaite attribuer une macro
Quand je clique sur la flèche de gauche je souhaite faire apparaitre les feuilles "test1 & test2) et disparaitre (test3 & test4) et quand je clique sur celle de droite je souhaite faire apparaitre les feuilles "test3" & "test4") et disparaitre ("test1" & test2")

Quelle partie de la macro je dois modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub 1()
Sheets("Test1").Visible = True
Sheets("Test2").Visible = True
Sheets("Test3").Visible = False
Sheets("Test4").Visible = False

[casefayere]

Je ne sais pas quelles flêches tu as prises mais, essayes ça
avec un click droit et "Affecter une macro"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Flèchedroite1_Clic()
Sheets("Test1").Visible = False
Sheets("Test2").Visible = False
Sheets("Test3").Visible = True
Sheets("Test4").Visible = True
 
End Sub
Sub Flèchegauche2_Clic()
Sheets("Test1").Visible = True
Sheets("Test2").Visible = True
Sheets("Test3").Visible = False
Sheets("Test4").Visible = False
 
End Sub

[d.deneys]

J'avais déjà essayer ça mais ça ne fonctionne pas, je crois que c'est le fait d'afficher et masque 2 feuilles qui pose problème dans le code.

Il devrait y avoir un séparateur ou un and genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Janvier()
Sheets("Test1") and ("Test2").Visible = False
Sheets("Test3") and ("Test4") .Visible = True
End Sub

Mais ça fonctionne pas non plus

Pour une feuille ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub 1()
Sheets("Test2").Visible = False
Sheets("Test1").Visible = True
End sub

Mais pas moyen pour 2 feuilles

[d.deneys]

Je progresse j'arrive maintenant a masqué 2 feuilles mais pas a afficher les 2 autres

Pour masquer 2 feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub 1()
Sheets(Array("Test1", "Test2")).Visible = False
End Sub

[casefayere]

J'ai fait comme je t'ai préconisé et ça fonctionne, regardes le fichier

[parmi]

Bonjour,

Pourquoi vouloir passer par un Array ?

Comme déjà dit, ceci fonctionne très bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Gauche()
    Sheets("Feuil1").Visible = xlSheetVisible
    Sheets("Feuil2").Visible = xlSheetVisible
    Sheets("Feuil3").Visible = xlSheetHidden
    Sheets("Feuil4").Visible = xlSheetHidden
End Sub
 
Sub Droite()
    Sheets("Feuil1").Visible = xlSheetHidden
    Sheets("Feuil2").Visible = xlSheetHidden
    Sheets("Feuil3").Visible = xlSheetVisible
    Sheets("Feuil4").Visible = xlSheetVisible
End Sub

Si ça ne fonctionne pas, est-ce que tu reçois un message d'erreur ?

[d.deneys]

ok cela fonctionne, mais c'est possible qu'en plus d'afficher la feuille il l'ouvre?
donc on affiche "feuille1" mais on ce positionne aussi dessus