Discussion :

[NEC14]

Bonjour à tous,

Content de vous retrouver après plusieurs mois en convalescence.

Dans un TextBox sous Vba, j'aimerai que lorsque 2 chiffres après la virgule ont été tapé, que la tabulation se fasse automatiquement.
Ce peut être 1.01 comme 10000000.01
Merci par avance pour votre aide

[mayekeul]

plutot comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub tb1_Change()
Dim test As Variant
Dim DS As String
 
DS = Application.DecimalSeparator
 
test = Split(CDbl(TB1), DS)
If UBound(test) Then
    If Len(test(UBound(test))) = 2 Then SendKeys "{TAB}"
End If
 
End Sub

[NEC14]

Merci beaucoup.
C'est super

[NEC14]

Merci beaucoup.
C'est super

Désolé, je reviens vers vous car je viens de m'apercevoir d'un petit soucis.
Tant que le 2ème chiffre après la virgule se termine par autre chose que zéro, il n'y a pas de problème. Mais lorsqu'il se termine par zéro, la tabulation ne se fait pas.
Comment résoudre ce problème ?
Merci par avance

[mayekeul]

re,
effectivement, la conversion vers double crée cet effet

on peux l'enlever sans que cela aie d'incidence en principe.

[NEC14]

Effectivement ça marche mieux. Il me faut entrer dans le bain de nouveau.
Il y a longtemps que j'ai manipulé VBA.
Merci beaucoup