Création et appel "Function"

[François l'aîné]

Bonjour déférent à toutes et à tous.

J'ai créé (correctement j'espère) une fonction, dont le propre par rapport à une procédure, si j'ai bien compris, est de retourner une valeur : (en passant merci à Hervé)

Function misenforme_F(MEF) As String
Select Case Len(MEF)
Case 2, 5, 8, 11
MEF = MEF & ' '
End Select
End Function

Que j'appelle par la procédure :

Private Sub TextBox32_Change()
MEF = TextBox32.Text
misenforme_F MEF
TextBox32.Text = MEF
End Sub

Et cela fonctionne parfaitement.

Cependant, n'y a-t'il pas moyen de remplacer les 3 lignes de la procédure appelante par quelque chose de plus concis du style :

TextBox32.Text = misenforme_F(TextBox32.Text)

Mais cela je n'arrive pas à le faire fonctionner.

Merci de toutes les explications que toutes et tous vous voudrez bien me donner.

Bonne journée

François

 

[Jam]

Bonjour François,

1. Ta fonction ne renvoi pas de résultat !
J'y ai apporté les changement suivant:

Function misenforme_F(MEF) As String
Select Case Len(MEF)
Case 2, 5, 8, 11
misenforme = MEF & ' '   '<- renvoi ici le résultat
End Select
End Function

Private Sub TextBox32_Change()
MEF = TextBox32.Text
TextBox32.Text = misenforme_F MEF '<-
End Sub

2. Concernant l'appel que tu souhaites faire, il ne peut pas se faire car tu appeles la fonction avec son propre résultat.

3. Je rappelle qu'il vaut mieux dimensionner ses variables (Dim ... As...) pour éviter des erreurs...

HTH

 

[François l'aîné]

Bonjour MrExcel

Je te remercie pour tes éclaircissements et ta correction que je vais mettre en oeuvre aussitôt.

Bonne journée.

François.

 

[François l'aîné]

Re MrExcel

MEF a été déclaré Public dans le premier module aprés Option Explicit.

Si je mets la ligne :

TextBox32.Text = misenforme_F MEF '<-

il me dit 'erreur de compilation : fin d'instruction attendue'

Merci pour d'autres explications, mais n'y perdez pas trop de temps, c'était vraiment pour fignoler.

Cordialement

François.

 

[galopin01]

bonjour,
La solution :

Function MEF(S$) As String
Select Case Len(S)
Case 2, 5, 8, 11
S = S & ' '
End Select
MEF = S
End Function

Private Sub TextBox1_Change()
TextBox1.Text = MEF(TextBox1.Text)
End Sub

Et pas de déclaration publique bien sur... sinon c'est plus une fonction !

Ok ?

 

[François l'aîné]

Bonjour Galopin01

Merci pour ta réponse que je vais essayer. Je vais me replonger aussi dans la doc pour voir cette histoire de déclaration Public.
En tous cas merci.

Cordialement

François