[VBA-E] Appuyer sur la flèche du haut dans un textbox

Bonjour,

J'ai deux textbox. Quand j'écris dans TextBox1 et que j'appuie sur Entrée, le texte est coupé et collé dans TextBox2. Si je refais ça une deuxième fois, ça le met à la suite dans TextBox2. Jusque là pas de problème.

Je voudrais savoir comment faire pour que quand on tape sur la flèche du haut, ça fait apparaitre dans TextBox1, le dernier texte envoyé. Si on appuie deux fois, ça affiche l'avant dernier texte tapé et envoyé.
Ca peut servir dans le cas où l'utilsateur veut écrire quelque chose qu'il avait déjà écrit. Ca irait plus vite d'appuyer sur la flèche du haut que de réécrire.

Ca marche aussi dans MSN (version récente, je sais pas s'il faut avoir MSN Plus pour que ça marche), si vous faîtes Ctrl+[Flèche du haut] ça affiche le dernier texte.

Merci

il faut que tu crées une pile.
en fait, il s'agit d'un tableau dans le quel tu empile des données (d'où son nom).
il te faut pour ça: une méthode "empiler()" et une méthode "dépiler()"
Empiler() ajoute a la fin du tableau un element
Depiler() retourne le dernier element du tableau (et l'enlève de ce dernier)

Ainsi, a chaque appui sur Entrée, tu ajoutes à ta pile la valeur de textbox1.
A chaque appui sur la fleche du haut tu dépiles et tu mets le résultat dans textbox1.

Tu mets la propriété "Multiligne" de ton textbox = true et tu peux utiliser la flèche du haut ;)
C'est une autre méthode... Mais c'est plus simple :mouarf:

;)

Citation:

---

Tu mets la propriété "Multiligne" de ton textbox = true et tu peux utiliser la flèche du haut
C'est une autre méthode... Mais c'est plus simple

---

:aie:
C'est pas bête mais en fait quand j'appuie sur entrée et que le texte est collé dans TextBox2, j'efface TextBox1.

Citation:

---

il faut que tu crées une pile.
en fait, il s'agit d'un tableau dans le quel tu empile des données (d'où son nom).
il te faut pour ça: une méthode "empiler()" et une méthode "dépiler()"
Empiler() ajoute a la fin du tableau un element
Depiler() retourne le dernier element du tableau (et l'enlève de ce dernier)

Ainsi, a chaque appui sur Entrée, tu ajoutes à ta pile la valeur de textbox1.
A chaque appui sur la fleche du haut tu dépiles et tu mets le résultat dans textbox1.

---

OK, bonne idée, je vais tenter.
Merci ;)

essaie de faire la pile dans un module à part.
Comme ça tu pourras la réutiliser quand nécessaire. c'est un outil de plus a portée de main.

de même, essaie de voir si il n'existe pas une source déjà faite en VB(A).
ça t'inspirera pour la développer. (:google2: )

-edit- il s'agit du principe LIFO (Last In First Out)
tu trouveras aussi les FIFO (First In First Out) : ce sont les files

Citation:

---

C'est pas bête mais en fait quand j'appuie sur entrée et que le texte est collé dans TextBox2, j'efface TextBox1.

---

Oui, et quel est le pb ? Si TextBox1 est vide, pourquoi as-tu besoin de te déplacer dans le texte ?
J'ai bien compris que je n'avais pas compris ;) Une bédide egsbligazion beut d'être...

il veut pouvoir faire comme dans une interface console, tu peux récupérer les dernieres commandes passées...

Un test sur le caractère frappé et si c'est flêche haute, on restitue à Textbox1 ce qu'il y a dans testbox2
Le keycode de ▲ ? Je cherche et je donne dans... 10s
38 ! (le keycode)
Dans textbox_keyup, suffit de mettre

Code:

---

if keycode = 38 then Textbox1.text = Textbox2.text

---

et comme tu vas vouloir utiliser de nouveau la flêche haute, tu déclares un boolean en public que tu mets à true quand tu rentres dans textbox1 et que tu remets à false dans textbox1_Exit, et enfin, tu modifies la ligne donnée plus haut

Code:

---

if keycode = 38 and not LeBoolean then Textbox1.text = Textbox2.text

---

Oh, juste une idée comme ça, pas faite pour les puristes ;)

pas tout a fait... Ender, corrige moi si je me trompe.

en fait:
1) on entre "machin" dans textbox1 et on presse entrée.
2) textbox2 contient maintenant "machin" et textbox1 se vide
3) on entre "truc" dans textbox1 et on presse entrée
4) textbox2 contient maintenant "machintruc"
5) si on fait fleche du haut dans textbox1, textbox1 contient "truc".
6) si on refait fleche haut, il contient "machin"

