Wordwrap dans une combobox

[Cougar]

Bonsoir le forum,

Est-il possible, une fois la sélection choisie, d'avoir dans une combobox un genre de wordwrap?

Je m'explique : dans ma combobox, que je ne peux élargir faute d'espace, je fais mon choix. Une fois que j'ai sélectionné mon item j'aimerais que toute la description soit visible sur plusieurs lignes (car je peux agrandir ma combobox en hauteur).

Merci

 

[Mytå]

Re : Wordwrap dans une combobox

Salut Cougar

Un possibilité est de cacher un commentaire sur la cellule de ton combobox en mode visible.

Private Sub ComboBox1_Change()
Range("B4").Comment.Text Text:="" & ComboBox1.Text
End Sub

Mytå

 

[Cougar]

Re : Wordwrap dans une combobox

Bonsoir Mytå, le forum,

J'ai plus de 4500 lignes à faire. N'y aurait-il pas une façon plus simple ?

Merci

 

[Mytå]

Re : Wordwrap dans une combobox

Salut Cougar

4500 lignes ou 4500 combobox ?

Mytå

 

[Cougar]

Re : Wordwrap dans une combobox

Salut Mytå,

4500 lignes (G2:G5677). Et je ne cesse d'en ajouter.

Voici une partie de mon code :
Private Sub ComboBox4_Change()
Dim tabtemp As Variant
Dim O As Integer
Dim Cell As Range
Dim NumberFormat As Currency

With Worksheets("Inventaire")
O = .Range("a15000").End(xlUp).Row
tabtemp = .Range("A2:bd" & O).Value
End With

For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox6.Value) And tabtemp(O, 2) = CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) And tabtemp(O, 7) = CStr(Me.ComboBox4.Value) Then

If tabtemp(O, 7) <> "" Then
ListBox1.AddItem tabtemp(O, 4)
ListBox2.AddItem tabtemp(O, 5)
ListBox3.AddItem tabtemp(O, 6)
...

C'est la Combobox4 qui doit être modifée.

La soirée est encore jeune pour nous. 🙂

Merci

 

[ccpapy]

Re : Wordwrap dans une combobox

bonjour à tous
je vais peut-être dire une bétise...
proprieté du combobox
autosize = true et peut-être avec wordwrap = false suivant l'effet voulu

sinon je vais me coucher c'est que je n'ai pas assez dormi 😱

 

[Cougar]

Re : Wordwrap dans une combobox

Bonjour à vous tous,

ccpapy cette solution fait en sorte que l'autosize élagit la combobox et une bonne partie se retrouve sous un cadre, donc je ne peux voir l'information contenu dans la combobox.

Le wordwrap n'est pas disponible dans la combobox, je cherche donc une façon pour obenir le même résultat que le wordwrap.

Merci

 

[ccpapy]

Re : Wordwrap dans une combobox

je savais que je n'avais pas assez dormi 🙂
désolé et bon dimanche à tous

 

[Mytå]

Re : Wordwrap dans une combobox

Salut le Forum

Cougar, pourquoi ne pas ajouter un Label sous ta ComboBox avec les
propriètés AutoSize et WordWrap à TRUE.

Private Sub ComboBox4_Change()

'ton code ....

Label1.Width = 102
Me.Label1.Caption = Me.ComboBox4.Text

End Sub

Mytå

 

[Cougar]

Re : Wordwrap dans une combobox

Salut le forum,

Yes sir, j'achète. Très bonne idée qui me servira à plusieurs occasions.

MERCI