OVH Cloud OVH Cloud

verrouillage majuscule

4 réponses
Avatar
Mouve
Bonjour,

Est-il possible d'obtenir en tout temps les majuscules dans une feuille sans
devoir enfoncer la touche clavier "fix maj"?

4 réponses

Avatar
AV
Est-il possible d'obtenir en tout temps les majuscules dans une feuille sans
devoir enfoncer la touche clavier "fix maj"?


Ca me parait pas demander une consommation considérable d'énergie....;-)
Mais bon...
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV

Avatar
Mouve
"AV" a écrit dans le message de news:

Est-il possible d'obtenir en tout temps les majuscules dans une feuille
sans


devoir enfoncer la touche clavier "fix maj"?


Ca me parait pas demander une consommation considérable d'énergie....;-)
Mais bon...
Dans le module de la feuille :
eh... Où se trouve le module de la feuille? Merci!


Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV





Avatar
Philippe.R
Bonsoir,
Pour ouvrir le module de la feuille, clic droit sur son onglet et "Visualiser le code"
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Mouve" a écrit dans le message de news:

"AV" a écrit dans le message de news:

Est-il possible d'obtenir en tout temps les majuscules dans une feuille
sans


devoir enfoncer la touche clavier "fix maj"?


Ca me parait pas demander une consommation considérable d'énergie....;-)
Mais bon...
Dans le module de la feuille :
eh... Où se trouve le module de la feuille? Merci!


Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV









Avatar
Mouve
Merci à vous! Grandement apprécié!

"Philippe.R" a écrit dans le message de news:
#
Bonsoir,
Pour ouvrir le module de la feuille, clic droit sur son onglet et
"Visualiser le code"

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Mouve" a écrit dans le message de news:



"AV" a écrit dans le message de news:

Est-il possible d'obtenir en tout temps les majuscules dans une
feuille




sans
devoir enfoncer la touche clavier "fix maj"?


Ca me parait pas demander une consommation considérable
d'énergie....;-)



Mais bon...
Dans le module de la feuille :
eh... Où se trouve le module de la feuille? Merci!


Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV