Liste de validation pour feuille de mon classeur

[petitclaude]

Bonjour à tous,

J’aimerais faire soit avec une liste de validation, de formulaire ou sinon avec un combobox

Intégrer certains noms de mes feuilles de mon classeur.

Ainsi en cliquant sur le nom d’une feuille, j’irais directement à celle ci.

Merci de votre aide et bonne journée à tous

 

[Le rital]

Bonjour le forum,

Voici un classeur que j'ai trouvé dans ma base de données

Il devrait répondre à tes attente

Il prend en compte les nouvelles feuilles

Cordialement

Le rital

 

[petitclaude]

Bonjour le Rital

Ce n'est pas exactement ce que voulait, j'aurais préférer une liste déroulante.
Si tu a ça dans tes archives.

Mais je garde quand même ton fichier,il peut servir.

A++petitclaude

 

[Le rital]

Salut le forum,

Voici une ComboBox

Cordialement

Le rital



'créer une barre d'outils avec un bouton combo comprenant les
'feuilles du classeur

'crée la barre d'outils
Sub Sélection_feuille()
Dim i As Integer
Dim tbar As CommandBar
Dim newdd As CommandBarControl

On Error Resume Next
Set tbar = CommandBars.Add

With tbar
.Name = "Noms feuilles"
.Visible = True
End With

Set newdd = tbar.Controls.Add(msoControlComboBox)

With newdd
For i = 1 To Sheets.Count
.AddItem Sheets(i).Name
Next
.OnAction = "SelectFeuille"
.Text = Worksheets(1).Name
.Execute
End With

End Sub

'supprime la barre d'outils
Sub suppression()
On Error Resume Next
CommandBars("Noms feuilles").Delete
End Sub

'sélectionne la feuille choisie dans la liste
Sub SelectFeuille()
Worksheets(CommandBars("Noms feuilles").Controls(1).Text).Select
End Sub

 

[C@thy]

Bonjour petitclaude et le Rital, et tout le forum,

Bien, la liste déroulante, j'aime beaucoup.

pour ma part j'utilise tout simplement
Application.CommandBars("Workbook tabs").ShowPopup 300, 200

mais y'a pas de liste déroulante!!!!


Bonne journée

C@thy

 

[Jean-Marie]

Bonjour

Cathy un mot ou plutôt une image

il y a en d'autres des "Workbook tabs" ?

@+Jean-Marie

 

[C@thy]

re tout le monde et Jean-Marie,

ben j'sais pas si y'en a d'autres, mais j'utilise aussi très souvent ceci :

FileToOpen = Application.GetOpenFilename("Text Files (*.*), *.*")
ou :
FileToOpen = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")

pour ouvrir un fichier quelconque

et

fileSaveName = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") pour sauvegarder en .txt

et je trouve ça super!!!

C@thy

 

[petitclaude]

Bonjour le Rital

Peut tu me donner un peu d'explication car je ni suis pas arriver.

Merci de ta patience

A++Petitclaude

 

[Le rital]

Bonsoir le forum,

Lance la première macro "Sub Sélection_feuille()" à partir du module

Ca devrait bien se passer

Cordialement

Le rital

 

[petitclaude]

Salut le Rital

Ok pour moi

je te remercie de t'on aide.

Je te souhaite un bon réveillon et une bonne année

A++Petitclaude




Bonne année aussi à tous le Forum...