OptionButton4_Enter et SetFocus ne marche pas!

[Claudy]

Bonjour à tous,
Avec un USF, ce code fonctionne bien:
Private Sub OptionButton4_click()
Cartes.CommandButton1.SetFocus
Range("G2") = "Visa"
Range("M1") = 1
End Sub

Mais ce que je voudrais, c'est faire une saisie directe depuis mon clavier, donc,
appliquer ceci:
Private Sub OptionButton4_Enter()
Cartes.CommandButton1.SetFocus
Range("G2") = "Visa"
Range("M1") = 1
End Sub

Et là, mon set focus ne fonctionne pas!
Avez vous une idée?
Merci d'avance,
Claudy.

 

[Épaf]

Re : OptionButton4_Enter et SetFocus ne marche pas!

Bonjour Claudy,
As-tu essayé avec Keypress... etc ?

 

[Papou-net]

Re : OptionButton4_Enter et SetFocus ne marche pas!

Bonjour Claudy,

C'est normal que ça ne fonctionne pas, car l'événement Enter se produit juste avant que le contrôle n'obtienne le focus : soit en cliquant dessus, soit par l'intermédiaire d'un autre événement.

Tu ne peux donc lui passer le focus de cette façon.

Espérant avoir répondu.

Cordialement.

Oups, bonjour Épaf.

 

[Claudy]

Re : OptionButton4_Enter et SetFocus ne marche pas!

Merci à vous deux,
Avec Keypress , j'ai une "Compile error"...

Je fais quoi alors?
A+

 

[Fo_rum]

Re : OptionButton4_Enter et SetFocus ne marche pas!

salut

si tu veux juste placé le Focus, essaie:

Private Sub OptionButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  '13 pour Entrer, 32 pour Espace ...
  If KeyAscii = 13 Then
   ' OptionButton1 = 1     <-- à voir
    Cartes.CommandButton1.SetFocus
    Range("G2") = "Visa"
    Range("M1") = 1
  End If
End Sub

 

[Claudy]

Re : OptionButton4_Enter et SetFocus ne marche pas!

Ok, merci ça marche!
Bonne journée à tous,
Claudy