Liste déroulante

[zeltron24]

Bonjour à vous tous,

Me revoici pour soliciter une fois encore vos connaissances
inépuisables sur Excel.
Voici la formule d'une liste déroulante dans un USF
Je souhaiterai savoir si par l'intermédiaire d'une liste de nom (Insertion/Nom/Définir)avec possibilité d'ajout je pourrais "Alimenterr" ma liste déroulante dans mon USF

Sub UserForm_Initialize()

With ListeChoix
.AddItem "Heures par semaine."
.AddItem "Les jours fériés"
.AddItem "Les absences"
.AddItem "Le Salaire"
.AddItem "Le graphique des heures"
.AddItem "Choisir un mois"
End With
End Sub

D'avance merci pour votre aide
cordialement
Zeltron24

 

[Pierrot93]

Re : Liste déroulante

Bonsoir Zeltron,

peut être ainsi :

Private Sub UserForm_Initialize()
ListeChoix.List = Range("MaListeDeNoms").Value
End Sub

bonne soirée
@+

 

[zeltron24]

Re : Liste déroulante

Je ne sais pas ce qui c'est passé mais la formule m'a planté Excel

En regardant dans le forum je suis tombé sur un sujet de liste déroulante dont le principe est de créé une liste dans la feuille et qui lorsque l'on clique sur un nom alimente une cellule.
Je vais essayer de comprendre le principe et l'intégrer dans mon classeur.

 

[Pierrot93]

Re : Liste déroulante

Re,

comprends pas trop, fonctionne bien chez moi (Excel 2003), la combo ou listbox est bien alimentée par le contenu d'une plage nommée, avec ou sans formule

 

[zeltron24]

Re : Liste déroulante

Pour etre plus clair

Car je n'y arrive pas je plante Excel

J'ai 18 Feuilles dans un classeur et dans chaque feuille
Je souhaiterai placer une liste déoulante réunissant le nom des 18 feuilles répertorié dans une 19ème feuille sous le nom de "ListAns"
En cliqant sur le nom de la feuille de la liste déroulante je souhaite afficher la dite feuille.
Merci d'avance pour votre aide.

 

[Pierrot93]

Re : Liste déroulante

Re

mets peut être en pièce jointe un petit fichier avec seulement 3 ou 4 feuilles, montrant bien le problème posé... parce que là, en l'état nous risquons de tourner en rond longtemps...

@+

 

[zeltron24]

Re : Liste déroulante

J'étais un peu long à répondre mais voici un extrait du fichier

Merci

 

[Pierrot93]

Re : Liste déroulante

Bonjour Zeltron,

dans ton premier post, tu parlais d'USF, je n'en vois pas dans le fichier que tu nous as donné... D'autre part je ne vois pas de problème sur l'alimentation via ta plage nommée... Sinon regarde le code ci-dessous, pour activer la feuille concernée, à placer dans le module de la feuille où se trouve le "combo" :

Option Explicit
Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> -1 Then Sheets(ComboBox1.Value).Activate
End Sub

bonne journée
@+

 

[zeltron24]

Re : Liste déroulante

Bonjour Pierrot93,

Comme je le dis dans mon post de 18h04 hier, je suis tombé sur un sujet qui ressemblé à celui que j'ai besoin.
Comme celui ci ne traitait pas de USf j'ai essayé de "l'amménager" mais je me suis planté.

Voici ce à quoi je suis arrivé à maintenant mais il doit y avoir plus court
Cordialement
Guy

 

[Pierrot93]

Re : Liste déroulante

Re,

regarde les codes ci-dessous, j'ai mis 2 solutions, une avec le nom complet de la feuille, l'autre avec les 4 derniers caractères du nom...

code du "combobox" :

Private Sub ListeChoix_Click()
'si tu affiche le nom complet de la feuille
'If ListeChoix.ListIndex <> -1 Then Sheets(ListeChoix.Value).Activate
'si tu affiche les 4 derniers caractères du nom de la feuille
If ListeChoix.ListIndex <> -1 Then Sheets("CM " & ListeChoix.Value).Activate
End Sub

à l'initialisation de l'usf :

Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
    'pour le nom complet de la feuille
    'If ws.Name <> "Récap" Then ListeChoix.AddItem ws.Name
    'ou pour les 4 derniers caractères
    If ws.Name <> "Récap" Then ListeChoix.AddItem Right(ws.Name, 4)
Next ws
End Sub

bon après midi
@+

 

[zeltron24]

Re : Liste déroulante

Merci Pierrot93

Je viens de rentrer et bonne surprise tu me donnes la solution à mon problème.
Je mets cela en service de suite.

Encore une fois Merci
Cordialement
zeltron24