VBA : ComboBox ajustée en fonction des choix

[vivi4561]

Bonjour,

J'aurai aimé savoir si vous saviez comment faire lorsqu'on possède une ComboBox dans une UserForm pour que cette dernière s'ajuste en fonction du texte ?

Petite précision : je ne souhaite pas utiliser la fonction "AutoSize" car j'aimerai que ma ComboBox ait toujours la meme taille mais quand on clique dessus le menu déroulant (et seulement le menu déroulant) s'ajuste en fonction de la taille du texte qu'il contient.


En vous remerciant par avance,


Vince

 

[vivi4561]

Re : VBA : ComboBox ajustée en fonction des choix

Re,

J'ai trouvé ce code sur des forums américains mais je n'arrive pas à l'appliquer. Vous y arrivez vous ?

private void AdjustWidthComboBox_DropDown(object sender, System.EventArgs e)
{
ComboBox senderComboBox = (ComboBox)sender;
int width = senderComboBox.DropDownWidth;
Graphics g = senderComboBox.CreateGraphics();
Font font = senderComboBox.Font;
int vertScrollBarWidth =
(senderComboBox.Items.Count>senderComboBox.MaxDropDownItems)
?SystemInformation.VerticalScrollBarWidth:0;

int newWidth;
foreach (string s in ((ComboBox)sender).Items)
{
newWidth = (int) g.MeasureString(s, font).Width
+ vertScrollBarWidth;
if (width < newWidth )
{
width = newWidth;
}
}
senderComboBox.DropDownWidth = width;

 

[klin89]

Bonjour vivi4561,

Il me semble avoir aperçu l'effet souhaité dans une réalisation signée Banzai64 il y a quelques semaines.
J'ai voulu la récupérer sur Ci-joint.fr mais elle s'était déjà volatilisée 🙁
Il faudrait contacter Banzai64.

Cela devait se situer ici :
https://www.excel-downloads.com/threads/loupe-ou-zoom-sur-listbox.150827/

Ai-je bien compris la question 🙄

Klin89

 

[Pierrot93]

Re : VBA : ComboBox ajustée en fonction des choix

Bonjour vivi, Klin

pas sûr que cela puisse t'aider, mais tu peux ajuster le nombre de lignes affichées par une combo avec la propriété "ListRows " :

ComboBox1.ListRows = 20

bon après midi
@+

 

[vivi4561]

Re : VBA : ComboBox ajustée en fonction des choix

Re,

J'ai apperçu ce code sur le lien suivant Adjust combo box drop down list width to longest string width - CodeProject

Le truc c'est que je ne sais pas comment le faire marcher.
Comment gère ton Private void ?

 

[klin89]

Re: Re : VBA : ComboBox ajustée en fonction des choix

Re vivi4561 ,Pierrot

C'est mieux en français :

Ce lien n'existe plus

Klin89

 

[vivi4561]

Re : Re: Re : VBA : ComboBox ajustée en fonction des choix

Re,

Merci pour ça.
Le soucis c'est que je ne comprend pas comment le faire marcher.

Si vous arrivez à le faire marcher sur un excel, pouvez vous déposer le fichier sur le forum please.