Modifier la position d'une combobox en VBA

Bonjour,
J'ai un problème sous excel avec une combobox que je voudrai quand je clique sur la flèche, elle s'ouvre en définissant sa position top et sa largeur width.
Exemple dans le fichier ci-dessous.
Quand je mets un point d'arrêt sa fonctionne bien les 2 zones de la combobox sont bien alignées, mais en fonctionnement normal, j'ai 2 zones décalées d'affichage de ma combobox.
J'utilise l'événement ComboBox1_DropButtonClick() pour définir les valeurs de top et width.

Merci de votre aide

Pièce jointe 229777

Citation:

---

Envoyé par mcarnejac

---

Bonjour,

Pour supprimer le décalage, mettez le contrôle en AutoSize. Autosize ne règle pas tout, la longueur ne s'ajuste que lorsque l'item a été choisi.
Si vous souhaitez ajuster la largeur du contrôle en fonction de la taille de la plus longue chaîne, essayez ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub ComboBox1_DropButtonClick()   Dim I As Integer Dim LongueurMaxi As Integer   LongueurMaxi = 0 For I = 1 To ComboBox1.ListCount If LongueurMaxi < Len(ComboBox1.List(I - 1)) Then LongueurMaxi = Len(ComboBox1.List(I - 1)) Next I Select Case LongueurMaxi Case Is < 30 ComboBox1.Width = 130 Case Else ComboBox1.Width = 250 End Select   End Sub

---

Les longueurs sont à ajuster en fonction de vos items.

Cordialement.

Bonjour,
Merci pour votre réponse, mais c'est pas ce que je cherche à résoudre la largeur uniquement, mais c'est aussi la position de la combobox qui varie par code VBA lorsqu'on clique sur la flèche vers le bas.
En fait ce qui doit rester à sa position de la combobox c'est le coin supérieur droit quand on clique sur la flèche vers le bas, avec une largeur qui varient.
Dans mon exemple on se retrouve avec 2 parties décomposées:
- quand on clique sur la flèche vers le bas de la combobox avec le rectangle de la combobox avec la flèche vers le bas à la bonne position et la bonne largeur donnée par le code VBA,
- le rectangle contenant les divers choix de la combobox à la bonne largeur mais pas décalé vers la gauche, donc pas aligné avec le rectangle 1ère partie de la combobox avec la flèche.

J'espère avoir été plus clair.

Merci de votre aide.
Cordialement.

Citation:

---

Envoyé par mcarnejac

---

Avec le code fourni et l'AutoSize, avez-vous toujours le problème de décalage ?
Sinon, il vous faut faire un calcul Avant-Après de la position Gauche+Longueur et faire que la position Droite (Left+Width) Après, s'aligne avec la position Droite Avant.

Cordialement.

Oui j'ai toujours le décalage avec l'autosize à true.

Faire un calcul avant, pas de problème mais comment faire pour que les 2 parties de la combobox prennent en compte ce changement.
Ce qui est bizarre c'est que quand je mets un point d'arrêt dans le code VBA et dans ComboBox1_DropButtonClick(), les 2 parties se décale bien et sont alignées.

Cordialement.

Bonjour,

Le fait de modifier la largeur de la ComboBox par un agrandissement vers la gauche dissocie les deux contrôles qui la composent à savoir un TextBox et une ListBox et je ne crois pas que tu puisses trouver une solution dans ce cas là car c'est probablement un couac dans le positionnement de la ListBox sur l'évènement "DropButtonClick".
Pour que le coté droit du ComboBox reste fixe, il te faut mémoriser sa position avant d'en modifier la largeur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub ComboBox1_DropButtonClick()   Dim Pos As Integer   'pour que le coté droit de la ComboBox soit fixe Pos = ComboBox1.Left + ComboBox1.Width   If ComboBox1.Width < 112 Then   ComboBox1.Width = 210 ComboBox1.Left = Pos - ComboBox1.Width   Else   ComboBox1.Width = 110 ComboBox1.Left = Pos - ComboBox1.Width   End If   End Sub

---

Maintenant, si tu tiens vraiment à ce fonctionnement il ne te reste plus qu'à réinventer la ComboBox.
Une piste, tu poses une ListBox et un TextBox sur ta feuille (la ListBox juste dessous le TextBox) et tu colles le code ci-dessous (pas totalement abouti, à toi de peaufiner) dans le module de la feuille :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Sub TextBox1_DropButtonClick()   Dim Pos As Integer   Pos = TextBox1.Left + TextBox1.Width   If TextBox1.Width < 112 Then   TextBox1.Width = 210 TextBox1.Left = Pos - TextBox1.Width ListBox1.Left = TextBox1.Left ListBox1.Width = TextBox1.Width ListBox1.Height = 130   Else   TextBox1.Width = 110 TextBox1.Left = Pos - TextBox1.Width ListBox1.Left = TextBox1.Left ListBox1.Width = TextBox1.Width ListBox1.Height = 0   End If   End Sub   Private Sub ListBox1_Click()   TextBox1.Text = ListBox1.List(ListBox1.ListIndex) ListBox1.Height = 0   End Sub

---

L'évènement "DropButtonClick" n'est pas disponible dans la liste mais est malgré tout géré de même que la propriété "ShowDropButtonWhen".
Code à mettre dans le module du classeur (code que tu peux exécuter sans forcément fermer et ré-ouvrir le classeur) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_Open()   Feuil1.TextBox1.ShowDropButtonWhen = 2   Feuil1.ListBox1.AddItem ("Premier choix de la liste") Feuil1.ListBox1.AddItem ("Deuxième choix de la liste") Feuil1.ListBox1.AddItem ("Troisième choix de la liste") Feuil1.ListBox1.Height = 0   End Sub

---

Bonjour,
Merci pour ces informations, je me doutais qu'il y avait un problème avec la combobox et cette décomposition d'affichage.
Je vais le gérer suivant ta proposition listbox et textbox.

Merci de ton aide.
Cordialement