Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel TEXTEBOX - touche entrée.

TEXTEBOX - touche entrée.

1 réponse
Avatar
Poulpor
Bonjour,

Je voudrais déclencher, suite àa la touche 'Entrée', une macro.

J'avais trouvé le code ci-dessous qui ne marche pas. J4ai oublié un truc ?
le code ASCII 'est pas exact ?

Merci de vos lumières.

Poulpor.



Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next

If KeyAscii = 13 Then

Call MyDatabase.ChercheVille(Sheets("QUERY").TextBox1.Value)


End If
'End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Essaie avec l'évènement "TextBox1_KeyDown" au lieu de "TextBox1_KeyPress".
Cordialement.
Daniel
"Poulpor" a écrit dans le message de
news:
Bonjour,

Je voudrais déclencher, suite àa la touche 'Entrée', une macro.

J'avais trouvé le code ci-dessous qui ne marche pas. J4ai oublié un truc ?
le code ASCII 'est pas exact ?

Merci de vos lumières.

Poulpor.



Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next

If KeyAscii = 13 Then

Call MyDatabase.ChercheVille(Sheets("QUERY").TextBox1.Value)


End If
'End Sub