problème avec une macro décimale

Version imprimable

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:

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

Bonjour
Je proposerai ceci

Code:

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:

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:

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

24/11/2010, 13h15
Yolak

Citation:

Envoyé par NEC14

Merci par avance pour votre éclairage.

En espérant que ça te serve:
http://www.valoggia.fr/var/lpe/stora...ule_medium.jpg

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

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 :ccool:

Code:

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 ? :mouarf:

Citation:

Envoyé par NEC14

Bonjour Yolak,

Tu as du temps à perdre ? :mouarf:

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:

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:

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

24/11/2010, 22h51
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?

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

Avec mes excuses :

Code:

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:

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

24/11/2010, 23h03
mercatog

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

Il m'en veux, il m'en veux, il m'en veux :sm:

Code:

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

Citation:

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

Non,non j'assume

Sinon une proposition

Code:

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

24/11/2010, 23h22
Yolak

huhu à mon tour:

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

Citation:

Envoyé par Yolak

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

Essayes d'écrire 56789.98

Citation:

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

Oui certes, alors écris 20.230

Sinon,

Code:

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

24/11/2010, 23h30
Yolak

Citation:

Envoyé par mercatog

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

Oui, ça marche...
Non ??
25/11/2010, 10h34
Yolak

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