Version imprimable
Bonjour à tous,
J'ai créé dans un module une fonction quis'appelle saison.
J'arrive à utiliser cette fonction dans une requête, mais malheureusement, je n'arrive pas à l'utiliser au sein d'une procèdure vb (sub).
Quelqu'un sait-il comment faire ?
Merci de votre aide
Bonjour
Peux-tu nous expliquer comment est ta fonction (déclaration, emplacement), et comment tu essayes de l'utiliser (avec code etc...)
Sinon, je ne vois pas ce que les membres peuvent faire pour t'aider, il faut mettre plus de renseignements.
Starec
Bonjour Starec,
Les détails demandés sont les suivants :
*Detail de la fonction créée
J'ai créée cette fonction dans un module.
* utilisation de la fonctionCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dans un formulaire j'ai un champ dans lequel j'entre la surface. Ensuite sur l'action après mise à jour du champ je voudrais appeler la fonction afin qu'un autre champ indique le groupe de regroupement de surface.
A l'heure actuelle pour faire cette opération, j'ai tout simplement recopier le code de ma fonction dans ma procèdure, comme indiqué ci-dessous :
J'espère que c'est un peu plus clair que le post précédent.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
En tout cas, merci pour ton aide starec.
Bonjour,
Comme Starec est parti se coucher ;), je me permets d'intervenir:
Code:
2
3
Merci =JOB=
A vous deux vous faites les 3 huits... ;-)
J'ai utilisé ton code, malheureusement, j'ai un message d'erreur qui dit incompatibilité de type au moment d'utiliser la fonction...
Je vois pas où ça déconne.....
Hello,
Qu'est ce que << utiliser la fonction >> veut dire:Citation:
Envoyé par formidable78
(1) à la compilation ?
(2) à l'exécution ?
Si c'est à la compilation, le curseur est immédiatement placé sur la ligne incriminée: quelle est cette ligne ?
Si c'est à l'exécution, la fenêtre qui affiche l'erreur doit te proposer d'effectuer un débogage et ainsi te placer dans le code à l'endroit qui provoque l'erreur: quel est ce code ?
Merci de ta réponse.
_
L'erreur se produit à l'éxécution.
La ligne incriminée (en jaune lorsz du débogage) est la ligne qui appelle la fonction :
Me.GpSurface.Value = Surface(Me.Surface.Value)
L'erreur est : "Erreur d'exécution 13" si ça te parle, de mon côté je ne comprends rien à l'aide de cette erreur...
STOOOPPPPPEUUHHHHH !
J'ai compris... mais l'interpréteur Visual Basic lui n'a pas compris, et pour cause...
* le contrôle s'appelle Surface....
* mais la fonction s'appelle *AUSSI* Surface !!!
Ce n'était pas une bonne idée !
Si tu veux que ça marche malgré les noms identiques, tu vas devoir préfixer le nom de la fonction Surface avec le nom du module de code où elle est définie: c'est nécessaire pour lever l'ambiguïté.
Comment s'appelle le module où tu as codé la fonction Surface ?
Par exemple, le module s'appelle MesFonctions.
On peut aussi imaginer que le nom du module comporte des caractères "spéciaux" mal tolérés par VB: des espaces, des symboles, etc.Code:
2
3
Dans ce cas, le nom du module doit être encadré entre crochets afin d'indiquer à VB qu'il faut ignorer ces caractères spéciaux et traiter tout ça comme un simple nom.
Par exemple, le module s'appelle Mes Jolies Fonctions.
Bien sûr, tu peux aussi renommer le contrôle; mais il faudra penser à bien modifier le nom des procédures événementielles de ce contrôle !Code:
2
3
_
Bien vu l'artiste !!!
:king:
Effectivement, le message a gentillement disparu, l'erreur bête de débutant....
Malheureusement ça ne marche par tout à fait, au moment de l'éxécution, la fonction me renvoie un blanc et non pas de valeur. Pour test j'ai utilisé ceci :
Private Sub Surface_AfterUpdate()
MsgBox (Module1.NicoSurface(Me.Surface.Value))
End Sub
Ce que je ne comprends pas c'est que même quand je mets un chiffre à la place de me.surface.value, cela le msgbox me retourne tjs un blanc...
???????
Je n'ai pas bien compris ton souci... :koi:
Mais je constate que ta fonction n'est pas écrite en respect des "canons" de la programmation et ça pourrait bien être une source d'erreur.
Aussi, voici une réécriture possible et surtout plus rigoureuse:
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
Tu pourrais reporter la correction et tenter à nouveau...
P.S. Apparemment tu as renommé ta fonction en NicoSurface, mais est-ce que tu as correctement reporté ce changement de nom à l'intérieur de la fonction... Qu'en dis-tu ?
_
Salut JBO,
Merci pour ton soutien !!!!
Le PS de ton dernier post était bien vu..... Effectivement je me suis embrouillé dans les renomages.... !!!!
Merci beaucoup, j'ai vu grâce à cet exemple quelques écueils à éviter lors des prochaines utilisations et créations de fonction.
Merci !! :king:
Bonjour,
Tu pourrais épargner ta sueur et gagner du temps en procédant rigoureusement à la déclaration des variables dans tes procédures (je pense en particulier au renommage de la fonction).
A la compilation, ton code sera alors vérifié par VBA pour garantir qu'il n'y a pas de risque d'oubli ou de fautes de frappe, aussi bien pour les noms de variables que les noms de procédures.
Donc, pour que VBA procède à la vérification, il faut ajouter une option en début de chaque module de code:
Tu peux aussi configurer l'environnement de développement pour forcer les déclarations explicites dans tout nouveau module.Code:Option Explicit
Exécute la commande Outils >> Options
Dans la fenêtre [Options], sur l'onglet [Editeur] tu dois cocher [Déclaration des variables obligatoire].
Bonne continuation !
_