liste de choix

liste de choix - VB/VBA/VBS - Programmation

Marsh Posté le 02-11-2005 à 03:03:17    

salut
en fait je ne suis guerre programmeur, j'ai besoin de votre aide sur un ptit souci
j'ai une liste de villes sur excel est je voudrais créer une listbox qui comprendra la liste de villes et qui permettera en choisissant une liste d'alimenter une cellule par le nom de la ville choisie
merci de votre aide

Reply

Marsh Posté le 02-11-2005 à 03:03:17   

Reply

Marsh Posté le 03-11-2005 à 13:08:32    

chartist a écrit :

salut
en fait je ne suis guerre programmeur, j'ai besoin de votre aide sur un ptit souci
j'ai une liste de villes sur excel est je voudrais créer une listbox qui comprendra la liste de villes et qui permettera en choisissant une liste d'alimenter une cellule par le nom de la ville choisie
merci de votre aide


 
Voila qui doit aider:

Code :
  1. Dim oo As OLEObject
  2. Sub ListBoxCreate()
  3.     ActiveWorkbook.Sheets("Sheet1" ).OLEObjects.Add(ClassType:="Forms.ListBox.1", Width:=100, Height:=100, Left:=50, Top:=50).Select
  4.     On Error Resume Next
  5.     Set oo = Worksheets("sheet1" ).OLEObjects(1)
  6.     oo.LinkedCell = "D1"
  7.     oo.ListFillRange = "$A:$A"
  8. End Sub
  9. Sub ListBoxDeletee()
  10.     On Error Resume Next
  11.     Set oo = Worksheets("sheet1" ).OLEObjects(1)
  12.     oo.Delete
  13. End Sub


 
Le résultat se trouvera dans D1 (linkedcell)
La liste des villes dans la colonne A (listfillrange)


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
Reply

Sujets relatifs:

Leave a Replay

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