Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Positionner Curseur à l'initialisation

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Provence Vintage

XLDnaute Occasionnel
Bonjour,

Quelqu'un à t'il une idée pour démarrer dans un formulaire avec le curseur positionné à gauche dans une TextBox!?

Merci
Bonne soirée!
 
Re : Positionner Curseur à l'initialisation

Bonsoir Jean-Marcel,


ça, malheureusement, c bon!
voici comment j'initialise le formulaire:

#Sub IniUsf()
Dim i As Long

With Sheets("Liste")
For i = 24 To 28
Controls("Cbo" & i).List = Range("Villes").Value
Next
Cbo22.List = .Range("TypeLogt").Value
Cbo29.List = .Range("Secteur").Value
End With
BtnMod.Enabled = False
BtnSup.Enabled = False
Tbx2.SetFocus
Tbx2 = Date
End Sub#

La TextBox concernée est la "Tbx2"
je démarre bien dessus, mais curseur à droite;
hors, j'ai besoin de valider la date en tabulant, ou de pouvoir le cas échéant la changer, pour que mon calcul soit en fonction pris en compte via ce code:

#Private Sub Tbx2_afterupdate()

Label75.Caption = Format((Date) - (CDate(Tbx2)), " M")
End Sub#

As tu une idée?
 
Re : Positionner Curseur à l'initialisation

Bonsoir Provence Vintage, le Forum,

Est-ce que ces 3 lignes conviennent à ton usage ?

Code:
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = 0

Espérant avoir répondu.

Cordialement.
 
Re : Positionner Curseur à l'initialisation

Bonsoir le Fil,

Pour l'instant, c job qui l'"emporte", néanmoins;
si vous essayez plusieurs dates, ex: 01/01/09; 01/06/09; vous verez, que de façon arrondie c cohérent, si vous tabulez direct, là c n'importe quoi!!!?

merci à ceux qui ont des pistes,
bonne soirée🙂
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
288
Réponses
5
Affichages
428
  • Question Question
Réponses
4
Affichages
176
  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
411
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…