Modifier la position et dimension combobox en VBA

Bonjour,

J'ai un problème sous excel avec une combobox que je voudrais, quand je clique sur la flèche, elle s'ouvre en définissant sa position top et sa largeur width.

J'ai mis l'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

Bonjour,

Pas sût d'avoir tout compris et pas vraiment ma tasse de thé.

A tester.

Cdlt.

Option Explicit

Dim rCell As Range

Private Sub ComboBox1_DropButtonClick()
    Set rCell = [E3]
    With ComboBox1
        .Left = rCell.Left
        .Top = rCell.Top
        .Width = 210
    End With
End Sub

Private Sub ComboBox1_LostFocus()
    Set rCell = [E3]
    With ComboBox1
        .Left = rCell.Left
        .Top = rCell.Top
        .Width = 110
    End With
End Sub

Bonjour,

Merci pour la réponse mais effectivement cela ne résout pas mon problème.

En fait je veux pouvoir afficher la combobox décaler vers la gauche avec une largeur plus grande (width=210) quand on clique sur la flèche vers le bas.

Dès qu'on sort la combobox reprend sa dimension d'origine (width=110) et position.

Dans ce qui est proposé cela décompose en 2 parties comme d'ailleurs dans mon cas:

• la combobox non active, son rectangle et la flèche au bon endroit,
• la zone de sélection de la combobox, le rectangle contenant les divers choix non raccordé ou collé partie combobox avec la flèche.

Voilà le résultat que j'ai et je voudrais que les 2 parties soient alignés verticalement comme le combobox fonctionne en général.

Il est bien entendu que je veux que la position (top) soit modifié par code VBA, autrement bien sur je l'aurai mise au bon endroit et à la bonne dimension et je touche à rien sur la position en VBA.

Merci de votre aide.

Cordialement.