Pour le boolean, j'ai plus simple

Code:

---

1 2 3 4 5

Private sub textbox_keyup(..... blabla....) if keycode = 38 and not LeBoolean then Textbox1.text = Textbox2.text LeBoolean = true endif

---

Si tu veux bien... :mouarf:

Citation:

---

pas tout a fait... Ender, corrige moi si je me trompe.

en fait:
1) on entre "machin" dans textbox1 et on presse entrée.
2) textbox2 contient maintenant "machin" et textbox1 se vide
3) on entre "truc" dans textbox1 et on presse entrée
4) textbox2 contient maintenant "machintruc"
5) si on fait fleche du haut dans textbox1, textbox1 contient "truc".
6) si on refait fleche haut, il contient "machin"

---

Exactement !! A la seule différence que :
4) textbox2 contient maintenant :
machin
truc
je mets un vbCrLf à chaque fois (TextBox2 est multigne)

Citation:

---

Si tu veux bien...

---

Bien sûr que je veux bien :lol:
Mais j'ai regardé deans l'aide de VBA et il n'existe pas d'événement Exit pour les TextBox ?!

Mais si l'événement Exit existe bien pour un textbox ;) En mode création, deux clics sur Textbox affiche certainement
Private Sub TextBoxx_Click()
Regarde dans la liste d'événements en haut et à droite de la page de code, Exit s'y trouve bien.
Bon, comme je pense que tu connais tout ça, je me pose la question : Il sont où tes textbox ? Dans un form ou dans une feuille de calcul ?
Dans une feuille de calcul ? Alors tu as raison.
Tu peux préciser ?
Si c'est le cas, alors ça ne m'étonne pas que tu n'aies rien trouvé dans MSDN ;)
A+

Au temps pour moi, j'avais mal déclaré Exit ;)
Mes TextBox sont dans un UserForm.
J'ai essayé de tester si KeyCode valait 38, mais je ne comprends pas pourquoi quand j'appuie sur ▲, TextBox1 perd le focus et TextBox2 le récupère.

Sinon, je me demandais si je crée un tableau (20 cases par exemple, comme ça on garderait les 20 derniers envois), et que je n'ai écrit que 5 commandes, que va-t-il se passer si j'appuie 6 fois ou + sur ▲ ?
Il va y avoir une erreur non ?

en créant une pile, tu ajoutes des éléments à ton tableau.
En VBA, si tu veux définir une pile de maximum 20 éléments, le plus simple est de créer un tableau de 20 éléments, choisir une valeur par défaut dans chaque case: cette valeur signifiera que la case est vide.
Ensuite, quand tu empiles tu remplace cette valeur par une donnée.
Quand tu dépiles, tu remets la valeur par défaut.

Ainsi, si tu as 5 éléments, tu vas appuyer 5 fois sur 'haut'.
de la 1ere à la 5e fois: tu trouves des données
la 6e fois tu trouves la valeur par défaut. Alors tu la traites. (retour à la première case, rester sur la 5e, msg erreur... ce que tu veux)

Citation:

---

que va-t-il se passer si j'appuie 6 fois ou + sur ▲ ?

---

Rien du tout, tu vas simplement rester sur place sur la première ligne de Listbox1 qui contiendra le texte de Listbox2

Citation:

---

mais je ne comprends pas pourquoi quand j'appuie sur ▲, TextBox1 perd le focus et TextBox2 le récupère.

---

Ça, c'est beaucoup plus em...dant
Je regarde

Repasse-nous le code que tu utilises pour placer le texte saisi dans TextBox1, dans TextBox2, ça nous évitera de rechercher ;)
Merci

Citation:

---

Ça, c'est beaucoup plus em...dant

---

+1

ça devrait etre shift+tab qui fait ça... 8O

Bon, je viens de retrouver le code.
Au départ, il ne s'agissait que de pouvoir renseigner TextBox2 lors de la saisie de Textbox1
Ensuite, tu as voulu pouvoir effacer le dernier caractère saisi. On peut faire ça en identifiant Keycode = 8
Ensuite, tu veux pouvoir relire TextBox2 dans TextBox1 et réaliser des modifications
Enfin, tu veux pouvoir te promener dans textbox1 comme chez toi...

Inconvénient de Keycode : n'a pas la même valeur que Keyascii. Les minuscules ascii (97 à 122) perdent 32 avec keycode et deviennent donc des majuscules (65 à 90)
Mais ce n'est pas vrai pour les autres caractères. Bref j'ai modifié ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim LeBoolean As Boolean   Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If LeBoolean = True Then Cancel = False Else Cancel = True End If LeBoolean = False End Sub   Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox2.Text = TextBox2.Text & Chr(KeyAscii) End Sub   Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)   If KeyCode = 8 Then TextBox2.Text = Left(TextBox2.Text, Len(TextBox2.Text) - 1) ElseIf KeyCode = 38 And Not LeBoolean Then TextBox1.Text = TextBox2.Text LeBoolean = True End If End Sub

