Listbox + nom des onglets

Version imprimable

13/09/2008, 22h57
captaine93

Listbox + nom des onglets

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

Bonsoir,

une piste,

Code:

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

bonjour,

La même chose en condensé :

Code:

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

14/09/2008, 08h37
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;)
14/09/2008, 10h37
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 :

Citation:

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 :sm:

Cordialement,

Didier
14/09/2008, 10h51
JackOuYA

Citation:

Envoyé par Ormonth

....
Les fautifs, sont au final Ormonth et JackOuYa vu qu'ils n'ont pas à répondre à n'importe quoi :sm:
...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..)

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

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
:oops:

14/09/2008, 11h29
JackOuYA

Citation:

Envoyé par captaine93

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
:oops:

Et il y as combien de feuille dans "ThisWorbook" (le classeur dans le quel tu as mis ton userform ) ?
14/09/2008, 11h32
captaine93

il y a 3 feuilles dans ThisWorkbook

Merci de ton aide
14/09/2008, 11h41
JackOuYA
3 feuilles de calcul ??

je vois pas, essai :
Code:

1 2 ListBox1.AddItem Thisworkbook.name & " :" & yaF.Name
14/09/2008, 11h45
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
14/09/2008, 11h51
JackOuYA

:nono:

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

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

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

14/09/2008, 12h11
JackOuYA
Citation:
Envoyé par 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:

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.
14/09/2008, 12h16
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:oops: