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 !