aker01600
Messages postés11Date d'inscriptionmercredi 22 novembre 2006StatutMembreDernière intervention25 juillet 2008
-
15 juil. 2008 à 10:49
cs_ShayW
Messages postés3258Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 2019
-
7 août 2013 à 21:00
bonjour a tous, je vous ecris car j'ai un probleme, je debute en ce moment en vba.
je devellope actuellement un formulaire en excel afin de faire l'inventaire d'un parc informatique.
le form marche a merveille, mais la ou j'ai un petit probleme et je dit bien petit c'est au niveau de la combobox qui contient une liste de localisation.s
cette combobox est alimentée par les champs d'une feuille excel avec le code suivant :
ComboBox1.RowSource = ("localisation!liste1")
cela marche, le probleme c'est que je voudrait que cette liste soit de taille variable afin que cette solution soit adaptable a plusieurs sites
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201117 16 juil. 2008 à 14:41
Ok,
alors voici la parade :
Dim DerLigne As Integer, i As Integer
DerLigne = Range("A65536").End(xlUp).Row
For i = 1 To DerLigne
If Range("A" & i).Value <> vbNullString Then ComboBox1.AddItem
Range("A" & i).Value
Next i
~
<small>Mortalino ~ [code.aspx?ID=39466 Colorisation
automatique]</small>
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201117 15 juil. 2008 à 20:18
En fait son snippet est en VB6, et en VBA, seule l'application Excel elle même possède un hWnd (handle Windows), pas les contrôles.
Mais vu que ça à l'air de concerner le nombre d'Items, ma soluce devrait suffir
aker01600
Messages postés11Date d'inscriptionmercredi 22 novembre 2006StatutMembreDernière intervention25 juillet 2008 16 juil. 2008 à 08:14
c'est pas mal ta solution sauf que j'ai associe la combobox avec une colonne d'une feuille et ce que je voudrait c'est supprimer les champs non remplis de la colonne de la combobox afin que quand tu rajoute un champ cela le rajoute dans la combobox mais on ne voit pas les champ vides
aker01600
Messages postés11Date d'inscriptionmercredi 22 novembre 2006StatutMembreDernière intervention25 juillet 2008 16 juil. 2008 à 16:26
merci, cela fonctionne mais, seulement quand la feuille qui contient la liste est en "ActiveSheet", tu n'aurais pas une solutions pour que cela marche meme quand elle est pas en ActiveSheet, j'ai essayer avec la commande mais cela n'a pas l'air de marcher :
Dim sheet As Excel.Worksheet
Set sheet = ThisWorkbook.Sheets("localisations")