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 :
Qu'est ce que j'aurais dû faire et que je n'ai pas fait ?
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
Merci d'avance
Henri
Partager