---

Tu vérifies mais la prochaine fois, essaie de définir tes besoins d'un seul coup d'un seul ;)

Oui, parce que... si tu veux modifier du texte non pas à la fin de la saisie dans textbox1 mais à l'intérieur de cette saisie, tu vas devoir gérer ça différemment. Et là, j'hésite entre deux méthodes (!)
Merci de nous tenir au courant de tes avancées

Ouskel'n'or, quand tu dis

Citation:

---

Tu vérifies mais la prochaine fois, essaie de définir tes besoins d'un seul coup d'un seul

---

tu veux parler d'un de mes précédents messages où je demandais comment effacer un textbox à partir d'un autre ? :)
Si c'est le cas (je pense que oui en ayant vu l'évenement KeyPress de ton dernier message), je te remercie d'être aussi professionnel dans ce que tu fais parce que tu n'étais pas obligé de revoir tous mes messages. Donc merci :)
Mais, je n'avais pas trouvé de réponse au problème, donc j'ai delesté ce message il y a quelques jours (j'ai juste mis la balise Délestage sans avoir précisé que je contournerai le problème, désolé :oops: ) et j'ai modifié mon code pour ne plus avoir ce problème. En gros, j'ai viré mon deuxième TextBox pour ne pas avoir à gérer trop de choses.

Donc je redéfinis le problème présent (on oublie tout les messages des autres discussions) : (Textbox2 d'aujourd'hui est différent du TextBox2 de l'autre discussion que j'ai delesté)

Voici le code

Code:

---

1 2 3 4 5 6 7 8

Public Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'ligne de commande   If KeyCode = vbKeyReturn Then 'touche Entrée appuyée TextBox2 = TextBox2 + TextBox1 + vbCrLf TextBox1 = "" End If   End Sub

---

Si l'utilisateur fait une faute, c'est pas grave, tant qu'il n'a pas appuyé sur Entrée, il peut effacer à volonté TextBox1
Quand il appuie sur Entrée, il doit pouvoir récupérer l'info en appuyant sur ▲.

Citation:

---

ça devrait etre shift+tab qui fait ça...

---

C'est-a-dire ? Il faut changer une propriété de TextBox1 ?

Merci

tiens un peu de code à completer :

Code:

---

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

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)   Select Case KeyCode Case vbKeyReturn 'touche Entrée appuyée TextBox2 = TextBox2 + TextBox1 + vbCrLf TextBox1 = "" Case vbKeyUp KeyCode = 0 '... rajouter ici le traitement selection dans textbox2.. End Select End Select   End Sub

---

sinon ton textbox2.. est-t'il visible sur ta form..? il serai peu-être plus simple d'utiliser un listBox.. , au moins tu n'aurai pas d'index à gérer...

Ender> no, je parlais du refocus... il ne faut rien redéfinir a ce niveau, je te rassure.

donc avec une listbox1 à la place du textbox2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)   Select Case KeyCode Case vbKeyReturn 'touche Entrée appuyée If ListBox1.ListCount > 20 Then ListBox1.List(0).Delete ListBox1.AddItem TextBox1 ListBox1.ListIndex = ListBox1.ListCount - 1 TextBox1 = "" KeyCode = 0 'On change pas de textbox.. Case vbKeyUp KeyCode = 0 '... rajouter ici le traitement selection dans textbox2.. If ListBox1.ListIndex > 0 Then ListBox1.ListIndex = ListBox1.ListIndex - 1 End If TextBox1 = ListBox1.Text Case vbKeyDown KeyCode = 0 '... rajouter ici le traitement selection dans textbox2.. If ListBox1.ListIndex < ListBox1.ListCount - 1 Then ListBox1.ListIndex = ListBox1.ListIndex + 1 TextBox1 = ListBox1.Text End Select End Sub

---

bbil,

Citation:

---

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

---

Tu veux plutôt dire : Private Sub TextBox1_.....

Citation:

---

sinon ton textbox2.. est-il visible sur ta form..? il serait peut-être plus simple d'utiliser un listBox.. , au moins tu n'aurais pas d'index à gérer...

---

Oui, il est visible sur le userform.
Pour le listbox, je ne préfère pas parce que dans le code il m'arrive de comparer ce que contient TextBox2 à l'instant T+1 avec ce qu'il contenait à l'instant T. Donc j'ai besoin de connaitre tous les caractères de TextBox2.
Mais je vous rassure ça ne change en aucun cas le problème pour ▲ qui concerne TextBox1 :)

