Mettre une textbox en majuscules

Question

Pour passer le contenu de mes textbox sur l'evt lostfocus, j'appelle la proc ci-dessous MAJ(le nom de ma textbox)

or j'ai le message Type Mismatch alors que je passe bien une textbox en paramètre.

Private Sub MAJ(Zone As TextBox)
    'passe le paramètre en majuscules
    Zone = UCase(Zone)
End Sub

Pourquoi ?

NB, ce type d'appel fonctionne sous VBA Access

Merci de votre aide

cs_DARKSIDIOUS · Answer

Fait plutôt ceci :

Zone.Text = UCase(Zone.Text)

Et vérifie que ton textbox passé en paramètre est valide !

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

cs_rene38 · Answer

Bonsoir

Problème de syntaxe avec/sans parenthèses. 
Deux possibilités :

Call MAJ(Text1)

MAJ Text1

cs_rene38 · Answer

ou encore :


Private Function MAJ(Zone As TextBox)
'paramètre passé par référence
Zone = UCase(Zone)
End Function

Private Sub Text1_LostFocus()
Dim x As Integer
x = MAJ(Text1)
End Sub

cs_DARKSIDIOUS · Answer

Rene38 >> tu as oublié une valeur de retour de ta fonction MAJ si je ne me trompe... non ?

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

cs_rene38 · Answer

DarK Sidious
Le paramètre zone est passé à la fonction MAJ par référence (ByRef par défaut). La fonction MAJ effectue donc son travail sur la TextBox qui lui est passée en paramètre -ici, Text1.
Quant à la valeur de retour, on s'en moque du moment que le travail est fait !
La variable x est utile pour l'appel de la fonction mais sa valeur n'a aucun intérêt.

Si on est puriste, on écrit bien sûr :
Private Function MAJ(Zone As TextBox) As CeQuOnVeut
et Dim x As LaMemeChose

Enfin, l'essentiel pour patrom c'est que ça marche.

Ce que je voulais rappeler, c'est la différence de syntaxe entre les appels de Sub (avec ou sans Call) et de Function.

cs_DARKSIDIOUS · Answer

ok, merci pour cette précision Rene38 ! Je pensais qu'en VB, lorsqu'on faisais un appel de fonction, il fallait absolument que la fonction renvoie une valeur, comme en C en somme !

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

Mettre une textbox en majuscules

6 réponses

Discussions similaires