Discussion :

[1MrchB]

Bonjour,

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

Code :

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

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

[cubitus91]

hello,
si je comprend bien b est un integer ?

[1MrchB]

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

Code :

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

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

[ProgElecT]

Salut

Code :

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

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)

[cubitus91]

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

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

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

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

[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