Bonjour,

Je ne comprends pas le comportement de ma variable Result.
Lorsque je sors de ma fonction, sa valeur est True et lorsqu'elle arrive dans la sub qui l'appelle, sa valeur est False.
Voici le 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
 
Public Function TestNum(strTest As String)
Dim Result As Boolean, i As Integer
 
    Result = True
 
    For i = 1 To 4
Debug.Print Mid(strTest, i, 1)
Debug.Print "Result avant " & Result
        Result = IsNumeric(Mid(strTest, i, 1))
Debug.Print "Result après " & Result
If Result = False Then Exit For
    Next
 
End Function
Qu'est ce que j'aurais dû faire et que je n'ai pas fait ?

Merci d'avance

Henri