Passer le focus à une combobox de la boîte à outils

[marmotte18]

Bonjour,

Est-il possible de passer le focus à une combox issue de la boîte à outils ? Mon problème est que je suis obligé de cliquer souvent plusieurs fois sur le bouton de choix avant que la liste déroulante s'ouvre.

Merci par avance

 

[MJ13]

Re : Passer le focus à une combobox de la boîte à outils

Bonjour Marmotte

A tester:

ComboBox1.SetFocus

 

[marmotte18]

Re : Passer le focus à une combobox de la boîte à outils

Bonjour MJ13,

Désolé mais cela ne fonctionne pas ! Ma ComboBox a la propriété (Name)=ContratNbeBox sur une feuille qui s'appelle "Donne"

Les 2 codes suivants provoquent des erreurs :

Objet requis :

ContratNbeBox.SetFocus

Propriété ou méthode non gérée par cet objet :

Worksheets("Donne").ContratNbeBox.SetFocus

Attention : il ne s'agit pas d'un UserForm

 

[MJ13]

Re : Passer le focus à une combobox de la boîte à outils

Re

: il ne s'agit pas d'un UserForm

Je m'en suis douté après coup 😕.

La, je en sais pas, je ne les utilise que très rarement. Voir peut-être les événements dispos pour ce type de contrôle. Sinon, demande à CC, il s'y connaît en ce moment avec ses tutos 😉.

Ou sinon à tester en prenant en compte le vrai nom:

ComboBox1.Activate

 

[marmotte18]

Re : Passer le focus à une combobox de la boîte à outils

MJ13,

Je n'accède pas à la liste des événements de cet objet mais seulement à la fenêtre "propriétés" et je n'ai rien vu qui se rapporte au focus.

 

[MJ13]

Re : Passer le focus à une combobox de la boîte à outils

Re
Ou sinon à tester en prenant en compte le vrai nom:

ComboBox1.Activate

Vive l'autocomplétion 😉.

 

[marmotte18]

Re : Passer le focus à une combobox de la boîte à outils

MJ13,

Worksheets("Donne").ContratNbeBox.Activate

Effectivement, le curseur se positionne dans le champ "text" qui se trouve juste devant le bouton de choix. Je pense que cela devrait faire mon affaire.

Merci pour la solution

 

[Pierrot93]

Re : Passer le focus à une combobox de la boîte à outils

Bonjour Marmotte, Michel🙂

pas sr d'avoir bien compris la question... pour afficher la liste déroulante :

Feuil1.ComboBox1.DropDown

A utiliser dans le module de la feuille, nom des objets à adapter...

bonne soirée
@+

 

[marmotte18]

Re : Passer le focus à une combobox de la boîte à outils

Bonjour Pierrot93,

Ta réponse m'a particulièrement intéressée ! Merci de me l'avoir communiquée !

Le code que j'ai utilisé est le suivant :

 Worksheets("[I]NomFeuille[/I]").[I]NomComboBox[/I].DropDown