Curseur et combobox

yves03 · 25 Août 2008

Bonjour,
J'ai un userform avec 2 combobox un textbox + 1 bouton.
A l'initialisation de l'userform le curseur se trouve dans le 1er combobox et apres appui sur le bouton il passe dans le 2 eme combobox;
Je voudrais qu'apres appui sur le bouton le curseur reste dans le combobox 1 ( ou revienne ).
Merci d'avance

BERRACHED said · 25 Août 2008

Re : Curseur et combobox

Salut,yves03

a défaut d'un fichier joint essayé de mettre dans le Module de Commanbutton1 en dernier avant end sub Combobox1.Setfocus

Cordialement

Pierrot93 · 25 Août 2008

Re : Curseur et combobox

Bonjour Yves, Said,

si la methode "setfocus" ne suffit pas, peut être empêcher la sortie du contrôle, à voir si j'ai bien compris ta demande :

Code:

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
End Sub

bon après midi
@+

yves03 · 25 Août 2008

Re : Curseur et combobox

Pierrot93 à dit:
Bonjour Yves, Said,

si la methode "setfocus" ne suffit pas, peut être empêcher la sortie du contrôle, à voir si j'ai bien compris ta demande :

Code:

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Cancel = True End Sub

bon après midi
@+

Bonjour Pierrot93,

Ton code fonctionne, par contre ça me bloque l'acces au Combobox2

yves03 · 25 Août 2008

Re : Curseur et combobox

BERRACHED said à dit:
Salut,yves03

a défaut d'un fichier joint essayé de mettre dans le Module de Commanbutton1 en dernier avant end sub Combobox1.Setfocus

Cordialement

Bonjour Said,

Lorsque je met Combobox1.setfocus a la fin du code de CommandButton2_Click cela fonctionne.

Par contre ça ne fonctionne pas lorsque j'appuie sur la touche Entrée, pourtant j'utilise:

Private Sub Combobox1_Keydown (Byval Keycode .......
If KeyCode = 13 Then CommandButton2_Click
end sub

Guest · 25 Août 2008

Re : Curseur et combobox

Bonjour Yves,
Hello Pierrot🙂
Salut Berrached🙂

Yves, il faut annuler le code de touche par:

If KeyCode = 13 Then KeyCode = 0: CommandButton2_Click

A bientôt

myDearFriend! · 25 Août 2008

Re : Curseur et combobox

Bonjour yves03, BERRACHED said, Pierrot93, Hasco, le Forum,

yves03 à dit:
Bonjour,
J'ai un userform avec 2 combobox un textbox + 1 bouton.
A l'initialisation de l'userform le curseur se trouve dans le 1er combobox et apres appui sur le bouton il passe dans le 2 eme combobox;
Je voudrais qu'apres appui sur le bouton le curseur reste dans le combobox 1 ( ou revienne ).
Merci d'avance

Normalement, tu n'as besoin d'aucun code VBA pour que le curseur reste sur le ComboBox1 après clic sur le bouton. Il suffit simplement de mettre la propriété TakeFocusOnClick du CommandButton sur False. Ainsi, quand l'utilisateur cliques sur le bouton, le curseur reste à son emplacement initial (dans le ComboBox1 donc). Il faut bien sûr virer les Keydown, Exit et autres SetFocus pour ne pas en polluer l'effet.

yves03 à dit:
...pourtant j'utilise:

Private Sub Combobox1_Keydown (Byval Keycode .......
If KeyCode = 13 Then CommandButton2_Click
end sub

Quelle est ton intention ? Souhaites-tu simuler un clic sur le CommandButton lorsque l'utilisateur fait Entrée (quelque soit l'endroit où se trouve le curseur) ?
Dans l'affirmative, alors tu peux supprimer cet évènement KeyDown du ComboBox1 et mettre la propriété Default du CommandButton à True. Tu obtiendras cet effet sans aucun code VBA nécessaire.

Cordialement,

Guest · 25 Août 2008

Re : Curseur et combobox

Re tout le monde,
Bonjour mDf🙂,

Je viens d'essayer ta soluce qui fonctionne jusqu'à ce que je mette la propriété default à true sur le commandButton. Cela semble contrarier le TakeFocusOnClick = False.

????

A bientôt

myDearFriend! · 25 Août 2008

Re : Curseur et combobox

Hasco à dit:
Re tout le monde,
Bonjour mDf🙂,

Je viens d'essayer ta soluce qui fonctionne jusqu'à ce que je mette la propriété default à true sur le commandButton. Cela semble contrarier le TakeFocusOnClick = False.

????

A bientôt

Effectivement Hasco, tu as raison, tout dépend de ce que tu comptes faire avec et du traitement que l'ami yves03 réserve à son bouton. Le TakeFocusOnClick ne gère que le clic de l'utilisateur (avec la souris), non sa simulation grâce à sa propriété Default combinée avec la touche Entrée.

Cela dit, on peut aussi s'interroger sur l'utilité de maintenir un bouton pour un traitement, qui visiblement, peut être déclenché par la seule touche Entrée.

De toutes façons, par expérience, on s'aperçoit vite que les SetFocus et autres KeyCodes dans tous les sens vont vite transformer une appli plus ou moins bien ficelée en infâme usine à gaz... Mais bon, ça reste un avis tout à fait personnel...

Cordialement,

Guest · 25 Août 2008

Re : Curseur et combobox

Hello MyDearFriend,

mdf à dit:
on s'aperçoit vite que les SetFocus et autres KeyCodes dans tous les sens vont vite transformer une appli plus ou moins bien ficelée en infâme usine à gaz

Tout à fait d'accord.

A+++

yves03 · 25 Août 2008

Re : Curseur et combobox

Hasco à dit:
Bonjour Yves,
Hello Pierrot🙂
Salut Berrached🙂

Yves, il faut annuler le code de touche par:

If KeyCode = 13 Then KeyCode = 0: CommandButton2_Click

A bientôt

Bonjoura tous et MERCI pour vos reponses.

J'ai utilisé la solution de Hasco qui me va parfaitement bien.
J'ai laissé le choix a l'utilisateur d'utiliser soit la touche "Enter" soit le bouton, comme il s'agit de saisie à la volée a l'aide d'un lecteur code barre, c'est plus facile d'appuyer sur enter ( enfin je trouve !!) libre à chacun d'utiliser ce qui lui plait.
Merci encore
🙂

Curseur et combobox

yves03

XLDnaute Occasionnel

BERRACHED said

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

yves03

XLDnaute Occasionnel

Guest

Guest

myDearFriend!

XLDnaute Barbatruc

Guest

Guest

myDearFriend!

XLDnaute Barbatruc

Guest

Guest

yves03

XLDnaute Occasionnel

Discussions similaires

Curseur et combobox

XLDnaute Occasionnel

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

Guest

Guest

XLDnaute Barbatruc

Guest

Guest

XLDnaute Barbatruc

Guest

Guest

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency