Rajout d'onglet dans une liste déroulante

[hurikain]

Bonjour,
Jiai un léger souci avec une de mes feuilles excel, et je me tourne vers vous afin d'élucider ce mystère.

En effet j'ai sur ma feuille (voir p.j.)une liste déroulante qui renvoi aux différents onglets du calsseur mais le souci c'est que si je rajoute une feuille au classuer, je n'arrive pas a rajouter un onglet à ma liste, quelqu'un pourait-il m'aider?

merci à tous

 

[BOISGONTIER]

Re : Rajout d'onglet dans une liste déroulante

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

[hurikain]

Re : Rajout d'onglet dans une liste déroulante

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

c'est parfait merci beaucoup

Bonne journée

 

[hurikain]

Re : Rajout d'onglet dans une liste déroulante

Je vous solicite encore, car j'aurai voulu savoir comment déplaver ma liste déroulante de la cellule A2 à la cellule E28 par exemple, car j'ai déplacé la liste mais celle ci ne fonctionne plus

merci de votre aide

 

[BOISGONTIER]

Re : Rajout d'onglet dans une liste déroulante

Voir PJ

JB

 

[hurikain]

Re : Rajout d'onglet dans une liste déroulante

Voir PJ

JB

merci encore, vous êtes très fort 😉

 

[CAMPEN]

Re : Rajout d'onglet dans une liste déroulante

merci encore, vous êtes très fort 😉

Salut Hurikain et à tous,

Pour mon boulot j'utilise la même macro que toi pour qu'une liste déroulante me renvoie à différents onglets. Le problème est que la macro utilise comme cible le "!". Je suis donc obligé dans ma liste (comme toi d'ailleurs) de terminer le nom par "!A1".
Y a t-il un moyen, une actuce pour éviter cela, sans pour autant altérer le fonctionnement de la macro ?

Merci de votre aide. En PJ le fichier que j'utilise.....

 

[BOISGONTIER]

Re : Rajout d'onglet dans une liste déroulante

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$28" Then
f = CStr(Target.Value)
Application.Goto Reference:=Worksheets(f).Range("A1")
End If
End Sub

JB

 

[CAMPEN]

Re : Rajout d'onglet dans une liste déroulante

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$28" Then
f = CStr(Target.Value)
Application.Goto Reference:=Worksheets(f).Range("A1")
End If
End Sub

JB

Merci beaucoup,
J'étais dessus depuis un bout de temps. J'ai une épine du pied qui s'en va !
Bonne journée.