Wordwrap dans une combobox

M

Mytå

Guest

• 6 Août 2006

• #2

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å

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 6 Août 2006

• #3

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 6 Août 2006

• #4

Re : Wordwrap dans une combobox

Salut Cougar

4500 lignes ou 4500 combobox ?

Mytå

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 6 Août 2006

• #5

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

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 6 Août 2006

• #6

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 😱

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 6 Août 2006

• #7

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

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 6 Août 2006

• #8

Re : Wordwrap dans une combobox

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 7 Août 2006

• #9

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å

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 8 Août 2006

• #10

Re : Wordwrap dans une combobox

Salut le forum,

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

MERCI

 

Vote positif 0 Vote négatif