j'aime bien cette solution :) elle est claire et facile a mettre en oeuvre.

bbil, bien joué ton code avec le listbox ;)
Je pense qu'il peut servir à d'autres pour qui c'est égal d'avoir une listbox.

Par contre, tu m'a peut-être mis sur la piste. Plutôt que de créer un tableau qui me servira de pile et de risquer d'en sortir et d'avoir une belle erreur de débogage, je vais faire une pile à partir de la listbox. Elle ne sera pas visible, et quand j'appuierai sur ▲, je copierai la ligne selectionnée dans TextBox1.
J'essaie ça tout de suite :)

Citation:

---

Envoyé par Ender

...Pour le listbox, je ne préfère pas parce que dans le code il m'arrive de comparer ce que contient TextBox2 à l'instant T+1 avec ce qu'il contenait à l'instant T. Donc j'ai besoin de connaitre tous les caractères de TextBox2....

---

??

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim t As Integer t = ListBox1.ListCount - 2 If t >= 0 Then MsgBox "Je Compare T+1 :" & ListBox1.List(t + 1) & " Avec T : " & ListBox1.List(t) End If End Sub

---

C'est que ça marche à merveille cette histoire :D
Dans le code de bbil

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)   Select Case KeyCode Case vbKeyReturn 'touche Entrée appuyée If ListBox1.ListCount > 20 Then ListBox1.List(0).Delete ListBox1.AddItem TextBox1 ListBox1.ListIndex = ListBox1.ListCount - 1 TextBox1 = "" KeyCode = 0 'On change pas de textbox.. Case vbKeyUp KeyCode = 0 '... rajouter ici le traitement selection dans textbox2.. If ListBox1.ListIndex > 0 Then ListBox1.ListIndex = ListBox1.ListIndex - 1 End If TextBox1 = ListBox1.Text Case vbKeyDown KeyCode = 0 '... rajouter ici le traitement selection dans textbox2.. If ListBox1.ListIndex < ListBox1.ListCount - 1 Then ListBox1.ListIndex = ListBox1.ListIndex + 1 TextBox1 = ListBox1.Text End Select End Sub

---

J'ai juste ajouté TextBox2=TextBox2+TextBox1+vbCrLF juste avant TextBox1="" (ligne 7)
Et c'est bon !!!

Merci bbil pour cette idée de Listbox et pour ton code
Merci Ouskel'n'or et Commodore_Psykopate pour l'avoir mis sur la bonne voie.


Juste un tout petit problème, si je mets Listbox1.visible = false, ça marche pas :aie:

allez, pour la route :P

message d'erreur ?
où as tu mis listbox1.visible=false ?

Citation:

---

où as tu mis listbox1.visible=false ?

---

Tu veux dire dans mon code ?
Nulle part, je l'ai mis dans les propriétés qui sont à gauche de l'écran, là où y'a la liste de toutes les propriétés de chaque objet.


Juste un truc en +,

Code:

---

If ListBox1.ListCount > 3 Then ListBox1.List(0).Delete

---

Je vois le premier texte tapé sur la première ligne, le deuxième sur la deuxième ligne, le troisième sur la troisième ligne, le quatrième sur la quatrième ligne et après si je tape un nouveau truc dans TextBox1, j'ai

Citation:

---

Erreur d'exécution 424 Objet requis

---

et ça surligne
ListBox1.List(0).Delete

Pourquoi ?

:oops:
je crois que c'est plutôt :

Code:

---

1 2	ListBox1.RemoveItem (0)

---

:cry:

Exact, merci :)

Et pour le fait qu'il faut que ce soit visible, c'est normal ?

non, normalement tu peux la masquer...
-edit- quelle erreur fait il quand tu la mets en visible=false ?
quelle est la ligne surlignée ?

Citation:

---

Envoyé par Ender

Juste un tout petit problème, si je mets Listbox1.visible = false, ça marche pas :aie:

---

oui c'est parce qu'elle n'as pas de jambe... ! :mouarf:

:? tu aurai pu être plus clair dans ton message... :?

bon en fait (pour les autres) quant tu met le listbox1.visible à false .. lors de la lecture de Listbox1.text , celle-ci est toujours vide.. ! (je le savais pas ..!)

bon remplace les

Code:

---

Listbox1.text

---

par

Code:

---

ListBox1.List(ListBox1.ListIndex)

---

Bon, je crois que le débat est clos. Le problème est résolu.
Merci à tous :)

bon, ben j'aurai appris quelque chose aussi :)