GADENSEB
XLDnaute Impliqué
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 :
Dans l'onglet INTERFACE :
Enfin ma macro d'affichage de l'onglet
J'ai ce message d'erreur
QQn aurait une idée ?
Merci à vous
Bonne Journée
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 :
Code:
Public ChoixOnglet As Worksheet
Dans l'onglet INTERFACE :
Code:
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
Code:
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