Discussion :

[captaine93]

Bonsoir!
Je cherche à créer une listebox alimentée par le nom des onglets d'un classeur...
Pourriez-vous m'aiguiller ?
Merci

[Didier Gonard]

Bonsoir,

une piste,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim tabNomFeuilles As Variant
Dim I As Integer
Dim J As Integer
 
J = ThisWorkbook.Sheets.Count
ReDim tabNomFeuilles(J)
For I = 1 To J
    tabNomFeuilles(I) = Sheets(I).Name
Next I
ListBox1.List = tabNomFeuilles
End Sub

bonne nuit,

Didier

[JackOuYA]

bonjour,

La même chose en condensé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
 Dim yaF
 ListBox1.Clear
 For Each yaF In ThisWorkbook.Sheets
   ListBox1.AddItem yaF.Name
 Next
End Su

[captaine93]

salut !
merci de vos réponses...les 2 solutions ne marchent pas chez moi...Peut on utiliser une listbox dans un classeur et non un userform?
En fait je demandais à l'utilisateur de remplir à la main le nom de la feuille dans une inputbox que je voudrais remplacer par une boite (listbox?)contenant le nom des onglets existants
Merci à tous

[Didier Gonard]

Bonjour,

En fait, on devrait rajouter dans les « Règles du club » un truc du genre : « on n’a souvent que les réponses qu’on mérite »

Rappel :

3.3. Message clair et précis
Quand vous posez une question, soyez aussi précis que possible : quel système et/ou quel outil vous avez, quelle version, quelle édition, etc. Que souhaitez vous faire au juste ? Si votre question n'est pas suffisamment précise, personne ne pourra vous aider.

De même, lorsque vous postez une réponse, essayez de la commenter de manière à la rendre facilement compréhensible par tous.

Évitez aussi de poster un lien seul sans aucun commentaire. D'une part, il est préférable de donner une réponse sur le forum plutôt que de renvoyer vers un autre site qui renvoie potentiellement vers encore un autre, etc. D'autre part, les liens conduisent le plus souvent à une documentation complexe et fastidieuse à lire même pour celui qui cherche une réponse. De plus, la plupart des liens deviennent "mort" après moins d'un an, ce qui rend la solution indisponible pour quiconque ferait une recherche sur le forum par la suite.

Bon on pourrait dire aussi à Ormonth et JackOuYa que le deuxième paragraphe s’applique aussi

Quoiqu’il en soit, tu as provoqué 2 réponses cohérentes faites par des gens qui ont, bénévolement, un WE, passé du temps à les construire, pour dire "ça ne vas pas" car ils n’ont pas su deviner ce que tu n’avais pas dit et que tu ne dis toujours pas car selon que ta manœuvre vise à désigner une feuille existante ou à en rajouter une les réponses vont différer et on ne sera pas plus avancés…

Les fautifs, sont au final Ormonth et JackOuYa vu qu'ils n'ont pas à répondre à n'importe quoi

Cordialement,

Didier

[JackOuYA]

....
Les fautifs, sont au final Ormonth et JackOuYa vu qu'ils n'ont pas à répondre à n'importe quoi
...r

oui mais à ce moment la tu est obligé de poser plus de questions que l'auteur de la discussion ..

par exemple il nous à toujours pas dit de qu'elle boite à outils il avait sorti sa list box .. et qu'el était son nom (à la listbox..)

[captaine93]

ou lala...milles excuses!
J'étais en train de reconstruire le projet pour le faire dans un userform...
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
 Dim yaF
 ListBox1.Clear
 For Each yaF In ThisWorkbook.Sheets
   ListBox1.AddItem yaF.Name
 Next
 
End Sub
 
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
 
Private Sub ListBox1_Click()
 
 
 End Sub

Le probleme est qu'il n'y a que feuil1 qui apparaisse dans la listbox
Merci et désolé pour les imprécisions de départ

[JackOuYA]

ou lala...
Le probleme est qu'il n'y a que feuil1 qui apparaisse dans la listbox
Merci et désolé pour les imprécisions de départ

Et il y as combien de feuille dans "ThisWorbook" (le classeur dans le quel tu as mis ton userform ) ?

[captaine93]

il y a 3 feuilles dans ThisWorkbook

Merci de ton aide

[JackOuYA]

3 feuilles de calcul ??

je vois pas, essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   ListBox1.AddItem Thisworkbook.name & " :" & yaF.Name

[captaine93]

ca repond "perso.xls:Feuil1" et c est tout...
ThisWorkbook est une feuille classique avec 3 onglets "feuil1", "feuil2"...
mais je ne veux pas faire addItem manuellement car ThisWorkbook pourrait etre un autre classeur
Merci

[JackOuYA]

ThisWorkbook : c'est TOUJOURS le classeur dans lequel tu met ton code
ici : perso.xls .. c'est bien lui qui à trois feuilles ?

[ouskel'n'or]

Ce que veut dire Jackouya (qui ne m'en voudra pas de préciser...) c'est que tu dois nommer le classeur concerné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For each LaFeuille in Workbooks("Nom du classeur en question").Sheets '.count corrigé grâce à Oeil-de-Linx allias Jackouyal'oeil
     'gnagnagna Additem blabla

[JackOuYA]

Ce que veut dire Jackouya (qui ne m'en voudra pas de préciser...) c'est que tu dois nommer le classeur concerné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For each LaFeuille in Workbooks("Nom du classeur en question").Sheets.count
     'gnagnagna Additem blabla

oui sans le "count" ..


où bien si tu veu travailler sur le classeur actif (celui au premier plan) .. tu peu mettre ActiveWorkbook à la place de thisWorkbook.

[captaine93]

Ok, merci à tous de m'avoir aidé...
En fait, j'avais enregistré mon userform dans le classeur de macro perso et non dans cette feuille...Désolé mais je ne suis pas famillier avec les userform...
En tout cas un grand merci à vous tous qui faites vivre ce forum et répondez à des gens pas toujours très précis