Bonjour,
J'ai un classeur avec plusieurs feuilles et je voudrais faire 5 menu déroulants avec lien.
j'ai déjà créé un menu déroulant amenant au feuilles Pierre Paul Jacques; il fonctionne correctement.
Maintenant je voudrais créé 4 autres menu déroulants:
le deuxième avec les liens vers les feuilles 1 et 2
le troisième avec les liens vers les feuilles 3 et 4
le quatrième vers les feuilles 5 et 6
et le dernier vers les feuilles 7 et 8
Ca fait un petit moment que je cherche sur le forum, des explications ou des exemples, mais je n'en ai pas trouvé.
Voici le code que j'utilise pour le seul menu déroulant de mon classeur
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$8" Then
temp = [JSP].Find(what:=Target).Hyperlinks(1).SubAddress
a = Split(temp, "!")
Application.Goto Reference:=Sheets(a(0)).Range(a(1))
End If
End Sub
Merci d'avance
J'ai un classeur avec plusieurs feuilles et je voudrais faire 5 menu déroulants avec lien.
j'ai déjà créé un menu déroulant amenant au feuilles Pierre Paul Jacques; il fonctionne correctement.
Maintenant je voudrais créé 4 autres menu déroulants:
le deuxième avec les liens vers les feuilles 1 et 2
le troisième avec les liens vers les feuilles 3 et 4
le quatrième vers les feuilles 5 et 6
et le dernier vers les feuilles 7 et 8
Ca fait un petit moment que je cherche sur le forum, des explications ou des exemples, mais je n'en ai pas trouvé.
Voici le code que j'utilise pour le seul menu déroulant de mon classeur
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$8" Then
temp = [JSP].Find(what:=Target).Hyperlinks(1).SubAddress
a = Split(temp, "!")
Application.Goto Reference:=Sheets(a(0)).Range(a(1))
End If
End Sub
Merci d'avance