encore majuscule

[ALLAIN Didier]

Bonsoir,
je viens de faire une recherche pour qu'une saisie en minuscule dans un textbox se transforme en majuscule.
J'ai touvé :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = UCase(TextBox1.Text)
End Sub
Mais j'ai un message d'erreur m'informant que UCase n'existe pas : projet ou bibliothéque introuvable
Où est l'erreur

 

[Arnaud]

Salut 🙂,

Le UCase fais parti de la bibliothèque VBA donc c vraiment bizarre ton affaire....
Regarde dans Outils->Références si la bibliothèque 'Visual Basic For Applications' est sélectionnée

 

[Darkv]

Salut alainDidier & le forum
voici un petit code :
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
en esperant qu'il te convienne
Bonne journnée
Darkv

 

[ALLAIN Didier]

Merci vous deux, mais

C'est la commandeUCase qui bloque dans ce classeur
J'ai essayé dans un classeur vierge; tout passe.
Alors trop de Userform ?
Trop de code ?
Fichier trop lourd ?
Autre, mais quoi
J'ai essayé dans ce même classeur de faire un autre userform en reprenant le userform du classeur sur lequel il marchait par export/import le resulat était encore pire puisque même la commande before quit etc ne passait plus