Entrer exécute macros

Bonjour,

Quand je suis dans ma zone texte et que je click sur un bouton, ma macro s’exécute nickel.
Par contre quand je tape entrer ça ne fonctionne pas

Ma commande donne ça:

Code:

---

1 2 3 4 5 6 7

Private_sub CommandButton1_Click() ma macro End Sub   Private Sub WorkSheet_Open () Application.OneKey «{ENTER}», «ma macro» End Sub

---

Merci de vos réponses

Bonjour,

Si tu mets la propriété Default de ton bouton à True, il réagira à la touche Enter
Pas besoin de OnKey à l'ouverture

Autrement, si le textbox conserve son focus, tu peux utiliser KeyDown

Code:

---

1 2 3 4

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

---

Je n’ai pas trouvé la commande défaut,
Par contre la commande vba marche nickel

Juste une question par rapport à la commande vba
Quand je tape sur entrer, il va a la case suivante.

Est-il possible qu’il cherche que le texte qui est écrit dans la textbox1 ?
Est qu’il cherche que dans la colonne à entre la ligne 7 et 600 ???

Merci pour vos réponse rapide

Désolé, mais peux-tu reformuler ta question?
Je n'ai rien compris...:?

Par exemple dans ma colonne j’ai 10, 11, 12, 13, 14, 15
Je tape 12 dans ma textbox puis entrer il va dans la case écris 12
Je reclick sur entrer il passe dans la case 13

J’aimerais savoir si il peut rester dans la case 12 ? Car j’aimerais qu’il recherche ce qui est écrit dans la textbox à chaque fois que je tape sur entrer.

De plus qu’il recherche dans la colonne «*A*» entre la ligne 7 et 600

Est-ce plus clair ?

Il faudrait voir ce que tu as mis dans ta macro ou dans CommandButton1_Click

EDIT: où est le textbox? sur la feuille ou dans un Userform ?

https://imagizer.imageshack.com/v2/1...924/gqgit1.png

Voilà mon tableau

https://imagizer.imageshack.com/v2/1...922/dRZyhx.png

Voilà ma macro

https://imagizer.imageshack.com/v2/1...922/Obs8P2.png

Voilà ma commande vba

J’aimerais que ma textbox recherche dans la colonne À si je tape le numéro de ma carte de dans jusqu’à la ligne 500 soit en click sur le bouton recherche soit en tapant entrer.
Et que si il trouve pas il me met un message du style pas trouver où existe pas.


Merci à tous pour vos réponses

Salut,

Déjà, ta méthode Find n'est pas écrite correctement, et elle ne s'applique pas sur un objet Cells... (enfin si... mais non !)

Un petit truc testé vite fait, avec un pseudo-masque de saisie, puisque tes cartes semblent suivre un format identique :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub recherche_cartes_Change() Dim rg As Range, sSaisie As String sSaisie = recherche_cartes.Text If sSaisie Like "##" Or sSaisie Like "##-##" Then ' ajout automatique d'un tiret en 3ème et en 6ème position recherche_cartes.Text = sSaisie & "-" Exit Sub End If If Len(recherche_cartes.Text) < 9 Then Exit Sub ' les n° de cartes comportent 9 caractères numériques Set rg = Range("A7:A500").Find(sSaisie, LookIn:=xlValues, LookAt:=xlWhole) If Not rg Is Nothing Then MsgBox ("Trouvé !") Else MsgBox ("pas trouvé !") recherche_cartes.Text = "" End If End Sub

---

Il faudrait ajouter un bout de code pour n'autoriser la saisie que de chiffres uniquement...

Du coup je mets ça pour ma macro ou sur mon feuillet ?

Citation:

---

Envoyé par Maxou 10

Du coup je mets ça pour ma macro ou sur mon feuillet ?

---

je n'ai fait que reprendre le code que tu as mis en copie d'écran.... C'est bien sûr sur l'évènement Change du TextBox que tu as appelé "recherche_cartes" qu'il faut le mettre. ;)

Est-il possible plutôt que de mettre le msg «trouvé !» cela sélectionne la Case ou la carte est écrite ???

Merci

rng.select

Oki je fais ça demain à la place du msgbox et vous tiens au courant....

Merci pour tout, ça marche nickel.... vous êtes vraiment doué !

Une dernière question, est-il possible de valider le texte par entrer plutôt que ça cherche tout seul automatiquement ?

Bonne journée