Réduire la taille de ma combobox

Bonjour à tous,

dansun formulaire j'ai une combobox réduite et reliée à 2 textbox pour alimentation.

(combobox5 , textbox 18 et 5)

Lorsque je clique dessus, il y a trop d'espace ce qui est inesthétique.

Je ne parviens pas à trouver où dans les propriétés je peux réduire la taille pour ne plus avoir tout cet espace.

Voici ce que ça donne :

c'est vraiment moche

Pouvez-vous me dire comment réduire la taille svp?

Merci d'avance,

Siga

Bonjour siga2fadial

La Combobox est paramétrée à l'activation de l'userform.

Il faut modifier le code à la ligne

.ListWidth

Fais des essais de largeur en changeant le chiffre, mais attention ta Combobox est alimenter par deux colonnes adjacentes.

Private Sub UserForm_Activate()
With ComboBox5
      .Clear
      .Top = TextBox18.Top
      .Left = TextBox18.Left + TextBox18.Width
      .Height = TextBox18.Height
   .Width = 16
      .ListWidth = 45 'Changer le chiffre en fonction de la largeur souhaitée de la Combobox
   End With

   'Set Sh = Sheets("listes")
   Set Sh = Feuil9
   ComboBox5.List = Sh.Range("E4:F" & Sh.Range("E" & Rows.Count).End(xlUp).Row).Value  'Deux colonnes adjacentes pour l'alimentation des la Combobox 5
End Sub

Bonjour

il faut enlever les imputer dans ton onglet Liste et surtout dans la colonne "E"

A+

Maurice

bonjour

j'ais fait un peu de ménage a toi de voir

A+

Maurice

Bonsoir,

MERCI pour vos réponses Archer et et 1000lio

Vous évoquez beaucoup la largeur mais c'est la longueur qui me pose problème en fait

car pour des raisons de confidentialité j'ai modifié les valeurs.

Archer , je ne peux pas ouvrir ton fichier en ce moment mais je verrai demain.

Je vous tiens au courant bonne soirée,

Siga

Bonsoir

Ajoutes dans le code la ligne suivante

  .ListRows = 25

Comme ceci

Private Sub UserForm_Activate()
Set Sh = Feuil1
  ComboBox1.List = Sh.Range("A2:A" & Sh.Range("A" & Rows.Count).End(xlUp).Row).Value
  ComboBox4.List = Sh.Range("D2:D" & Sh.Range("D" & Rows.Count).End(xlUp).Row).Value
  ComboBox12.List = Sh.Range("D2:D" & Sh.Range("D" & Rows.Count).End(xlUp).Row).Value
  ComboBox15.List = Sh.Range("D2:D" & Sh.Range("D" & Rows.Count).End(xlUp).Row).Value
    With ComboBox5
      .Clear
      .Top = TextBox18.Top
      .Left = TextBox18.Left + TextBox18.Width
      .Height = TextBox18.Height
      .Width = 16
      .ListWidth = 80
      .ListRows = 25
      .List = Sh.Range("E2:F" & Sh.Range("E" & Rows.Count).End(xlUp).Row).Value
    End With
TextBox1.Value = DateValue(Now)
MultiPage1.Value = 0
End Sub

Un grand MERCI, ça fonctionne bien

Siga