Condition à humeur variable

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:

---

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

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:

---

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

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:

---

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

---

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:

---

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:

---

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

---

Test complet :

Code:

---

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

---

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

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