[RESOLU] Mise en forme COMBOBOX

Alban.aktisea

XLDnaute Nouveau
Bonjour à tous, voila je rencontre une difficulté avec les combobox.

Je voudrais que le texte soit renvoyé à la ligne automatiquement, et que le texte soit centré verticalement.

Sa ne doit pas être compliqué, j'ai tout essayé dans les propriétés mais sans succès.

Je vous remercie par avance
 

Si...

XLDnaute Barbatruc
Bon_jour
Bonjour à tous, voila je rencontre une difficulté avec les combobox.
Je voudrais que le texte soit renvoyé à la ligne automatiquement, et que le texte soit centré verticalement.

Avec ce que j'ai cru comprendre …

Il n'y pas la propriété 'Multiline' pour un contrôle ComboBox contrairement au contrôle TextBox.

Si les items sont très longs, pour voir le texte complet, on peut utiliser le second contrôle mais il faudra faire attention à la hauteur et à la hauteur de celui-ci.
 

Pièces jointes

  • Items Combo longs.xlsm
    21.4 KB · Affichages: 45

JM27

XLDnaute Barbatruc
@job75
bonjour
j'avais cru ( dans un premier temps) comprendre que Alban souhaitait "charger" une combo box a partir d'un certrains nombre d'item figurant dans une seule cellule (avec un séparateur)
comme quoi l'interprétation ;)
ce qui expliquait ma demande de fichier
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Merci à tous je pensais que c'était possible.
Face à un cas concret, difficilement imaginable par nous, ça laisse quand même supposer une mauvaise compréhension du rôle et des possibilités d'une ComboBox. Comme quand on voit, parfois dans une 1ère ébauche d'Userform, une ComboBox disposée comme une ListBox plutôt que normalement, comme une TextBox.
 

Si...

XLDnaute Barbatruc
Bon_soir Job

Je n'avais vu ton message quand j'ai envoyé le mien ; j'en étais resté à

«… la question n'a aucun sens» sans peaufiner le format du contrôle comme tu viens de le faire.

Salut JM27, je n'avais pas vu aussi le tien.

Je ne suis pas aussi rapique vous :oops:
 

job75

XLDnaute Barbatruc
Bonjour le fil, le forum,

Ce fichier (2) va mieux :
Code:
Private Sub TextBox1_Enter()
With TextBox1
  .Value = ""
  .Height = ComboBox1.Height
  Me.Height = .Height + 36
End With
ComboBox1 = ""
ComboBox1.SetFocus
End Sub

Private Sub ComBoBox1_Change()
If ComboBox1.ListIndex = -1 Then ComboBox1 = "": Exit Sub
With TextBox1
  .AutoSize = False
  .Value = ComboBox1
  .AutoSize = True
  .Width = ComboBox1.Width - 12
  .AutoSize = False
  Me.Height = .Height + 36
End With
End Sub
La ComboBox est toujours activée quand la TextBox est vide.

Quand on y entre une lettre le 1er item commençant par cette lettre s'affiche.

Bonne journée.
 

Pièces jointes

  • ComboBox et TextBox(2).xlsm
    28.7 KB · Affichages: 55

Si...

XLDnaute Barbatruc
@job75
Re Si...
Oui c'est sûr qu'en général un UserForm sert à modifier une feuille de calcul.
Mais ce n'est pas le sujet de ce fil.
A+

Tu sais déjà que je ne réponds que très rarement à une question sans contexte (beaucoup peuvent le faire et mieux que moi).

Pour une question d'ordre général, les exemples que je donne ne sont pas des solutions bridées ( ce que tu as fait dans ton second fichier en faisant l'impasse sur ta première insertion).

Si le sujet avait été réduit un seul contrôle, je ne serais pas intervenu ou, à la rigueur, j'aurais simplement demandé si un formulaire était utile.
 

Discussions similaires

Statistiques des forums

Discussions
312 163
Messages
2 085 860
Membres
103 005
dernier inscrit
gilles.hery