Utilisation de menu déroulant

Utilisation de menu déroulant - VB/VBA/VBS - Programmation

Marsh Posté le 13-02-2006 à 09:54:53    

Tout d'abord je tiens à dire que j'ai cherché dans les anciens topic mais je n'ai pas réussi à faire fonctionner
 
Je fais un programme pour créer des devis et je posède une base de données des désignations de produits et des prix associés, j'ai donc créé un ComboBox nommé ComboBox1, et je veut utiliser les données de la feuille active dans la colonne A et renvoyer la valeur selectionnée dans la cellule B1 par exemple.  
 
J'ai utilisé un topic qui parlait de cela mais il me créait une image de liste déroulante avec un ascenceur mais cette image était figée.  
 
Donc si quelqu'un pourait m'aider ca serait super !  
 
Issim

Reply

Marsh Posté le 13-02-2006 à 09:54:53   

Reply

Marsh Posté le 14-02-2006 à 11:12:24    

Personne ne peut m'aider ?? SVP je déprime à chercher sans que ca marche !!  
 
Merci d'avance  
 
Issim

Reply

Marsh Posté le 15-02-2006 à 07:20:08    

Bonjour,
 
La question manque de précision, raison de l'absence de réponse.
S'il s'agit de remplir une ComboBox sur une Form à partir d'une feuille de calcul Excel, voilà ce qui pourrait convenir :
 
''Créer un ComboBox1
'Mettre columnCount à 2
'Définir une largeur de colonne : ColumnWidths à 40 pt;40 pt par exemple
 
Table = "Feuil1"
For i = 1 To 10
ComboBox1.AddItem Sheets(Table).Cells(i, 1)
ComboBox1.List(i - 1, 1) = Sheets(Table).Cells(i, 2)
Next i
 
Cordialement
 
Epéna

Reply

Marsh Posté le 15-02-2006 à 11:12:50    

En effet j'ai des information que je ne veut pas avoir à saisir tout le temps et donc je pense que ce que tu me propose pourait marcher ! Par contre juste pour comprendre ce que tu m'a proposé dans ce script tu met dix lignes différentes dans ta liste issue des cellules A1 à A10 mais par contre je n'ai pas pigé à quoi sert l'avant dernière ligne avec le i-1 !  
 
Merci beaucoup  
 
Issim

Reply

Marsh Posté le 15-02-2006 à 11:45:04    

Les lignes de cellules Excel sont numérotées de 1 à N et les indices de la propriété .List de 0 à N-1


Message édité par tegu le 15-02-2006 à 11:45:26
Reply

Sujets relatifs:

Leave a Replay

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