Activation des onglets cachés

Met là au frais et tu la bois la en pensant à moi

En Belgique ce serait au moins une bonne bière spéciale!

Tu l'as fait, de rien.
Je passe le statut en résolu

Fantastique, mon outil est maintenant ultra pro! Comment te remercier Mike?

Re,

rajoute la partie en gras deans ton code avec le nom exact de ta feuille à laisser visible dans le code j'ai mis Feuil5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ongl As Byte
If Not Intersect(Selection, Range("B6:B8")) Is Nothing Then
For Ongl = 1 To ThisWorkbook.Sheets.Count
If Sheets(Ongl).Name <> "Outils P9" And Sheets(Ongl).Name <> "Feuil5" Then
Sheets(Ongl).Visible = 0
End If
Next
If Target > 0 Then Worksheets(Target.Value).Visible = True
Worksheets(Target.Value).Activate
End If
End Sub

Super ça marche. Bon ... j'ai un tout tout dernier problème ... Il faut que mes 2 1ers onglets soient eux tjs affichés. Possible?

Re,

tu as une erreur sur cette ligne
If Not Intersect(Selection, Range ("'Outils P9'!B6:B86") Is Nothing Then
remplace par
If Not Intersect(Selection, Range ("Outils P9") Is Nothing Then

Tt gd merci, Voilà tout marche nickel à part ce petit détail: j'ai une autre page que Accueil ou Outil P9 où la même fonctionnalité doit fonctionner.

J'ai donc repris ton code et j'ai changé le range (je fais référence à celui déjà défini) et le nom de la feuille ... Mais ca bug!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ongl As Byte
If Not Intersect(Selection, Range ("'Outils P9'!B6:B86") Is Nothing Then
For Ongl = 1 To ThisWorkbook.Sheets.Count
If Sheets(Ongl).Name <> "Définition Offre" Then
Sheets(Ongl).Visible = 0
End If
Next
If Target > 0 Then Worksheets(Target.Value).Visible = True
Worksheets(Target.Value).Activate
End If
End Sub

Re,

teste ce fichier, j'ai supprimé les liens hypertextes
par contre pour que les feuilles s'ouvrent il faut que le nom de l'onglet et le contenu de la cellule soit rigoureusement identique

https://www.cjoint.com/?CDjotWYfSwE

J'ai adapté ton code pour mon fichier sample ci-dessous (mot de passe: CAP). Cela ne marche pas car plutôt qu'une seule target cell (H5) j'ai une colonne entière (B). Possible?

http://cjoint.com/13av/CDjn0IE0z75.htm

Excuse exact, voila

https://www.cjoint.com/?CDjnLH12coe

Il manque ton lien Mike

Re,

Un exemple avec le lien ci dessous lien

Feuille Accueil colonne A en jaune j'ai créé une liste avec les noms de tes feuilles que j'ai nommé simplement list
cette plage jaune peut être sur une feuille différente éventuellement masquée tout comme la colonne A actuelle d'ailleurs
en H5 j'ai créé la liste de validation avec la formule =list

et j'ai copié le code que je t'ai donné hier soir en modifiant simplement l'adresse de la cellule cible C3 par la nouvelle H5

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ongl As Byte
If Not Intersect(Target, Range("H5")) Is Nothing Then
For Ongl = 1 To ThisWorkbook.Sheets.Count
If Sheets(Ongl).Name <> "Accueil" Then
Sheets(Ongl).Visible = 0
End If
Next
End If
If [H5] > 0 Then Worksheets([H5].Value).Visible = True
Worksheets([H5].Value).Activate
End Sub

Si tu utilises le double clic pour sélectionner ton onglet il faut remplacer
Private Sub Worksheet_Change(ByVal Target As Range)
par
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

sinon le double clic aura pour effet de sélectionner l'onglet affiché en H5 ou il faut ajouter un bout de code pour gérer le double clic et rester sur la feuille Accueil par exemple

Merci Mike.

Encore 3 (petites j'espère) choses:

1) Pour la liste de validation, je créé 'list' (ok) et puis je l'intègre dans ton code mais comment?
2) Ma cellule cible peut être n'importe où sur la colonne B, donc j'imagine qu'il suffit de remplacer C3 par B dans ton code.
3) En utilisant ton code tel qu'il est actuellement, si je double click sur une cellule (ex N27) dans l'onglet accueil, je tombe direct sur outil1, étrange non?

Bàt, Gilles

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ongl As Byte
If Not Intersect(Target, Range("C3")) Is Nothing Then
For Ongl = 1 To ThisWorkbook.Sheets.Count
If Sheets(Ongl).Name <> "Accueil" Then
Sheets(Ongl).Visible = 0
End If
Next
End If
If [C3] > 0 Then Worksheets([C3].Value).Visible = True
Worksheets([C3].Value).Activate
End Sub

Salut,

Je rentre à l'instant, peu importe la liste, il suffit de créer une liste de validation avec tous les noms des onglets. Pour cela il suffit de saisir le nom exact de chaque onglet dans une colonne, la plage contenant cette liste peut être nommée exemple list
la formule pour afficher ta liste de validation est =list

ensuite le code reste inchangé si ta cellule cible reste la C3

Re-bonjour Mike,

En fait dans mon 'vrai' fichier, j'ai 85 lignes remplies d'hyperliens en colonne B; cela fait bcp pour passer via des listes de valeur. Qui plus est, les cellules portent des noms très différents les unes des autres (pas outil1, outil2, etc).

Est-ce que le code peut être adapté en fonction? J'imagine que je dois changer le range - target ou qque chose du genre et que le reste peut fonctionner?

Belle journée, Gilles

Je ne sais pas si tu as vu j'ai rajouté une ligne en fin de code pour activer la feuille en question

Merci bcp Mike cela fonctionne; je dois faire qques adaptations pour le vrai fichier mais je crois pouvoir m'en sortir, et au pire, Une période d'échec est un moment rêvé pour semer les graines du savoir. Un tt grand merci encore!

Re,

ah dans la précipitation j'ai oublié de mettre une ligne pour activer la feuille

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ongl As Byte
If Not Intersect(Target, Range("C3")) Is Nothing Then
For Ongl = 1 To ThisWorkbook.Sheets.Count
If Sheets(Ongl).Name <> "Accueil" Then
Sheets(Ongl).Visible = 0
End If
Next
End If
If [C3] > 0 Then Worksheets([C3].Value).Visible = True
Worksheets([C3].Value).Activate
End Sub

Re,

Alors en C3 tu crée une liste de validation avec les noms de tes feuilles Onglet1;Onglet2 etc ...

fait un clic droit sur l'onglet de ta feuille Accueil et colle ce code. reviens sur ta feuille Accueil t fait joujou avec ta liste de validation en C3

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ongl As Byte
If Not Intersect(Target, Range("C3")) Is Nothing Then
For Ongl = 1 To ThisWorkbook.Sheets.Count
If Sheets(Ongl).Name <> "Accueil" Then
Sheets(Ongl).Visible = 0
End If
Next
End If
If [C3] > 0 Then Worksheets([C3].Value).Visible = True
End Sub

J'attends un dizaine de minutes avant de fermer mon ordi
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.