Bonjour au forum,
Peux t on à partir d'un choix (clique) effectué à l'aide d'une liste
déroulante accéder directement à une feuille? Je ne vois pas trop comment
faire.
merci pour vos conseils.
Agréable journée.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?eglehfyo0T
Un menu (en A1) permet de choisir un onglet
-Clic-Droit onglet/Visualiser Code -Choisir WorkSheet dans menu déroulant -Choisir événement Activate dans menu déroulant
Private Sub Worksheet_Activate() temp = "" For i = 1 To Sheets.Count temp = temp & Sheets(i).Name & "," Next i [A1].Validation.Modify xlValidateList, Formula1:=Left(temp, Len(temp) - 1) End Sub
-Clic-Droit onglet/Visualiser Code -Choisir WorkSheet dans menu déroulant -Choisir événement Change dans menu déroulant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Count = 1 Then Application.EnableEvents = False Sheets(Target.Value).Activate Application.EnableEvents = True End If End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?eglehfyo0T
Un menu (en A1) permet de choisir un onglet
-Clic-Droit onglet/Visualiser Code
-Choisir WorkSheet dans menu déroulant
-Choisir événement Activate dans menu déroulant
Private Sub Worksheet_Activate()
temp = ""
For i = 1 To Sheets.Count
temp = temp & Sheets(i).Name & ","
Next i
[A1].Validation.Modify xlValidateList, Formula1:=Left(temp, Len(temp)
- 1)
End Sub
-Clic-Droit onglet/Visualiser Code
-Choisir WorkSheet dans menu déroulant
-Choisir événement Change dans menu déroulant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
Sheets(Target.Value).Activate
Application.EnableEvents = True
End If
End Sub
-Clic-Droit onglet/Visualiser Code -Choisir WorkSheet dans menu déroulant -Choisir événement Activate dans menu déroulant
Private Sub Worksheet_Activate() temp = "" For i = 1 To Sheets.Count temp = temp & Sheets(i).Name & "," Next i [A1].Validation.Modify xlValidateList, Formula1:=Left(temp, Len(temp) - 1) End Sub
-Clic-Droit onglet/Visualiser Code -Choisir WorkSheet dans menu déroulant -Choisir événement Change dans menu déroulant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Count = 1 Then Application.EnableEvents = False Sheets(Target.Value).Activate Application.EnableEvents = True End If End Sub
Cordialement JB
Norvi
Bonjour,
Je propose une solution en VBA : Dans le code de la feuille concernée :
Je suppose que ta liste est dans la cellule A1 (tu peux le changer) et que les nom dans ta liste sont les nom de tes feuilles.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets(Target.Value).Activate End If End Sub
Bonne journée
Bonjour,
Je propose une solution en VBA :
Dans le code de la feuille concernée :
Je suppose que ta liste est dans la cellule A1 (tu peux le changer) et
que les nom dans ta liste sont les nom de tes feuilles.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets(Target.Value).Activate
End If
End Sub
