Liste déroulante du noms des onglets

[Kernoz]

Bonjour à tous,

J'aimerais réaliser un code qui vient insérer dans une cellule donnée une liste déroulante avec la liste des différents onglets ( sauf les 3 premiers ).

Ceci afin d'utiliser le nom d'onglet choisi en string pour completer un autre code.

D'avance merci pour vos réponses, un petit exemple en pièce jointe !

A+

 

[BOISGONTIER]

Re : Liste déroulante du noms des onglets

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = "$B$6" Then
   temp = ""
   For i = 3 To Sheets.Count
     temp = temp & Sheets(i).Name & ","
   Next i
   Target.Validation.Delete
   Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
 End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$6" Then
   Sheets(CStr(Target.Value)).Select
 End If
End Sub

JB

 

[Kernoz]

Re : Liste déroulante du noms des onglets

Merci BOISGONTIER pour ta réponse 🙂

Le code fonctionne mais je vais chipotter un peu car il marche trop bien 😉

Je voudrais juste une petite "sub", activable avec un bouton, qui met dans ma cellule la liste déroulante des onglets voulus. Mes connaissances étant encore trop limitées, je n'arrive pas à adapter ton code au reste de ma macro 😛

si tu peux élager un peu ton code pour le mettre à mon niveau ^^

Merci d'avance 🙂

 

[Kernoz]

Re : Liste déroulante du noms des onglets

Re,

Bon j'ai lutté mais j'ai enfin compris ton code et il est très bien 🙂 merci beaucoup !