Discussion :

[bickou]

Bonjour,

Sauf erreur de ma part je ne trouve pas la solution sur le forum pour coder sous excel la modification de largeur de la zone de déroulement.

J'ai bien trouvé ce lien
http://vb.developpez.com/faq/?page=Controles#combo_larg
mais il ne fonctionne pas et le code est censé être mis sur Form.load qui n'existe que pour access non? L'équivalent pourrait être Form.initialize mais ça ne fonctionne pas mieux

Est-ce possible sous Excel ou non?

[joe.levrai]

bonjour,

tu as eu les bon réflexes : FAQ + tentative qui était sur la bonne piste

essaye ça

j'ai crée un userform et mis un combobox
j'ai volontairement réduit le combobox pour qu'il soit minuscule
et j'ai ajouté ça dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub UserForm_Initialize()
 
Me.ComboBox1.Width = 200
 
End Sub

Résultat : ma combobox toute petite quand je suis dans l'éditeur VBA, apparaît beaucoup plus grosse quand l'userform s'affiche

[bickou]

Merci joe.levrai pour ton aide,

Par contre je me suis peut-être mal exprimé :

je souhaite conserver la largeur du combobox sur le formulaire, mais modifier la largeur de la liste déroulante uniquement lors de la sélection. Le top serait d'adapter la largeur à l'item le plus grand

[joe.levrai]

Y'a pas de mal

du coup, c'est pas la propriété Width à utiliser, mais la propriété ListRows

par défaut, c'est 8, ce qui permet d'afficher 8 items quand tu déplies ton combobox

pour passer à 10 par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub UserForm_Initialize()
 
Me.ComboBox1.ListRows = 10
 
End Sub

Si tu veux adapter à l'item le plus grand, fais quand même attention à ne pas dépasser la capacité d'affichage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
 
With Me
    .ComboBox1.ListRows =  .ComboBox1.ListCount
End With
 
End Sub

[bickou]

En fait je crois que l'on se comprend pas

Les infos que vous me transmettez correspondent au nombre de ligne de la zone de liste.

Or il s'agit bien de la largeur que je souhaite modifier, mais pas celle du combo en lui-même sur l'userform, mais uniquement celle de la liste déroulante sur l’événement "Enter".
Après sélection d'un item je souhaite qu'elle retrouve la taille initiale.

Alors effectivement je peux envisager de modifier la taille sur "enter" du combobox, puis après sélection sur "exit". Dans ce cas le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ComboBox1.Width = 200

pourra m'aider mais la question était peut-on conserver la largueur du contrôle et uniquement "agrandir la zone de déroulement le temps de sélectionner un item.

Merci d'avance.

[joe.levrai]

on s'est pas compris en effet, mais là ça devrait être bon ?
(au moins, on aura révisé les classiques !)

Allez je tente !

Donc, quand tu sélectionnes un item de ta combobox, tu veux que la taille de la combobox s'ajuste à la taille de l'item qu'on a sélectionné ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub ComboBox1_Change()
 
With Me.ComboBox1
 
    .Width = Len(.Value) * 4 + 40
 
End With
 
 
End Sub

J'ai pas optimisé le dimensionnement, je te laisse ajuster


Ps : si au final c'est uniquement la "zone blanche" qui contient tes items que tu veux dimensionner, faut te tourner vers la propriété ListWidth à redimensionner
Là je dois partir, désolé

[bickou]

Super merci beaucoup joe.levrai c'était bien ce que je voulais en voici le code pour la postérité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Combo1_Enter()
Dim I As Integer
Dim J As Integer
J = Me.Combo1.Width/4 -10
For I = 0 To Me.Combo1.ListCount - 1
    If Len(Me.Combo1.List(I)) > J Then
        J = Len(Me.Combo1.List(I))
        Me.Combo1.ListWidth = Len(Me.Combo1.List(I)) * 4 + 10
    End If
Next I
End Sub

Merci encore et bon week-end!

[joe.levrai]

Ca y est, on a réussi

[bickou]

C'est clair ça fais trop plaisir de le résoudre
va juste falloir que je m'améliore sur mes explications
Bonne journée à toi