Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives


 
 
LinkBack Outils de la discussion
Vieux 15/02/2003, 20h06   #1 (permalink)
Utna
Guest
 
Messages: n/a
Par défaut "ComboBox" dans un "UserForm"

Bonjour à toutes et à tous.

Tout d'abord, merci pour toutes ces aides disponibles et fort utiles pour un debutant comme moi.
Cependant, je rencontre un obstacle (

Est-il possible d'assigner à un "ComboBox" créé dans un "UserForm" une liste "ListFillRange" comme dans l'exercice n°3 ?
(Leçon 3 VBAJMG : "ComboBox créé dans une "Feuil).

Merci d'avance.
 
ANNONCES
Vieux 15/02/2003, 21h21   #2 (permalink)
Utna
Guest
 
Messages: n/a
Par défaut Re: "ComboBox" dans un "UserForm"

Mille excuses !

Je viens de trouver la solution en modifiant la demo du post :
DEMO Useform ComboBox Gestion de Database


Merci...
 
Vieux 15/02/2003, 21h43   #3 (permalink)
@+Thierry
Guest
 
Messages: n/a
Par défaut Re: "ComboBox" dans un "UserForm"

SAlut Utna

You Are Welcome... Et bonne utilisation de "USF_ComboBox-Gestion-List"

Donc attention dans un UserForm pour assigner des données dans une ComboBox c'est (entre autre ***) "RowSource" et plus "ListFillRange" (qui lui sera réservé à une ComboBox de Feuille).

Bonne Soirée
@+Thierry

*** ne pas oublier aussi l'autre méthode "AddItem" très utile aussi dans certain cas...
 
Vieux 15/02/2003, 22h14   #4 (permalink)
Utna
Guest
 
Messages: n/a
Par défaut Re: "ComboBox" dans un "UserForm"

Merci beaucoup @+Thierry.

Mais, est-il possible d'associer la fonction "Row Source" à une autre "Feuil" ?
 
Vieux 15/02/2003, 23h26   #5 (permalink)
@+Thierry
Guest
 
Messages: n/a
Par défaut Re: "ComboBox" dans un "UserForm"

Re Salut Utna...

Pas sûr d'avoir capté ?

OUI of course ! mais je pense que tu cherches un truc plus compliqué que çà ?

L = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Plage = Sheets("Feuil1").Range("A2:A" & L).Address
ComboBox1.RowSource = "Feuil1!" & Plage

Feuil1 peut-être remplacée par n'importe quelle feuille... (existante !! de préférence)

L = Sheets("Utna").Range("A65536").End(xlUp).Row
Plage = Sheets("Utna").Range("A2:A" & L).Address
ComboBox1.RowSource = "Utna!" & Plage

...
@+Thierry
 
Vieux 16/02/2003, 00h40   #6 (permalink)
Utna
Guest
 
Messages: n/a
Par défaut Re: "ComboBox" dans un "UserForm"

Merci pour cette aide.

Maintenant, je n'ai plus qu'a essayer de continuer tout seul pour mon 2eme jour de decouverte d'Excel VBA.


A bientôt surement pour d'autres galères de debutant )
 
ANNONCES
 

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 15h01.


(C) 2006 Excel Downloads