Combobox de taille adaptable [Résolu]
aker01600
- Messages postés
- 11
- Date d'inscription
- mercredi 22 novembre 2006
- Dernière intervention
- 25 juillet 2008
- Messages postés
- 3247
- Date d'inscription
- jeudi 26 novembre 2009
- Dernière intervention
- 26 décembre 2018
A voir également:
- Combobox de taille adaptable
- Combobox de taille infèrieur à son contenu - Codes sources - Javascript (Formulaire)
- Scrolling auto-adaptable a la taille du contenu - Codes sources - Flash (Menu & navigation)
- Adapter automatiquement la taille de police selon les dimensions d'un champ texte (textfield) - Codes sources - Flash (ActionScripts)
- Adapter une Form à la taille de l'écran ✓ - Forum - C# / .NET
- C# Adaptation taille listview en fonction du nombre d'éléments ✓ - Forum - C# / .NET
9 réponses
Meilleure réponse
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Dernière intervention
- 21 décembre 2011
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>
@++
le mystérieux chevalier,"Provençal, le gaulois"
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>
@++
le mystérieux chevalier,"Provençal, le gaulois"
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Dernière intervention
- 21 décembre 2011
Dim
DerLigne
As Integer
, i
As Integer
DerLigne = Range(
"A65536"
).End(xlUp).Row
For
i =
1
To
DerLigne
If
Sheets("localisations").
Range(
"A"
& i).Value <> vbNullString
Then
ComboBox1.AddItem
Sheets("localisations").
Range(
"A"
& i).Value
Next
i
@++
le mystérieux chevalier,"Provençal, le gaulois"
DerLigne
As Integer
, i
As Integer
DerLigne = Range(
"A65536"
).End(xlUp).Row
For
i =
1
To
DerLigne
If
Sheets("localisations").
Range(
"A"
& i).Value <> vbNullString
Then
ComboBox1.AddItem
Sheets("localisations").
Range(
"A"
& i).Value
Next
i
@++
le mystérieux chevalier,"Provençal, le gaulois"
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Dernière intervention
- 21 décembre 2011
Salut,
taille adaptable en longueur ? (nb d'items)
ou en largeur ?
1/ ComboBox1.ListRows = ComboBox1.ListCount
2/ http://www.codyx.org/snippet_agrandir-largeur-hauteur-items-deroules-combobox_642.aspx
Pour le point 2, faudra adapter le snippet de PCPT afin de trouver d'abord le hWnd du Combobox
@++
le mystérieux chevalier,"Provençal, le gaulois"
taille adaptable en longueur ? (nb d'items)
ou en largeur ?
1/ ComboBox1.ListRows = ComboBox1.ListCount
2/ http://www.codyx.org/snippet_agrandir-largeur-hauteur-items-deroules-combobox_642.aspx
Pour le point 2, faudra adapter le snippet de PCPT afin de trouver d'abord le hWnd du Combobox
@++
le mystérieux chevalier,"Provençal, le gaulois"
- Messages postés
- 11
- Date d'inscription
- mercredi 22 novembre 2006
- Dernière intervention
- 25 juillet 2008
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
http://img141.imageshack.us/img141/8812/screenhq0.jpg
http://img141.imageshack.us/img141/8812/screenhq0.jpg
- Messages postés
- 11
- Date d'inscription
- mercredi 22 novembre 2006
- Dernière intervention
- 25 juillet 2008
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")
encore merci de ton aide
Dim sheet As Excel.Worksheet
Set sheet = ThisWorkbook.Sheets("localisations")
encore merci de ton aide
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.