Listbox et noms de feuille

[sophiejo]

Bonjour

j'ai un classeur avec plusieurs feuilles
j'ai créé un formulaire me permettant de choisir une feuille dans le classeur en question et l'envoyer par mail
mais la listbox contient les noms de feuilles(=noms des onglets) (qui ne sont pas pertinents pour un utilisateur landa) je voudrais remplacer le nom des feuilles par un intitulé plus parlant mais uniquement dans la listbox

est-ce que quelqu'un sait comment coder pour faire apparaitre dans la listbox un intitulé
qui serait lié à une feuille portant un nom différent😕

d'avance merci pour votre aide 🙂

 

[Gorfael]

Re : Listbox et noms de feuille

Salut sophiejo et le forum
Tu injectes directement dans tes valeurs dans ta listbox (soit directement, soit par l'intermédiaire d'un tableau), et ce n'est qu'au moment de l'envoi que suivant le nom sélectionné, tu lui dis d'envoyer la feuille du nom.
A+

 

[gilbert_RGI]

Re : Listbox et noms de feuille

Bonjour

concatener ce que vous voulez à votre nom de feuille

ex :

NomOnglet = ActiveWorkbook.ActiveSheet.Name & " " & "Tartempion"

 

[sophiejo]

Re : Listbox et noms de feuille

re bonjour et merci pour vos réponses

vos réponses ne correspondent pas tout à fait à ce que je souhaite faire
j'ai un classeur avec feuil1, feuil2,feuil3
et je voudrais une listbox mais au lieu d'afficher le choix feuil1, feuil2, feuil3
je voudrais une liste nom(qui correspond à la feuil1), outils (qui correspond à la feuil2) et ainsi de suite

merci d'avance si vous avez un bout de code qui pourrait marcher

bonne soirée

 

[gilbert_RGI]

Re : Listbox et noms de feuille

Bonsoir

pour alimenter une listbox

Private Sub userform_initialize()
    With ListBox1
        .AddItem "Nom"
        .AddItem "Outils"
        .AddItem "ce que tu veux"
        .AddItem "etc ..."
        .AddItem "etc ..."
        .AddItem "etc ..."
        .AddItem "etc ..."
   End With
End Sub

 

[Gorfael]

Re : Listbox et noms de feuille

Salut sophiejo et le forum
Je sais que je suis bête, mais tu ne les renommes pas directement ?
A+

 

[sophiejo]

Re : Listbox et noms de feuille

Bonjour à tous et merci pour vos réponses

j'ai renommé mes onglets avec des noms sans accents ou caractères spéciaux (PRES_DEMANDEES) par exemple

je souhaiterais que la listbox affiche les noms de feuilles présentes dans le classeur mais en remplacant leur nom simple( PRES_DEMANDEES) par le nom qui sera parlant pour l'utilisateur PRES_DEMANDEES = Pré-études demandées

pour l'instant j'ai mis ce code

Private Sub UserForm_Initialize()
Dim ws As Worksheet

For Each ws In Worksheets
If ws.Name <> ("MENU") And ws.Name <> ("Parametrages") And ws.Name <> ("mail") And ws.Name <> ("AIDE") And ws.Name <> ("SOURCE") Then
ListBox1.AddItem ws.Name
End If
Next
ListBox1.Value = ListBox1.List(0)
End Sub

Ce code fonctionne bien mais j'ai dans ma listbox le nom réel de mes onglets

je ne vois pas comment m'y prendre pour faire correspondre un nom d'onglet avec un autre intitulé et afficher celui-ci dans la listbox

merci de votre aide

 

[gilbert_RGI]

Re : Listbox et noms de feuille

Comme ceci peut-être

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name <> ("MENU") And ws.Name <> ("Parametrages") And ws.Name <> ("mail") And ws.Name <> ("AIDE") And ws.Name <> ("SOURCE") Then
            If ws.Name = ("PRES_DEMANDEES") Then nom_affiche = "Pré-études demandées"
            '.......
            ListBox1.AddItem nom_affiche
        End If
    Next
    ListBox1.Value = ListBox1.List(0)
End Sub

 

[sophiejo]

Re : Listbox et noms de feuille

Merci beaucoup Gilbert_RGI ça fonctionne nickel !!
bonne journée