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

Version imprimable

Voir 40 message(s) de cette discussion en une page

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...

27/07/2006, 14h15
Commodore

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

27/07/2006, 14h25
Ender

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 :)
27/07/2006, 14h26
Commodore

j'aime bien cette solution :) elle est claire et facile a mettre en oeuvre.
27/07/2006, 14h33
Ender

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:

27/07/2006, 14h56
Commodore

allez, pour la route :P

message d'erreur ?
où as tu mis listbox1.visible=false ?
27/07/2006, 15h04
Ender

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 ?
27/07/2006, 15h13
SfJ5Rpw8
:oops:
je crois que c'est plutôt :
Code:

1 2 ListBox1.RemoveItem (0)
:cry:
27/07/2006, 15h22
Ender

Exact, merci :)

Et pour le fait qu'il faut que ce soit visible, c'est normal ?
27/07/2006, 15h28
Commodore

non, normalement tu peux la masquer...
-edit- quelle erreur fait il quand tu la mets en visible=false ?
quelle est la ligne surlignée ?
27/07/2006, 15h34
SfJ5Rpw8

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)
27/07/2006, 15h39
Ender

Bon, je crois que le débat est clos. Le problème est résolu.
Merci à tous :)
27/07/2006, 16h45
Commodore

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

Voir 40 message(s) de cette discussion en une page