Ouverture d'un onglet à l'aide d'une liste déroulante

[chris59_59]

Bonjour à tous,

Je souhaite faire un dépouillement d'enquête sur Excel, ainsi dans une de mes colonnes, j'ai insérer une liste déroulante de choix me permettant de sélectionner ma réponse.
Or l'une de ces réponses est "Autres" ainsi je souhaiterais que lorsque je sélectionne cette réponse Excel m'ouvre un nouvel onglet afin que je puisse saisir les détails de cette réponse.

Merci d'avance de votre réponse.

 

[Paritec]

Re : Ouverture d'un onglet à l'aide d'une liste déroulante

Bonsoir Chris 59,
je ne trouve pas la liste dans le fichier que tu as oublié de joindre!!!
Pourrais-tu le renvoyer avec des explications et indications dedans
merci
a+
Papou 🙂

 

[phlaurent55]

Re : Ouverture d'un onglet à l'aide d'une liste déroulante

Bonjour à tous, ......... et bienvenue à Chris sur le forum

voir un début de réponse en pièce jointe

à+
Philippe

 

[chris59_59]

Re : Ouverture d'un onglet à l'aide d'une liste déroulante

Bonjour à tous,

Merci pour vos réponses, et merci à Philippe c'est exactement ce que je souhaitais. C'est parfait 🙂
Cependant, j'aimerais savoir comment vous avez fait.
Merci d'avance.

 

[phlaurent55]

Re : Ouverture d'un onglet à l'aide d'une liste déroulante

Re,

voici le code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3")) Is Nothing Then
If Target.Value = "Autres" Then
Sheets(3).Select
End If
End If
End Sub

la première ligne nous indique qu'il s'agit d'une macro évènementielle ( lorsqu'il y a un changement sur la feuille) (Private Sub Worksheet_Change...........)

la seconde ligne teste si le changement se fait sur la cellule "D3"

Ensuite, si la valeur de cette cellule "D3" est égale à "Autres", la troisième feuille est sélectionnée (celle qui se nomme "Autres")

En résumé, si après changement de la cellule "D3", son contenu est différent de "Autres", il ne se passera rien

le premier "End If" cloture le test du contenu de la cellule "D3"

le second "End If" cloture le test, à savoir si le changement a bien eu lieu sur la cellule "D3"

enfin le "End Sub" cloture la procédure

en espérant avoir répondu à ta question

à+
Philippe