Comparaison de deux paramètres définis

Version imprimable

03/05/2012, 11h55
1MrchB

Comparaison de deux paramètres définis
Bonjour,

J'aimerai réalisé la boucle If ci dessous
Code:

1 2 3 4 5 6 ask1 = inputBox("Which line do you want to modify?", Titre) If ask1>b Then Answer = Msgbox("Enter a value between 0 and " & b, VbInformation, Titre) test = 1 End If
Quelque soit la valeur mise dans l'InputBox (et après vérification le paramètre b est correctement défini), le programme rentre dans la boucle If.
Ca me laisse penser que la comparaison entre deux paramètres n'est pas possible et qu'il faut préciser un chiffre plutot que b.
Mais comment faire?
j'ai bien tenté de mettre val(b) en condition mais j'ai un message d'erreur comme quoi 'val' est un "type incompatible".

Merci pour votre aide
03/05/2012, 11h58
cubitus91

hello,
si je comprend bien b est un integer ?

Oui, b est un entier.
Il correspond au nombre de ligne contenu dans un fichier défini comme :

Code:

1
2
3
4
5
6
7
8
9
 
b = 0
Set filesys = CreateObject("Scripting.FileSystemObject")
Set readfile = filesys.OpenTextFile(File, ForReading, false)
Do While readfile.AtEndOfStream=false
     readfile.ReadLine	
     b = b + 1
Loop
readfile.close

Salut

Code:

1
2
3
4
5
6
7
8
9
10
B = 10
ask1 = InputBox("Which line do you want to modify?", Titre)
If IsNumeric(ask1) Then
        If CInt(ask1) > B Then
                Answer = MsgBox("Enter a value between 0 and " & B, vbInformation, Titre)
                test = 1
        End If
        Else
        MsgBox "Votre entrée n'est pas un numerique" & vbNewLine & "Enter a value between 0 and " & B, vbInformation, Titre
End If

Apparemment, pour la comparaison, il faut forcer le type (ask1)

hello,
Alors je me suis permi de refaire un peu ton code. Il y a une function qui retourne le nombre de ligne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Function FileLineCount(strFilename)
'Constantes
Const ForReading = 1
'local var
Dim ObjFileSystemObject,FileContents,lngLineCount
Set ObjFileSystemObject = CreateObject("Scripting.FileSystemObject")
lngLineCount=0
If ObjFileSystemObject.FileExists(strFilename) Then 
 Set FileContents = ObjFileSystemObject.OpenTextFile(strFilename, ForReading, False)
 Do While Not FileContents.AtEndOfStream
          lngLineCount = lngLineCount + 1
          FileContents.ReadLine
 Loop
FileContents.Close
Set FileContents = Nothing
End If 
Set ObjFileSystemObject = Nothing
FileLineCount = lngLineCount
End Function

Et le program principal :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit
Dim LineNeedModify, test, Answer,NumberOfLine,Titre
NumberOfLine = 0
 
NumberOfLine = FileLineCount(<File name>) 
WScript.Echo "Number of line is: " & NumberOfLine
 
LineNeedModify = inputBox("Which line do you want to modify?", Titre)
If LineNeedModify> NumberOfLine Then
Answer = Msgbox("Enter a value between 0 and " & NumberOfLine, VbInformation, Titre)
test = 1
End If

Cordialement

03/05/2012, 13h41
1MrchB

Très bien, merci pour cette aide.
N'étant pas un puriste de la programmation, je préfère rester sur les quelques commandes que j'ai entré.
Forcer le paramètre (ask1) a résolu mon problème. Merci