VBA ComboBox

VBA ComboBox - VB/VBA/VBS - Programmation

Marsh Posté le 31-05-2006 à 20:18:22    

Bonjour, j'ai un problème avec mon userform sous VBA.
 
Je souhaite créer un ComboBox ayant comme RowSource : "pagex!a1:a3" (cela marche)
Nom: ComboBox1
Affichage actuel:
<vide>
TexteA1
TexteA2
TexteA3

 
mais aussi afficher en premier la valeur du "ChampX" (le nom du combobox fait la gestion de l'affichage, ne me demandez comment)  
Nom: ChampX
Affichage actuel:
ValeurChampX
 
mais lorsque je rentre le bon nom de combobox le roxsource ne fonctionne plus
 
Un de vous a une idée svp ?
Merci d'avance

Reply

Marsh Posté le 31-05-2006 à 20:18:22   

Reply

Marsh Posté le 02-06-2006 à 11:28:55    

Rien ?

Reply

Marsh Posté le 02-06-2006 à 11:40:26    

j'ai rien compris a ton problem !!!! O_O!!

Reply

Marsh Posté le 03-06-2006 à 10:46:20    

Ce n'est pas très clair, mais je crois comprendre qu'il te faudrait quelque chose dans ce genre:
 
'Donne comme valeur par défaut le nom de la combobox:
combobox1.value=combobox1.name
 
kenavo,
 
Jean-Marc


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 03-06-2006 à 12:11:54    

Actuellement la combobox porte le nom "Champ5" pour afficher la valeur de la colonne 5.
J'aimerai en plus avoir une liste de choix (page2!a1:a3).
 
Mais les deux cumulé ne marche pas.
Donc est-il possible d'ajouter des valeurs en liste déroulante sur une combobox codé pour afficher le champ d'une colonne ?

Reply

Marsh Posté le 04-06-2006 à 23:21:11    

toujours pas compris lol ?

Reply

Marsh Posté le 05-06-2006 à 01:05:17    

Non, désolé ! pour ma part, ce n'est pas très clair ! Tu veux fusionner 2 sources dans une seule combobox.rowsource ?


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 05-06-2006 à 13:18:07    

J'aimerai avoir l'affichage de la colonne5 et une RowSource.

Reply

Marsh Posté le 05-06-2006 à 19:07:45    

Salut,
Avec RowSource, AddItem ne fonctionne pas.
Fais plutôt un truc du genre
 
Private Sub UserForm_Initialize()
 
ComboBox1.AddItem ComboBox1.Name, 0
For lig = 1 To 3
    ComboBox1.AddItem Cells(lig, 1)
Next lig
ComboBox1.ListIndex = 0
 
End Sub


Message édité par e2prom le 05-06-2006 à 19:17:41
Reply

Marsh Posté le 06-06-2006 à 11:52:48    

Peux tu m'être en gros les valeur a changer stp ?  
Merci

Reply

Marsh Posté le 06-06-2006 à 11:52:48   

Reply

Marsh Posté le 07-06-2006 à 20:39:14    

Qu'est ce que tu veux  en gros ?
 
Private Sub UserForm_Initialize()  
 
Champ5.AddItem Champ5.Name, 0  
For lig = 1 To 3  
    Champ5.AddItem Sheets("page2" ).Cells(lig, 1)  
Next lig  
Champ5.ListIndex = 0  
 
End Sub
 
 

Reply

Marsh Posté le 08-06-2006 à 02:43:01    

Mince en gras. Désolé


Message édité par Miasma le 09-06-2006 à 16:58:41
Reply

Sujets relatifs:

Leave a Replay

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