Comment élargir le déroulant d'unecombobox ?

A

AeroPlanneur

XLDnaute Junior

• 3 Mai 2006

• #2

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

 

Vote positif 0 Vote négatif

C

Carlos

Guest

• 3 Mai 2006

• #3

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

 

Vote positif 0 Vote négatif

A

AeroPlanneur

XLDnaute Junior

• 3 Mai 2006

• #4

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

 

Vote positif 0 Vote négatif

C

carlos

Guest

• 3 Mai 2006

• #5

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

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 3 Mai 2006

• #6

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

A

AeroPlanneur

XLDnaute Junior

• 3 Mai 2006

• #7

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

 

Vote positif 0 Vote négatif

C

carlos

Guest

• 3 Mai 2006

• #8

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 .

 

Vote positif 0 Vote négatif

C

carlos

Guest

• 3 Mai 2006

• #9

Re

C'est genial .
Juste quelques lettres : .ListWidth

Trop fort

Carlos

 

Vote positif 0 Vote négatif