Hello

J'ai un soucis, quand je veux rentrer une valeur dans mon text, jai cette erreur: Erreur de compilation, projet ou bibliothèque introuvable
Il me surligne "Mid"

Voila mon code:

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 Text3_Change(Index As Integer)
Dim msg, car As String
Dim valasc As Byte
Dim var As Integer
 
msg = Text3(Index).Text
For j = 1 To Len(msg)
    car = Mid(msg, j, 1)
    valasc = Asc(car)
    If valasc <> 44 Then
        If (valasc < 48 Or valasc > 57) Then
                Text3(Index).Text = ""
                var = MsgBox("Vous devez rentrer une valeur numérique!", vbOKOnly, "Erreur")
        End If
    End If
Next
End Sub
Merci