XL 2013 Masquer Feuil1 si Feuil3 NON masquée

[Usine à gaz]

Bonjour à toutes et à tous,

Me re-voilou pour une nouvelle question.

Malgré mes recheches, je n'arrive pas à trouver la réponse.
Mais peut-être que ce n'est pas possible.

Ce que je voudrais faire :
Ici, je suis sur ma Feuill3

J'ai besoin que tant que je suis sur ma Feuill3, l'onglet Feuil1 ne puisse pas être sélectionné.

Auriez-vous la solution ? (petit fichier test joint)

Un grand Merci encore une fois.

Bonne journée à toutes et à tous
Amicalement,
arthour973,

 

[job75]

Re,

Le problème c'est que si il veux retourner en Feuil1, ça lui est impossible.

Bah activer Feuil2 avant d'aller sur Feuil1...

A+

 

[Usine à gaz]

Bonjour job75

Effectivement, c'est très cours. Le problème c'est que si il veux retourner en Feuil1, ça lui est impossible.

EDIT: bonjour mapomme

Re-Lone,

J'ai testé le code de Job et apparemment ça marche, je peux retourner sur Feuil1 si je ne suis pas sur la Feuil3

 

[Usine à gaz]

Bonjour à toutes et à tous,

Je reviens sur le sujet car, après réflexion, l'observation de Lone est en fait très intéressante.

dixit lone : "Le problème c'est que si il veux retourner en Feuil1, ça lui est impossible.
Réponse de Job : "Bah activer Feuil2 avant d'aller sur Feuil1..."

Les code de Job et de Mapomme fonctionnent super bien et celui de Job a ma préférence car plus court, plus simple.

Mais Lone a mis son chtit doigt sur mon vrai besoin que j'ai (encore une fois ) mal exprimé.

En fait, j'ai besoin que l'on ne puisse pas activer la Feuil1 tant que la Feuil3 est visible.

Avec mes remerciements,
Bonne journée à toutes et à tous,
Amicalement,
arthour973

 

[Usine à gaz]

Re,

Après re-test du code de Lone, c'est p'être le code qui s'approche le plus de mon besoin.

Private Sub Worksheet_Activate()
    With Feuil3
        If .Range("m2") <> "" Then    'ou une autre cellule
            Me.Activate
        Else
            .Activate
        End If
    End With
End Sub

à l'exception de cette partie du code : "If .Range("m2") <> "" Then 'ou une autre cellule"

 

[job75]

Bonjour Lionel, le forum,

Tu pédales un peu dans la choucroute non ?

Alors malgré ce que tu as répondu à CB60 :

Mais je voulais savoir s'il y avait un moyen, sans passer par visible False, d'interdire la sélection (ou activation) de la feuil1 si je suis sur la Feuil3

cette solution (code de Feuil3) est excellente :

Private Sub Worksheet_Activate()
Feuil1.Visible = xlSheetVeryHidden
End Sub

Private Sub Worksheet_DeActivate()
Feuil1.Visible = xlSheetVisible
End Sub

A+

 

[Usine à gaz]

Re-Job,

LOL OUI, je pédale un peu

Merci pour ce code, je regarde et je reviens

 

[Usine à gaz]

Re-Job,

LOL OUI, je pédale un peu

Merci pour ce code, je regarde et je reviens

Re-Bonjour Job,

Il fonctionne très bien ce code comme tous tes codes.
Un grand merci encore une fois

Toutefois, dans mon usine à gaz LOL, il y a d'autres onglets et le code me pose un petit souci.

1 - si la Feuil3 est active (visible donc) , il ne faut pas que la Feuil1 soit visite (pour ne pas être sélectionnée)
pour que ça fonctionne, il me faut copier le code de la Feuil3 dans le code des autres feuilles.

2 - Si je fais cela, même quand la feuil3 sera masquée, la Feuil1 ne pourra plus être visible.

J'aimerais que le code s'exécute que si la Feuil3 est visible.
Donc si Feuill3 masquée : Feuil1 = visible
Est-ce possible?
Amicalement,
arthour973

 

[job75]

Re,

Arrête de te triturer le cerveau Lionel, tu l'esquintes, surtout sur un problème aussi simple.

A+

 

[Usine à gaz]

Merci Job pour ta gentillesse mais je n'y arrive pas LOL

En fait, le code qui irait bien serait un code dans le code de la feuil 1 qui dirait :

Si Feuil3 NON visible = Feuille (Feuil1) visible
Si Feuil3 visible = Feuille (Feuil1) NON visible

Mais j'essaie et je n'y arrive pas

 

[job75]

Re,

Non seulement tu pédales dans la choucroute mais en plus tu ne testes pas bien.

Avec le code de mon post #20 en Feuil3 (et aucun autre code) masque puis affiche Feuil3 !!!

A+

 

[Usine à gaz]

Re,

Non seulement tu pédales dans la choucroute mais en plus tu ne testes pas bien.

Avec le code de mon post #20 en Feuil3 (et aucun autre code) masque puis affiche Feuil3 !!!

A+

Mais si, je pense avoir bien testé.
Ce n'est pas la Feuil3 qu'il faut masquer mais uniquement la Feuil1

 

[job75]

Re,

Ce n'est pas la Feuil3 qu'il faut masquer mais uniquement la Feuil1

Bah et ça :

Si Feuil3 NON visible = Feuille (Feuil1) visible

A+

 

[Usine à gaz]

OUI ok

Si Feuil3 NON visible = Feuille (Feuil1) visible
Si Feuil3 visible = Feuille (Feuil1) NON visible

C'est la Feuille1 qu'on traite visible ou non visible

 

[job75]

Il n’est pire sourd que celui qui ne veut pas entendre.

 

[Usine à gaz]

Vraiment désolé Job, je ne dois pas arriver à expliquer mon besoin ...