Comment élargir le déroulant d'unecombobox ?

[carlos]

Bonsoir

Dans une combobox j'ai une liste d'items qui sont assez long .jusqu'a 50 caracteres par item.
Sur ces 50 caracteres seule les 3 premiers caracteres doivent etre visible .
mon probleme est que lorsque je déroule cette combobox toute la largeur du texte des items n'apparaissent pas.

Comment élargir le déroulant d'une combobox ?


Voir PJ
Carlos [file name=largeCombobox.zip size=9933]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/largeCombobox.zip[/file]

 

[AeroPlanneur]

bonsoir Carlos,

j'ai complété ta macro :

Private Sub UserForm_Initialize()

ComboBox1.Width = 100
ComboBox1.Height = 16

Dim i As Byte
For i = 1 To 7
ComboBox1.AddItem i & ' - ' & Cells(1 + i, 2)
Next
End Sub


cordialement

 

[Carlos]

Bonsir Aero¨planneur, le forum

Merci Aeroplanneur mais je n'ai pas la place sur mon userform (de mon vrai projet)d'élargir le combobox , c'est pourquoi je ne veux qu'élargir que le déroulant du combobox

Carlos

 

[AeroPlanneur]

Carlos,

tu peux modifier les propriétés du combo :

columnWidths = 400 (par exemple)
MaxLenght = 100 (par exemple)

tu peux choisir les valeurs pour faire en sorte que la totalité des valeurs soient affichées, mais seront visibles avec les scrollbars ...


cordialement

 

[carlos]

re Aeroplanneur

oui mais j'avais justement pas envie d'avoir des scrollbars ...Aie !!!!
Quelle est la propriété qui permet d'avoir une combobox déroulante de 16 caracteres par défaut ??

sinon est il possible de passer par des controlTipText ??certainement moins operationnel pour mon cas !

Carlos

 

[_Thierry]

Bonsoir Carlos, AeroPlanneur, le Forum

Bon j'ai l'impression qu'AéroPlanneur planne quelques pieds à l'ouest de la piste 'd'atterrissage' d'une Liste de ComboBox 😉

Non, si j'ai bien compris, la Propriété qui va t'interresser pour ton problème Carlos c'est : 'ListWidth' qui spécifie la largeur de la liste d'un contrôle ComboBox.

Exemple :

Private Sub UserForm_Initialize()
Dim i As Byte, x As Byte
Dim MyString As String

    With Me.ComboBox1
                For x = 65 To 90
                  MyString = MyString & Chr(x)
                  .AddItem MyString
                Next
            .Width = 40
            .ColumnWidths = 35
            .ListWidth = 150
       
    End With

End Sub

Bonne Soirée
[ol]@+Thierry[/ol]

 

[AeroPlanneur]

bonsoir Thierry,

grâce à toi, j'ai pu avec 'PisteWidth' élargir la piste et effectuer un atterrissage de première en douce et sans secousse.

🙂

cordialement

 

[carlos]

Salut Thierry , aeroplanneur , le forum

Thierry pourquoi tu te caches derriere ta proposition , on ne vois que tes yeux ,n'ais pas honte elle est tres bien, comme d'hab.

Merci beaucoup .

 

[carlos]

Re

C'est genial .
Juste quelques lettres : .ListWidth

Trop fort

Carlos