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:
Merci
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
Partager