Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Défilement dans un textbox

Défilement dans un textbox

3 réponses
Avatar
GFortin
Allô!

Supposons que j'ai un Textbox sur un UserForm.
J'aimerais que l'item, qui s'affiche, change en utisant les flèches de
directivité Haut et Bas.

Si j'ai plusieurs Textbox > en utilisant les flèches de directivité > le
cuseur change de Textbox.

J'aimerais que le curseur reste dans le même Textbox et que l'événement de
la flèche de directivité soit détecté et m'en servir pour changer l'item
affiché dans ce textbox

Merci à l'avance

Gfortin
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
docm
Bonjour Gfortin.

En supposant que tu veux placer le choix des valeurs dans un ListBox1.


Private Sub UserForm_Initialize()
ListBox1.AddItem "1"
ListBox1.AddItem "2"
ListBox1.AddItem "3"
ListBox1.AddItem "4"
ListBox1.ListIndex = 0
ListBox1.Visible = False
End Sub

Private Sub ListBox1_Click()

TextBox1.Text = ListBox1.List(ListBox1.ListIndex)

End Sub


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

If KeyCode = 40 Then

On Error Resume Next
ListBox1.ListIndex = ListBox1.ListIndex + 1

End If
If KeyCode = 38 Then

On Error Resume Next
ListBox1.ListIndex = ListBox1.ListIndex - 1

End If
End Sub


"GFortin" wrote in message
news:
Allô!

Supposons que j'ai un Textbox sur un UserForm.
J'aimerais que l'item, qui s'affiche, change en utisant les flèches de
directivité Haut et Bas.

Si j'ai plusieurs Textbox > en utilisant les flèches de directivité > le
cuseur change de Textbox.

J'aimerais que le curseur reste dans le même Textbox et que l'événement de
la flèche de directivité soit détecté et m'en servir pour changer l'item
affiché dans ce textbox

Merci à l'avance

Gfortin




Avatar
GFortin
Allô!

Ça fonctionne bien, mais quand j'utilise les touches Haut ou Bas > le focus
du curseur se déplace dans un autre textbox

Est-il possible que le curseur reste dans ce textbox jusqu'à l'utilsation de
la touche Tab ou de la souris ??

Merci pour vos très précieuses suggestions.

Gfortin



"docm" a écrit dans le message de news:

Bonjour Gfortin.

En supposant que tu veux placer le choix des valeurs dans un ListBox1.


Private Sub UserForm_Initialize()
ListBox1.AddItem "1"
ListBox1.AddItem "2"
ListBox1.AddItem "3"
ListBox1.AddItem "4"
ListBox1.ListIndex = 0
ListBox1.Visible = False
End Sub

Private Sub ListBox1_Click()

TextBox1.Text = ListBox1.List(ListBox1.ListIndex)

End Sub


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

If KeyCode = 40 Then

On Error Resume Next
ListBox1.ListIndex = ListBox1.ListIndex + 1

End If
If KeyCode = 38 Then

On Error Resume Next
ListBox1.ListIndex = ListBox1.ListIndex - 1

End If
End Sub


"GFortin" wrote in message
news:
Allô!

Supposons que j'ai un Textbox sur un UserForm.
J'aimerais que l'item, qui s'affiche, change en utisant les flèches de
directivité Haut et Bas.

Si j'ai plusieurs Textbox > en utilisant les flèches de directivité > le
cuseur change de Textbox.

J'aimerais que le curseur reste dans le même Textbox et que l'événement
de
la flèche de directivité soit détecté et m'en servir pour changer l'item
affiché dans ce textbox

Merci à l'avance

Gfortin








Avatar
docm
Bonjour.

Il serait plus simple d'utiliser les touches Page Haut et page Bas à la
place des flèches qui sont déjà utilisées par Excel pour passer d'un
contrôle à l'autre.

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

If KeyCode = 34 Then

On Error Resume Next
ListBox1.ListIndex = ListBox1.ListIndex + 1

End If
If KeyCode = 33 Then

On Error Resume Next
ListBox1.ListIndex = ListBox1.ListIndex - 1

End If
End Sub

"GFortin" wrote in message
news:#
Allô!

Ça fonctionne bien, mais quand j'utilise les touches Haut ou Bas > le
focus

du curseur se déplace dans un autre textbox

Est-il possible que le curseur reste dans ce textbox jusqu'à l'utilsation
de

la touche Tab ou de la souris ??

Merci pour vos très précieuses suggestions.

Gfortin



"docm" a écrit dans le message de news:

Bonjour Gfortin.

En supposant que tu veux placer le choix des valeurs dans un ListBox1.


Private Sub UserForm_Initialize()
ListBox1.AddItem "1"
ListBox1.AddItem "2"
ListBox1.AddItem "3"
ListBox1.AddItem "4"
ListBox1.ListIndex = 0
ListBox1.Visible = False
End Sub

Private Sub ListBox1_Click()

TextBox1.Text = ListBox1.List(ListBox1.ListIndex)

End Sub


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal


Shift As Integer)

If KeyCode = 40 Then

On Error Resume Next
ListBox1.ListIndex = ListBox1.ListIndex + 1

End If
If KeyCode = 38 Then

On Error Resume Next
ListBox1.ListIndex = ListBox1.ListIndex - 1

End If
End Sub


"GFortin" wrote in message
news:
Allô!

Supposons que j'ai un Textbox sur un UserForm.
J'aimerais que l'item, qui s'affiche, change en utisant les flèches de
directivité Haut et Bas.

Si j'ai plusieurs Textbox > en utilisant les flèches de directivité >
le



cuseur change de Textbox.

J'aimerais que le curseur reste dans le même Textbox et que l'événement
de
la flèche de directivité soit détecté et m'en servir pour changer
l'item



affiché dans ce textbox

Merci à l'avance

Gfortin