Discussion :

[gaetan.tranvouez]

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

[AlainTech]

Pas de faux espoir, je ne réponds pas à ta question.

J'ai juste vu ça:

Code :

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

Dim msg, car As String

Sache qu'avec cette syntaxe, seul car est typé String. msg est de type Variant.
Si tu veux faire plusieurs déclarations sur une ligne, la syntaxe est:

Code :

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

Dim msg As String, car As String

[gaetan.tranvouez]

Merci quand meme pour le conseil!!
J'aurai cru que cela était comme en C par exemple int a, b;
Cela ne modifie certes rien mais c'est quand meme mieux et moins gourmand je crois...

[Catbull]

Pour vérifier qu'une chaine est numérique, utilise la fonction IsNumeric et non une boucle + une comparaison caractères par caractères.

Pour vérifier la cohérence des valeurs saisie en cours de frappe utilise l'évènement KeyPress :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Function FiltrerSaisie(ByRef KeyAscii As Integer)
    Dim Filtre As String
 
    Filtre = "0123456789"
    If InStr(1, Filtre, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Function
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As Interger)
    FiltrerSaisie KeyAscii
End Sub

[gaetan.tranvouez]

ok merci
mais c'est laquelle de bibliothèque qu'il faut choisir...
Car il ne la trouve pas

[gaetan.tranvouez]

Car la ca m'a enlevé une erreur mais ca m'a rajoué la meme, mais sauf que c'est un code différent
Mais je ne comprend pas ceci:

Code :

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

1
2
 
If InStr(1, Filtre, Chr(KeyAscii)) = 0 Then KeyAscii = 0

Tu pourrais m'éclairer stp

[AdHoc]

A mon avis, il te manque les références "par défaut" du projet ou ces dll sont mal installées.
Chez moi, l'explorateur d'objet me classe Mid dans MSVBVM60.DLL.
Pour info, ton code fonctionne avec les modifs de AlainTech (sans je n'ai pas essayé).
Personnellement, je ne met jamais du code dans les événements change des champs de saisie.
L'utilisateur saisie, puis valide, si les infos sont incorrectes,
raz et on repart au debut .
Dans ton cas tu as juste à tester si la chaine est un nombre.