Discussion :

[NEC14]

Bonjour à tous,

La marco ci-dessous me permet d'avoir 2 décimales après la virgule et ensuite la tabulation se fait automatiquement.
Cependant, je rencontre un problème, si je me suis trompé dans la saisie de mon premier chiffre, alors un message d'erreur apparaît et cela plante mon application.

"L'indice n'appartient pas à la sélection"
Merci par avance pour votre éclairage.

Le code :

Code :

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

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

[mercatog]

Bonjour
Je proposerai ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TxtMontant_Change()
Dim Pos As Integer
Dim Decim As String
 
With Me.TxtMontant
    Pos = InStr(.Text, ".")
    If Pos > 0 Then
        Decim = Mid(.Text, Pos + 1)
        If Len(Decim) >= 2 Then
            Pos = InStr(.Text, ".")
            .Text = Left(.Text, Pos + 2)
            Me.TextBox2.SetFocus    'Control suivant
        End If
    End If
End With
End Sub

Une autre proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TxtMontant_Change()
Dim Pos As Integer
 
With Me.TxtMontant
    Pos = InStr(.Text, ".")
    If Pos > 0 Then
        Pos = InStr(.Text, ".")
        .MaxLength = Pos + 2
        If Len(.Text) = Pos + 2 Then Me.TextBox2.SetFocus
    Else
        .MaxLength = Len(.Text) + 1
    End If
End With
End Sub

Et une autre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TxtMontant_Change()
 
With Me.TxtMontant
    If .Text Like "*.??" Then
        .MaxLength = Len(.Text)
        Me.TextBox2.SetFocus    'Control suivant
    Else
        .MaxLength = Len(.Text) + 1
    End If
End With
End Sub

Bien sûr, à tester

[Yolak]

Merci par avance pour votre éclairage.

En espérant que ça te serve:


Désolé... J'ai pas pu m'empêcher

[NEC14]

Bonjour mercatog,

Merci pour ton aide, je teste tes propositions et je te tiens informé.

Ce code ci fonctionne trés trés bien. Super

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub TxtMontant_Change()
Dim Pos As Integer
Dim Decim As String
 
With Me.TxtMontant
    Pos = InStr(.Text, ".")
    If Pos > 0 Then
        Decim = Mid(.Text, Pos + 1)
        If Len(Decim) >= 2 Then
            Pos = InStr(.Text, ".")
            .Text = Left(.Text, Pos + 2)
            Me.TextBox2.SetFocus    'Control suivant
        End If
    End If
End With
End Sub

Bonjour Yolak,

Tu as du temps à perdre ?

[Yolak]

Bonjour Yolak,

Tu as du temps à perdre ?

Oui malheureusement, et je m'excuse d'être venu polluer ce post, c'est pas mon genre...

Pour me faire pardonner, je vais tout de même apporter ma contribution:
Pourquoi réaffecter InStr(.Text, ".") à Pos une seconde fois ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TxtMontant_Change()
Dim Pos As Integer
Dim Decim As String
 
