Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rajout d'onglet dans une liste déroulante

  • Initiateur de la discussion Initiateur de la discussion hurikain
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

H

hurikain

Guest
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
 

Pièces jointes

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
 
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.....
 

Pièces jointes

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
 

Pièces jointes

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…