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"

:/

[Transitoire]

Bonsoir, je verrais plutôt quelque chose du genre

Code :

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

1
2
3
4
With Textbox1
             .Text = ""   'Remet le TextBox1 a" zéro"
             .SetFocus   'Redonne le focus à TextBox1
End with

Il faudra peut-être l'adapter à votre programme
Cordialement

[Mr l'Ashanti]

Il est préférable d'utiliser une combobox. Tu crées un tableau dans une feuille pour l'alimentation de la combobox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 private sub userform_ activate ()
Combobox.list= range(" Tableau1").value
End sub
 
Private sub combobox_change()
      If combobox.value= " nom1" then
           Userform 2.show
      Elseif combobox.value= " nom2" then
           Userform 3.show
       Else
            Userform 4.show
      End if
End sub

À adapter selon tes besoins. A+

[Paparas]

Pareil, ça bloque sur SetFocus

quand je fait un point, un menu déroulant apparait et me propose des commande. mais bizarrement Setfocus n'est pas dans cette liste.

es-ce que c'est parce que vous avez installé un module ou add-on supplémentaire ? j'ai comme l'impression que mon excel (365) ne "connais" pas cette commande. je ne sais pas l'expliqué...

Une combobox ? c'est une liste déroulante ? ça ne correspond pas a mes besoin car j'ai besoin d'executer des macro assez vite (presque une par seconde) du coup je préfère le faire au clavier c'est beaucoup plus rapide que d'utiliser la souris.


Autre chose : quand j'execute une macrox via la textbox, celle-ci ajoute 1 a la valeur d'un article x avec range ("F4") = ("R6")
du coup le curseur se déplace sur R6 et y reste. je suis obligé de prendre la souris et cliqué sur ma textbox pour entrer une autre valeur. l'idéale serai de tout faire au clavier.

j'ai essayé de faire dans le même style en ajoutant range (textbox.select) mais cela ne fonctionne pas.

Merci encore pour vos réponses je passe au moins une demi heure à exploité chacune d'entre elles, vous m'aidez beaucoup je suis près du but !

[Mr l'Ashanti]

Essaie avec ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Userform_Activate()
Textbox1. Setfocus 
End Sub
 
Private sub Textbox_afterupdate()
Do while Textbox1<>" "
 If Textbox1= "macro1" then
 Unload me
 Userform2.show
 Elseif Textbox2 ="macro2" then
 Unload me
 Userform3.show
 End if
Userform1.show
Loop
End Sub