With Me.TxtMontant
    Pos = InStr(.Text, ".")
    If Pos > 0 Then
        Decim = Mid(.Text, Pos + 1)
        If Len(Decim) >= 2 Then
             ''''''''''Pos = InStr(.Text, ".")
            .Text = Left(.Text, Pos + 2)
            Me.TextBox2.SetFocus    'Control suivant
        End If
    End If
End With
End Sub

Et allez hop, je propose même une solution !

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TxtMontant_Change()
    With Me.TxtMontant
        .Text = Replace(.Text, ",", ".")  'Pour éviter les pb de caractère de décimale
        If Len(.Text) > 3 Then
            If Mid(.Text, Len(.Text) - 2, 1) = "." Then
                Me.CommandButton1.SetFocus
            End If
        End If
    End With
End Sub

[mercatog]

A Yolak

dans TxtMontant tu écris 34.71
le focus sort vers le contrôle suivant

clique encore une fois dans TxtMontant et ajoute un chiffre après la virgule,
Que remarques tu?

[Yolak]

Veuillez m'excuser mon cher,
je n'avais pas finalisé mon code dans ce sens.

Avec mes excuses :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TxtMontant_Change()
    With Me.TxtMontant
        .Text = Replace(.Text, ",", ".")  'Pour éviter les pb de caractère de décimale
        If Len(.Text) > 3 Then
            If Mid(.Text, Len(.Text) - 2, 1) = "." Then
                .MaxLength = Len(.Text)
                Me.CommandButton1.SetFocus
            End If
        End If
    End With
End Sub

De toute évidence et avec ma blague pourrie, me voilà mal vu :/

Pour me rattraper, je propose même ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub TxtMontant_Change()
    With Me.TxtMontant
        .Text = Replace(.Text, ",", ".")  'Pour éviter les pb de caractère de décimale
        If IsNumeric(.Text) Then
            If .TextLength  > 3 Then
                If Mid(.Text, .TextLength - 2, 1) = "." Then
                    .MaxLength = .TextLength 
                    Me.CommandButton1.SetFocus
                End If
            End If
        ElseIf .TextLength > 0 Then
            .Text = Mid(.Text, 1, .TextLength - 1)
        End If
    End With
End Sub

Qui teste si on saisit bien des chiffres

EDIT : J'ai aussi changé les Len(.Text) par .TextLenght, ce qui me semble plus propre

[mercatog]

Avec ton dernier code
écris 34.98
Puis efface ce chiffre
et essayes d'écrire 456700.98

[Yolak]

Il m'en veux, il m'en veux, il m'en veux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub TxtMontant_Change()
    Dim iPos As Integer
    With Me.TxtMontant
        .Text = Replace(.Text, ",", ".")  'Pour éviter les pb de caractère de décimale
        If IsNumeric(.Text) Then
            If Len(.Text) > 3 Then
                If Mid(.Text, Len(.Text) - 2, 1) = "." Then
                    '.MaxLength = Len(.Text)
                    Me.CommandButton1.SetFocus
                ElseIf .TextLength > InStr(1, .Text, ".") + 2 Then
                    .Text = Mid(.Text, 1, .TextLength - 1)
                End If
            End If
        ElseIf .TextLength > 0 Then
            .Text = Mid(.Text, 1, .TextLength - 1)
        End If
    End With
End Sub

Tu t'es excusé, tu peux toujours supprimer cette blague

Non,non j'assume

[mercatog]

Sinon une proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TxtMontant_Change()
Dim Pos As Integer
 
With Me.TxtMontant
    Pos = InStr(.Text, ".")
    If Pos > 0 Then
        If Len(Mid(.Text, Pos + 1)) > 2 Then
            .Text = Left(.Text, Pos + 2)
            Me.TextBox2.SetFocus
        End If
    End If
End With
End Sub

Bonne soirée

[Yolak]

huhu à mon tour:

Le focus n'est pas passé au textbox2 si je saisis 20.23 par ex

[mercatog]

Il m'en veux, il m'en veux, il m'en veux

Essayes d'écrire 56789.98

Le focus n'est pas passé au textbox2 si je saisis 20.23 par ex

Oui certes, alors écris 20.230

Sinon,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub TxtMontant_Change()
Dim Pos As Integer
 
With Me.TxtMontant
    Pos = InStr(.Text, ".")
    If Pos > 0 Then
        If Len(Mid(.Text, Pos + 1)) >= 2 Then
            If .SelStart > Pos Then
                .Text = Left(.Text, Pos + 2)
                Me.TextBox2.SetFocus
            End If
        End If
    End If
End With
End Sub

[Yolak]

As tu testé l'usine à gaz? Essayes d'écrire 56789.98

Oui, ça marche...
Non ??

[Yolak]

Note avec le recul: c'est vrai que c'est une usine à gaz....
Bon... finalement j'aime bien la proposition choisie par NEC14...