j'arrive pas à faire fonctionner is_int()

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
19
20
21
22
23
If Me.Forme.Value = "Circulaire" Then
            n = 1
            For l = 1 To Len(Me.Calcul)
            o = Mid(Me.Calcul, l, 1)
                If is_int(Mid(Me.Calcul, l, 1)) = True Then
                    If n = 1 Then
                        a = a + Mid(Me.Calcul, l, 1)
                    Else
                        If n = 2 Then
                            b = b + Mid(Me.Calcul, l, 1)
                        Else
                            c = c + Mid(Me.Calcul, l, 1)
                        End If
                    End If
                Else
                    If l <> 1 Then
                        If is_int(Mid(Me.Calcul, l - 1, 1)) = True Then
                            n = n + 1
                        End If
                    End If
                End If
            Next l
         End If
quelqu'un peut m'expliquer
J'ai un message d'erreur qui dit ca fonctionne pas