[VBA-EXCEL 2003] recuperer le nom de tous les feuilles dans une listbx

Marsh Posté le 10-11-2005 à 10:14:34

Bonjour,

je voudrais recuperer tous les noms des feuilles dans une listbox pour pouvoir les supprimer ...

Marsh Posté le 10-11-2005 à 10:14:34

Marsh Posté le 10-11-2005 à 10:38:12

Code :

z = Sheets.Count
For a = 1 To z
With Sheets(a)
Range("A65536" ).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Sheets(a).Name
ActiveCell.Offset(0, 1).Select

mais je voudrais les envoyer directement ds la listbox

Marsh Posté le 10-11-2005 à 11:18:55

Salut sakuraba,

Pour ne pas écrire dans une feuille et utiliser des série de données, il faut utiliser des Array. Pour ce don tu as besoin, ça donnerait ça :

Code :

Dim i
'ta variable d'array
Dim ListeFeuil() As Variant
ReDim Preserve ListeFeuil(Worksheets.Count - 1) '(-1) car les arrays comencencent à 0 et pas 1
'remplir l'array
For i = 0 To (Worksheets.Count - 1)
ListeFeuil(i) = Sheets(i + 1).Name
Next i
'affecter l'array sur la listbox
ListBox1.List() = ListeFeuil

à placer dans userform_initialiaze par exemple

bon courage

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Marsh Posté le 10-11-2005 à 11:39:24

et comment on recupere la value de la listbox ?

Message cité 1 fois

Marsh Posté le 10-11-2005 à 12:03:48

sakuraba a écrit :

et comment on recupere la value de la listbox ?

avec la proprièté value

Code :

ListBox1.Value

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Marsh Posté le 10-11-2005 à 12:06:48

oui merci

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *