Discussion :

[seb92400]

Bonjour,

J'ai inclus le nom d'une fonction directement dans la liste d'évènements...

Voici la fonction :

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
20
21
22
23
Public Function fctNomPropre(strTexte As String) As String
 
    Dim nbCar As Integer
 
    strTexte = Trim$(strTexte)
    nbCar = Len(strTexte)
    fctNomPropre = UCase$(Left(strTexte, 1))
 
    If nbCar > 1 Then
        For nbCar = 2 To Len(strTexte)
            If (Mid$(strTexte, nbCar - 1, 1) = " ") _
            Or (Mid$(strTexte, nbCar - 1, 1) = "-") _
            Or (Mid$(strTexte, nbCar - 1, 1) = ".") _
            Or (Mid$(strTexte, nbCar - 1, 1) = ",") _
            Or (Mid$(strTexte, nbCar - 1, 1) = "'") Then
                fctNomPropre = fctNomPropre & UCase$(Mid$(strTexte, nbCar, 1))
            Else
                fctNomPropre = fctNomPropre & LCase$(Mid$(strTexte, nbCar, 1))
            End If
        Next
    End If
 
End Function

Dans la liste évènements (après MAJ), j'ai inscrit :

=fctNomPropre([TexteEssai])

Mais je n'obtiens aucun résultat... J'ai testé la fonction en VBA, aucun souci...

Ma question, c'est donc : Doit-on obligatoirement passer par VBA pour exécuter une fonction ou ai-je oublié qqch dans l'appel de cette dernière dans les évènements ??

PS (c'est juste pour limiter un peu le code que je passe par les appels évènements...)

Merci d'avance...

[Invité]

Bonjour

Si tu as mis sur l'évènement AfterUpdate de ton contrôle nommé TexteEssai, essaye de mettre

Code :

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

me.TexteEssai.value = fctNomPropre(me.TexteEssai.value)

Starec

[seb92400]

Hello,

En fait, je me suis mal fait comprendre... Ca que tu me donnes, c'est la version VBA qui fonctionne très bien...

Mais comme je vais devoir inclure cette fonction sur pas mal de champs, je voulais directement la rentrer dans la liste des évènements :

Bouton droit sur contrôle / Propriétés / Onglet Evènements / Après MAJ (2e ligne)...

Tout ça dans le souci de limiter le nombre de ligne de code et d'avoir un code plus clair...

J'ai testé avec une fonction qui m'envoi le curseur en début de ligne (dans le cadre d'un masque par exemple), ça fonctionne parfaitement. Mais dans ce cas là il n'y a pas de retour de valeur.
Je me demandais simplement si ça fonctionnait aussi lorsque la fonction retourne une valeur, ce qui est le cas pour la fonction de conversion...

Mais bon, fainéant comme je suis, je ne reculerai pas devant quelques lignes de code supplémentaires s'il le faut !!