XL 2013 Worksheet_Change - liste déroulante et aller sur un onglet

[GADENSEB]

Hello Le forum........

Je bosse sur un truc tt simple. mai je coince à un endroit

Dans l'onglet INTERFACE en J10, j'ai une liste déroulante de tous mes onglets.

par défaut tous sont masqués à l'ouverture du fichier

Le but :
Cliquer sur la liste pour choisir l'onglet voulu
L'onglet devient visible et on va dessus
je maintiens l'onglet INTERFACE visible aussi.

Du coup j'ai ce code

Dans un module je déclare ma variable pulique :

Public ChoixOnglet As Worksheet

Dans l'onglet INTERFACE :

Private Sub Worksheet_Change(ByVal Target As Range)

With shI
'If Intersect(Range("J10"), Target) Is Nothing Then Exit Sub

If Target.Address = Range("J10").Address Then
' Sheets(Target.Value).Select
ChoixOnglet = Target.Value
Call AfficheChoixOnglet
End If
End With
End Sub

Enfin ma macro d'affichage de l'onglet

Sub AfficheChoixOnglet()
Dim cptr As Byte

For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name = ChoixOnglet Then
        Sheets(cptr).Visible = 1
        ChoixOnglet.Select
    End If
Next
For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name = "INTERFACE" Then
        Sheets(cptr).Visible = 1
        ChoixOnglet.Select
    End If
Next
End Sub

J'ai ce message d'erreur

QQn aurait une idée ?

Merci à vous

Bonne Journée

 

[pierrejean]

Bonjour GADENSEB

A tester
Remplacer

ChoixOnglet = Target.Value

par

set ChoixOnglet=sheets(Target.Value)

 

[GADENSEB]

hello pierrejean
Bonne idée
Mm message d'erreur.

cela vient du parametrage
Public ChoixOnglet As Worksheet ?

 

[pierrejean]

Re
Quelle est la ligne surlignée ?

 

[GADENSEB]

If Sheets(cptr).Name = ChoixOnglet Then

Pour préciion, la macro est dans un module.
je l'ai placé dans la feuille INTERFACE mai cela ne change rien

Sub AfficheChoixOnglet()
Dim cptr As Byte

For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name = ChoixOnglet Then
        Sheets(cptr).Visible = 1
        ChoixOnglet.Select
    End If
Next
For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name = "INTERFACE" Then
        Sheets(cptr).Visible = 1
        ChoixOnglet.Select
    End If
Next
End Sub

 

[pierrejean]

Re
Toujours a tester (Un fichier est tout de même plus pratique pour debugger !!!!)

 If Sheets(cptr).Name = ChoixOnglet.Name Then

 

[GADENSEB]

Re !
Mm message d'erreur
Bcp de données perso dans mon fichier.... un peut chaud de faire un fichier exemple. ...

J’essaye en fin de matinée de faire ce fichier exemple
Merci de ton aide
Seb

 

[pierrejean]

Re

Voila comment j'aurais traité le problème

 

[GADENSEB]

tt simplement parfait thanks

 

[ChTi160]

Bonsoir GADENSEB
Bonsoir pierrejean , Le Fil , Le Forum
Juste pour pouvoir vous saluer Lol
une adaptation du Code (Fonctionnel de pierrejean)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$B$1" Then
  For n = 1 To Sheets.Count
   With Sheets(n)
         .Visible = IIf(.Name = "INTERFACE" Or .Name = Target.Value, True, False)
      If .Name = Target.Value Then .Select
   End With
  Next n
 End If
Application.ScreenUpdating = True
End Sub

Bonne fin de Soirée
Amicalement
Jean marie

 

[GADENSEB]

Hello Ce lien n'existe plus
Thanks !!
Code Sympa aussi ;-)

 

[Si...]

Bonsoir

On n’est jamais trop prudent : si la liste de validation disparait ... oups ! 😵

Voici 2 exemples, le premier avec une vraie liste déroulante (pas de validation) et le second, déjà proposé, plus complet.

 

[GADENSEB]

Hello Si .....
Excellent tes codes !!
thanks