Discussion :

[Henri1830]

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

[joe.levrai]

Bonjour,

ta variable étant déclarée au sein de la fonction, sa portée ne va pas au delà. A la fin de la fonction, ta variable est détruite !

puisque tu cherches à vérifier le comportement de ta fonction, autant en renvoyer directement l'état comme ça :

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
Public Function TestNum(strTest As String) As Boolean
Dim i As Integer
    For i = 1 To 4
        If Not IsNumeric(Mid(strTest, i, 1)) Then
            TestNum = False
            Exit Function
        End If
    Next i
 
    TestNum = True
End Function
 
Sub Toto()
Dim MaChaine As String
 
MaChaine = "1a34"
If TestNum(MaChaine) Then MsgBox "il n'y a que des chiffres"
 
End Sub

Je passe outre l'utilité de cette fonction, on peut s'en passer je pense et faire un test simple dans la procédure appelante

[Invité]

Bonjour Henri1830 et Joe,
Je suis d'accord avec Joe sur la porté de la variable, la ou je ne suis pas forcément d'accord avec lui c'est sur l'utilité de cette fonction!

En effet ici il ne s'agit que d'un exemple sens doute sorti du contexte.
Il est préférable de faire une fonction si le test est redondant dans le code plutôt que de le réécrire plus fois!

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) As Boolean
Dim i As Integer
    For i = 1 To len(strTest)
TestNum=IsNumeric(Mid(strTest, i, 1)) 
        If TestNum =false Then Exit Function 'Écrits ta condition comme ça ça veut un commentaire!
    Next i
End Function
 
Sub Toto()
Dim MaChaine As String
 
MaChaine = "1a34"
If TestNum(MaChaine) Then MsgBox "il n'y a que des chiffres"
 
End Sub

[joe.levrai]

En fait, quelle est la différence entre tester chaque caractère pour voir si la chaine ne contient que des chiffres ... et tester directement si la chaine complète est numérique ?

si sa fonction renvoyait la position des "non chiffres" (ou la position des chiffres), j'aurai pensé à un traitement particulier qui nécessitât cette fonction, mais là ce n'est pas le cas ?

Code :

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

1
2
3
4
5
6
7
Sub Toto()
Dim MaChaine As String
 
MaChaine = "1a34"
If Not IsNumeric(MaChaine) Then MsgBox "il n'y a pas que des chiffres"
 
End Sub

C'est idem que l'utilisation de sa fonction là ? Ou j'ai loupé un truc ?

Le seul impératif que je peux voir, c'est s'il veut utiliser cette fonction dans Excel ... et là encore on peut parfaitement s'en passer (même si ça surcharge l'écriture de la formule dans Excel)

Par exemple ...

Test simple :

Code :

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

=SIERREUR(D6*1;"Pas Que des chiffres")

Test complet :

Code :

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

=SI(ESTERREUR(D6*1);"Pas que des chiffres";"Que des chiffres")

[Invité]

Oui tu marque un point, je n'ai raisonné que sur le contenu et pas sur la généralité!

Histoire que je ne perde pas complètement la face, on dira qu'il voulait s'essayer au fonctions!

[Henri1830]

Bonsoir à tous les deux,

Mille mercis pour vos conseils, ça fonctionne très bien.
Demain matin, je m'occuperai de l'ouverture du fichier.

Merci encore pour vos aides.

Henri