Problème de ComboBox ...

Problème de ComboBox ... - VB/VBA/VBS - Programmation

Marsh Posté le 27-05-2003 à 21:43:15    

J'ai un problème de recherche et tri avec 2 combobox et un tableau :
 
 
http://membres.tripod.fr/ptibat/tab_xls.jpg
 
 
Merci.

Reply

Marsh Posté le 27-05-2003 à 21:43:15   

Reply

Marsh Posté le 28-05-2003 à 09:44:04    

Voila j'ai essayé de faire qq chose en VB mais ca marche pas, y'a un trucs qui va pas .... Please Help ...
 
 

Code :
  1. Private Sub ComboBox1_Change()
  3. ComboBox1.AddItem WorksheetFunction.VLookup(Range("B27" ), Range("B3:F12" ), 2, False)
  4. ComboBox1.AddItem WorksheetFunction.VLookup(Range("B27" ), Range("B3:F12" ), 3, False)
  5. ComboBox1.AddItem WorksheetFunction.VLookup(Range("B27" ), Range("B3:F12" ), 4, False)
  6. ComboBox1.AddItem WorksheetFunction.VLookup(Range("B27" ), Range("B3:F12" ), 5, False)
  8. End Sub
  10. Private Sub ComboBox1_Initialize()
  12. ComboBox1.Clear
  14. End Sub


 
 
Merci

Reply

Marsh Posté le 28-05-2003 à 14:33:02    

:bounce:  up

Reply

Marsh Posté le 29-05-2003 à 01:54:10    

moi je ferais comme ça:
 
dans l'evenement click de ta premiere combo
dim tt()
 
' en admettant que tes données (a,b,c...) se trouve en B2:G10
numeroligne=combobox1.listindex
range("b2:g2" ).offset(0,numeroligne).select
temp=application.worksheetfunction.CountA(selection)
redim tt(temp-1)
for i=0 to ubound(tt) -1
if activecell.offset(0,i)<>"" then tt(i)=activecell.offset(0,i)
next
combobox2.list()=tt
 
 
tout ça de memoire ,j'ai pas testé.
en gros,tu selectionne la ligne voulue,tu calcule le nombre de données que tu met ds un tableau que tu affecte a ta deuxieme combo

Reply

Sujets relatifs:

Leave a Replay

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