Validation par touche entrée [Résolu]

Signaler
Messages postés
110
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
2 avril 2010
-
Messages postés
36
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
18 janvier 2013
-
Bonjour bonjour!

Voilu j'ai une textbox, et je voudrais que suite à l'appuie sur la touche entrée, je puisse executer une procédure, or cela ne me fais qu'une "validation" ou tabulation..

Ya-t-il un moyen de passer cela?

Merci d'avance!

7 réponses

Messages postés
110
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
2 avril 2010

Heu ben en fait je viens de trouver :/
Désolé pour le post, si ça peut interesser quelqu'un il faut passer par l'evenement Keydown et non KeyPress comme j'essayai de faire...

If KeyCode = 13 Then blablbla...
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

autre solution :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        blablabla
    End If
End Sub

A+
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Bonjour,

arrhhh, pas assez rapide...
Marrant je venais juste de répondre à la même question à un post juste précédent... avec la même solution... CQFD !
http://www.vbfrance.com/infomsg_MISE-FORME_1147476.aspx#1

Amicalement,
Us.
Messages postés
110
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
2 avril 2010

C'est la que j'ai vu la réponse ^^ mais selon le titre je pensais pas trouver ma réponse :)
Oui vbkeyreturn aussi ça marche :)

Merci bien à tous ;)
Messages postés
36
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
18 janvier 2013

Bonsoir à tous,

Désolé de ressortir un vieux poste qui m'a bien aidé ...

Mais j'aurai eu un petite question en rapport à ce sujet !?!?

Voilà avant de trouver la solus grâce à vous, j'ai cherché dans la librairie MSDN. Je suis tombé sur un exemple du genre :

If KeyCode = vbKeyF2 Then   ' Affiche les combinaisons de touches.
   lalalloulririr
   blblba 
End If


avec l'explication ci-dessous :

keycode Code de touche, par exemple vbKeyF1 (touche F1) ou vbKeyHome (touche DÉBUT). Pour spécifier des codes de touche, utilisez les constantes répertoriées dans la bibliothèque d'objets Visual Basic (VB) de l'Explorateur d'objets.

ensuite (voir texte ci-dessus), ils font mention d'une bibliothèque d'objet qu'on peut visualiser dans l'explorateur d'objets. J'ai réussi à ouvrir l'explorateur, mais je n'ai pas réussi à visualiser les différents noms des touches. Il est vrai que pour moi, j'ai résonné en terme de "Enter", et non de retour chariot (Return) .

Avez-vous déjà utilisé cette bibliothèque ? et comment l'utilise-t-on.
Merci pour vos futures réponses ou suggestions.

Amicalement Philou

PS: dites-moi si je dois créer un nouveau sujet pour cette discussion, mais il me semblait intéressant de poster le msg là ?!?!
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
Bonjour,

peut-être en frappant le mot constants dans ton aide en ligne, puis en choisissant la rubriques relatives aux touches du clavier...


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Messages postés
36
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
18 janvier 2013

Bonjour à tous,

Sorry pour le temps de réponse à ce sujet, mais je tenais à te remercier pour ton aide précieuse Ucfoutu...

Voici pour ceux qui seraient un peu perdu comme je l'ai été...

Image pour la référence des touches

Et voici ce que cela donne en code :

If KeyCode = vbKeyReturn Then
Valid_msg4.Visible = False
        
        Instruct_4.BackColor = &HFF00&      'vert
        Instruct_4.Font.Bold = True         'texte en gras
        Instruct_3.BackColor = &HFF&        'Rouge
        Instruct_3.Font.Bold = False        'Non gras
    
    End If