Curseur focus

Fermé
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 24 oct. 2021 à 05:12
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 27 oct. 2021 à 20:57
Bonjour le forum, je suis dans l'incapacite de garder le focus a un endroit precis apres avoir effacer un chiffre dans un textbox
ex:
imaginez que j'ai comme nombre 123456789
et que j'efface 3 j'aimerais garder le focus apres 2 mais le focus se met jusqu'a l'arriere.

If Me.Txt_quantite.SelStart = 0 Then
Me.Txt_quantite = Left(Me.Txt_quantite, Len(Me.Txt_quantite) - 1)
Else
Me.Txt_quantite = Left(Me.Txt_quantite, Me.Txt_quantite.SelStart - 1) & Mid(Me.Txt_quantite, Me.Txt_quantite.SelStart + 1)

Me.Txt_quantite.SetFocus
End If

2 réponses

Whismeril Messages postés 19047 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 28 mai 2024 913
Modifié le 25 oct. 2021 à 07:48
Bonjour à tous les 2

si je comprends bien, la suppression dépend de la position initiale du curseur et à la fin ce curseur doit être au même endroit.

Dans ce cas, ceci devrait fonctionner
Dim position As Integer
position = Me.Txt_quantite.SelStart 'on sauvegarde la position initiale

If position = 0 Then
Me.Txt_quantite = Left(Me.Txt_quantite, Len(Me.Txt_quantite) - 1)
Else
Me.Txt_quantite = Left(Me.Txt_quantite, position - 1) & Mid(Me.Txt_quantite, position + 1)

Me.Txt_quantite.SetFocus
End If

Me.Txt_quantite.SelStart = position 'et on la remet



1
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
26 oct. 2021 à 02:01
Ta formule fonctionne assez bien,je compliquait et c'etait bien facil,merci
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707 > JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
26 oct. 2021 à 06:57
Bonjour vous deux,

Montrez quand meme comment vous faites la saisie de cette textBox
0
Whismeril Messages postés 19047 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 28 mai 2024 913 > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
26 oct. 2021 à 07:29
Bonjour à vous 2

Tant mieux si j’ai pu aider. Mais f894009 est bien meilleur que moi en vba, donc répondre à sa question sera certainement utile
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707 > Whismeril Messages postés 19047 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 28 mai 2024
26 oct. 2021 à 11:08
Bonjour Whismeril

Ca flotte?
0
Whismeril Messages postés 19047 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 28 mai 2024 913 > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
26 oct. 2021 à 11:46
Ben oui toujours et toi?
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707
24 oct. 2021 à 07:49
Bonjour,

Voir propriete SelSart de la TextBox
0
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
24 oct. 2021 à 15:21
Bonjour j ai tout essayé mais rien ne fonctionne le focus se place toujours a la fin dans le textbox
0
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
25 oct. 2021 à 07:08
J’ai essaye en utilisant un textbox pour avoir la position de selstart et de le soustraire a selstart cela fonctionne partiellement et ca bug
me.txt_quantite.selstart=me.txt_quantite.selstart-textbox1.value 
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707 > JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
Modifié le 25 oct. 2021 à 07:34
Bonjour,
Pas besoin de selstart sur propriete Change, vous gerez comment la saisie?
0
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
25 oct. 2021 à 07:40
Laisse moi poster le fichier
0