Discussion :

[Paparas]

Bonjour à tous.

Je me suis mis au VBA il y a deux jours.

Je cherche a lancer plusieurs macro a la suite avec la touche Entrer dans une textbox.

exemple : si je tape "Macro1" dans ma textbox, cela me lance la Macro1 au moment ou j’appuie entrer.

dans l'idéale, après pression sur la touche entrer, effacer le texte de la textbox et replacer le curseur dans la textbox (prêt à écrire une nouvelle macro)

j'ai cherché un peu partout sur les forum et le net mais aucun cas ne correspond au miens ou alors les code ne fonctionne pas (ou je les utilise mal) :/

je suis sous office 365 ou office 2013 (au choix)

pouvez vous m'aidez ?

merci beaucoup !

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case TextBox1
Case "Macro1"
    Call Macro1
Case "Macro2"
    Call Macro2
Case "Macro3"
    Call Macro3
End Select

[MarcelG]

Bonjour,

Ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run Txt_matextbox.Text

[Paparas]

Whaou... vous êtes incroyable ! sa fait 6h que je passe dessus ! merci beaucouppppppp

par contre a la fin du traitement le "curseur" reste sur la celule modifiée.

Quelqu'un sais quelle commande mettre pour revenir sur ma textbox ? si possible en effaçant tout les caractère précédement tapé dans la textbox ?

Merci encore vous devriez être payé pour ça !!

[MarcelG]

Salut,

Voir la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Setfocus

et la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Text

Plus d'informations dans ce tutoriel

Une remarque cependant
Pourquoi ne pas utiliser plutôt une zone de liste déroulante (Combobox), ceci pour une plus grande souplesse d'utilisation et un risque d'erreur de saisie moindre.
Pour l'initialiser, utiliser la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Listindex

(=...)

Voir le même tutoriel, ainsi d'ailleurs que tout l'espace - fondamental - de Silkyroad pour information.

Sache aussi que notre seul salaire est la gratitude de nos interlocuteurs (moi-même en faisant partie), et, pourquoi pas, un petit .

[Paparas]

ça ne fonctionne pas :/

j'ai ajouté "Setfocus.text" a la fin du code mais j'ai toujours le curseur qui reste sur la cellule modifiée.

j'ai également essayé d'y ajouter le nom de la textbox a la suite mais cela ne fonctionne pas.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Carte_Change()
Select Case Carte
Case "1"
    Call Macro1
Case "2"
    Call Macro2
Case "3"
    Call Macro3
End Select
SetFocus.Text
End Sub

Y voyez vous un problème ?

j'ai aussi essayé avec une formule trouver dans ton tuto

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Carte
.SetFocus
.SelStart = 0
.SelLength = Len(Textbox1.Text)
End With

Mais cela bloque à ".Setfocus"

:/