Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1360 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1242910
sakuraba
Posté le 10-11-2005 à 10:14:34  profilanswer
 

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

mood
Publicité
Posté le 10-11-2005 à 10:14:34  profilanswer
 

n°1242927
sakuraba
Posté le 10-11-2005 à 10:38:12  profilanswer
 

Code :
  1. z = Sheets.Count
  2. For a = 1 To z
  3. With Sheets(a)
  4. Range("A65536" ).End(xlUp).Offset(1, 0).Select
  5. ActiveCell.Value = Sheets(a).Name
  6. ActiveCell.Offset(0, 1).Select


 
mais je voudrais les envoyer directement ds la listbox

n°1242963
watashi
La démotivation : JAMAIS !
Posté le 10-11-2005 à 11:18:55  profilanswer
 

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 :
  1. Dim i
  2.      'ta variable d'array
  3.      Dim ListeFeuil() As Variant
  4.      ReDim Preserve ListeFeuil(Worksheets.Count - 1)   '(-1) car les arrays comencencent à 0 et pas 1
  5.      'remplir l'array
  6.      For i = 0 To (Worksheets.Count - 1)
  7.           ListeFeuil(i) = Sheets(i + 1).Name
  8.      Next i
  9.      'affecter l'array sur la listbox
  10.      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 ;-)
n°1242995
sakuraba
Posté le 10-11-2005 à 11:39:24  profilanswer
 

et comment on recupere la value de la listbox ?

Message cité 1 fois
n°1243037
watashi
La démotivation : JAMAIS !
Posté le 10-11-2005 à 12:03:48  profilanswer
 

sakuraba a écrit :

et comment on recupere la value de la listbox ?

avec la proprièté value :)

Code :
  1. ListBox1.Value


;)


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1243040
sakuraba
Posté le 10-11-2005 à 12:06:48  profilanswer
 

oui merci  
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[VBA] afficher un graphique dans un "form"Récupérer Adresse IP Réseau [inet_ntoa]
[VBA-EXCEL 2003][resolu] suppression des feuilles contenant le mot[bash] recuperer le resultat d'une commande SQL dans une variable bash
Récuperer une varible Javascript en php dans un formulairecompression automatique d'image dans excel
HELP : VB6 / Excel => COMPATIBILITE / DEPLOIEMENTMettre en ligne un fichier excel
Macro excel: reduction taille des images 
Plus de sujets relatifs à : [VBA-EXCEL 2003] recuperer le nom de tous les feuilles dans une listbx

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.038 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR