Création d'une liste déroulante pour un fichier Excel en VBA

Création d'une liste déroulante pour un fichier Excel en VBA - VB/VBA/VBS - Programmation

Marsh Posté le 29-07-2004 à 11:44:22    

Lu a tous,
Je souhaite créer une liste déroulante dans un fichier Excel a l'aide d'un script vb. Les données a mettre dans cette liste seraient dans un tableau (ou un autre fichier Excel).
J'ai fait un truc avec mes donnees dans un fichier Excel mais ca marche vraiment pas et la je craque. :cry:  
 

Code :
  1. Voici le code :
  2. 'mise en place de la configuration pour le traitement des données
  3. local_workbook.names.Add Name:="liste", RefersTo:=feuille.Range("B3:B9" )
  4. 'le nom va etre liste et les donnees sont dans la feuille de la cellule B3 a B9.
  6. plus loin, lorsque je crée un fichier Excel, voici le code extrait d'une macro générée a l'aide d'Excel :
  7. local_feu1.Range("A1" ).Select
  8. With Selection.Validation
  9. .Delete
  10. .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  11.   xlBetween, Formula1:="=liste"
  12. .IgnoreBlank = True
  13. .InCellDropdown = True
  14. .InputTitle = ""
  15. .ErrorTitle = ""
  16. .InputMessage = ""
  17. .ErrorMessage = ""
  18. .ShowInput = True
  19. .ShowError = True
  20. End With


 
Et la, il me crée bien une liste déroulante mais elle est vide alors que y'a bien des données dans B3:B9...

Reply

Marsh Posté le 29-07-2004 à 11:44:22   

Reply

Marsh Posté le 30-07-2004 à 15:46:36    

Ce que je ferai moi c'est :
D'abord créer une liste dans ta feuille à l'aide des outils
après je fais une boucle
for i = 3 to 9
NomDeLaListe.additem cells(i,2)
next

Reply

Marsh Posté le 03-08-2004 à 09:53:51    

Le truc, c'est que ma feuille Excel est créée par VB et non par un utilisateur. Et je ne peut faire de manip sur la feuille avant la premiere ouverture. J'automatise le plus de taches possible.

Reply

Sujets relatifs:

Leave a Replay

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