lancer une macro a en pressant entrée

[youki]

Bonjour à tous, bonne vacances à ceux qui y sont veinards.
J'ai un textbox qui me sert à attribuer un nombre d'heure , normalement on marque un nbr d'heure et on clic sur le bouton que j'ai placé à coté pour attribuer(en clair lancer une macro de base).

Je souhaiterais que l'on puisse lancer cette macro en appuyant sur entrée apres la saisie. Cela ferait gagner un temps fou aux opérateurs plutot que de reprendre la souris à chaque fois.

Merci pour votre aide.

 

[tototiti2008]

Re : lancer une macro a en pressant entrée

Bonjour youki,

et la touche Entrée, les utilisateurs la tape après avoir modifié le contenu d'une cellule précise ?

 

[Guest]

Re : lancer une macro a en pressant entrée

Bonjour Youki,

Sur évènement KeyUp du textBox:

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then [COLOR=red]LANCER_MACRO[/COLOR]
End Sub

où il faut remplacer LANCER_MACRO par le nom de la macro à appeler

A bientôt

 

[tototiti2008]

Re : lancer une macro a en pressant entrée

Bonjour Hasco,

Pour le coup, j'avais vraiment mal lu... à côté de la plaque cette fois-ci

 

[Guest]

Re : lancer une macro a en pressant entrée

hello tototiti,

Cela m'arrive plus souvent qu'il ne faudrait....

A++

 

[youki]

Re : lancer une macro a en pressant entrée

actuelement: je coche une case (selon le choix de vehicule par exemple) ce choix une fois coché ouvre une frame juste en dessous qui contient:

• Un textbox (au nom du vehicule)
• un bouton "attribuer"

Lorsqu'ils ont remplie le textbox ACTUELEMENT ils clic sur "attribuer" ça ferme la frame et on continue.

Je souhaiterais que au lieu d'aller cliquer on puisse appuyer sur entree.

Les textbox contenu dans ma frame principales fonctionnent naturellement ainsi.

 

[Guest]

Re : lancer une macro a en pressant entrée

Hello Youki,

tu as testé la solution donnée dans le message plus haut ?

A+

 

[youki]

Re : lancer une macro a en pressant entrée

Je bidouille car ça ne fonctionne pas(chez moi - je ne critique pas )

Private Sub tps_attribution_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyExecute Then
    attribuage
    End If
End Sub

J'ai rajouté le End if et ai modifié le vbkeyreturn par vbkeyExecute: Dans les deux cas c'est un echec

 

[Guest]

Re : lancer une macro a en pressant entrée

Hello,

Pourquoi vbKeyExecute au lieu de vbKeyReturn?

Et si cela ne marche pas, joins un fichier. Parce que cela peut durer longtemps....

a bientôt