Forcer le clavier en majuscule ....... et "interdire" la remise en minuscule pour le classeur en cours
3 réponses
Pounet95
Bonjour à toutes et tous,
W2000 et Excel2000
Vista et Excel2007 à venir
Je voudrais à l'ouverture d'un classeur forcer le clavier à être en
majuscules.
A priori, bien que ne maitrisant pas l'instruction, je pense à Onkey dans le
module Thisworkbook Evènement Workbook_Open.
Ensuite, je désirerais que toute action sur la remise en minuscule soit
interdite tant que je reste dans le classeur.
Si changement, alors libérer via Workbook_Deactivate et réactiver avec
Workbook_Activate.
Avez-vous une recette pour réaliser "mon rêve" ?
Merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut à toi
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule Mais si la finalité est que toute saisie soit faite en majucule tu peux mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub
Le résultat devrait être identique
Fais des essais et dis moi !!!!
Salut à toi
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule
Mais si la finalité est que toute saisie soit faite en majucule tu peux
mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule Mais si la finalité est que toute saisie soit faite en majucule tu peux mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub
Le résultat devrait être identique
Fais des essais et dis moi !!!!
Pounet95
Bonsoir,
oui, j'y ai pensé MAIS le problème c'est qu'à chaque changement dans une feuille l'évènement Worksheet_Change est appelé et en cas de sélection multiple ( copier/coller par exemple ) ça peut prendre ( beaucoup ) de temps il est possible de contourner ou limiter avec la d"sactivation temporaire des évènements mais ça risque d'être problématique avec les "loulous" qui vont utiliser l'appli. Je mets quand même la proposition au chaud au cas où. Merci et bonne soirée
Pounet95
"FFO" a écrit dans le message de news:
Salut à toi
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule Mais si la finalité est que toute saisie soit faite en majucule tu peux mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub
Le résultat devrait être identique
Fais des essais et dis moi !!!!
Bonsoir,
oui, j'y ai pensé MAIS le problème c'est qu'à chaque changement dans une
feuille l'évènement Worksheet_Change est appelé et en cas de sélection
multiple ( copier/coller par exemple ) ça peut prendre ( beaucoup ) de temps
il est possible de contourner ou limiter avec la d"sactivation temporaire
des évènements mais ça risque d'être problématique avec les "loulous" qui
vont utiliser l'appli.
Je mets quand même la proposition au chaud au cas où.
Merci et bonne soirée
Pounet95
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:1580A90F-62FF-438F-8DA3-37CD5F1417B7@microsoft.com...
Salut à toi
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule
Mais si la finalité est que toute saisie soit faite en majucule tu peux
mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub
oui, j'y ai pensé MAIS le problème c'est qu'à chaque changement dans une feuille l'évènement Worksheet_Change est appelé et en cas de sélection multiple ( copier/coller par exemple ) ça peut prendre ( beaucoup ) de temps il est possible de contourner ou limiter avec la d"sactivation temporaire des évènements mais ça risque d'être problématique avec les "loulous" qui vont utiliser l'appli. Je mets quand même la proposition au chaud au cas où. Merci et bonne soirée
Pounet95
"FFO" a écrit dans le message de news:
Salut à toi
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule Mais si la finalité est que toute saisie soit faite en majucule tu peux mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub
Le résultat devrait être identique
Fais des essais et dis moi !!!!
Youky \(BJ\)
Salut Pounet, La suppression , la copie de cellules même en groupes, pas de bugs Youky (BJ)
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False For k = 1 To Target.Count If Target(k)<>"" Then Target(k) = UCase(Target(k)) Next Application.EnableEvents = True End Sub
"Pounet95" a écrit dans le message de news:
Bonsoir,
oui, j'y ai pensé MAIS le problème c'est qu'à chaque changement dans une feuille l'évènement Worksheet_Change est appelé et en cas de sélection multiple ( copier/coller par exemple ) ça peut prendre ( beaucoup ) de temps il est possible de contourner ou limiter avec la d"sactivation temporaire des évènements mais ça risque d'être problématique avec les "loulous" qui vont utiliser l'appli. Je mets quand même la proposition au chaud au cas où. Merci et bonne soirée
Pounet95
"FFO" a écrit dans le message de news:
Salut à toi
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule Mais si la finalité est que toute saisie soit faite en majucule tu peux mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub
Le résultat devrait être identique
Fais des essais et dis moi !!!!
Salut Pounet,
La suppression , la copie de cellules même en groupes, pas de bugs
Youky (BJ)
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For k = 1 To Target.Count
If Target(k)<>"" Then Target(k) = UCase(Target(k))
Next
Application.EnableEvents = True
End Sub
"Pounet95" <Pounetchezlui@ounadou> a écrit dans le message de news:
ul0RS1UWJHA.4896@TK2MSFTNGP02.phx.gbl...
Bonsoir,
oui, j'y ai pensé MAIS le problème c'est qu'à chaque changement dans une
feuille l'évènement Worksheet_Change est appelé et en cas de sélection
multiple ( copier/coller par exemple ) ça peut prendre ( beaucoup ) de
temps
il est possible de contourner ou limiter avec la d"sactivation temporaire
des évènements mais ça risque d'être problématique avec les "loulous" qui
vont utiliser l'appli.
Je mets quand même la proposition au chaud au cas où.
Merci et bonne soirée
Pounet95
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:1580A90F-62FF-438F-8DA3-37CD5F1417B7@microsoft.com...
Salut à toi
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule
Mais si la finalité est que toute saisie soit faite en majucule tu peux
mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub
Salut Pounet, La suppression , la copie de cellules même en groupes, pas de bugs Youky (BJ)
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False For k = 1 To Target.Count If Target(k)<>"" Then Target(k) = UCase(Target(k)) Next Application.EnableEvents = True End Sub
"Pounet95" a écrit dans le message de news:
Bonsoir,
oui, j'y ai pensé MAIS le problème c'est qu'à chaque changement dans une feuille l'évènement Worksheet_Change est appelé et en cas de sélection multiple ( copier/coller par exemple ) ça peut prendre ( beaucoup ) de temps il est possible de contourner ou limiter avec la d"sactivation temporaire des évènements mais ça risque d'être problématique avec les "loulous" qui vont utiliser l'appli. Je mets quand même la proposition au chaud au cas où. Merci et bonne soirée
Pounet95
"FFO" a écrit dans le message de news:
Salut à toi
Je ne connais pas trop la procédure pour bloquer un clavier en majuscule Mais si la finalité est que toute saisie soit faite en majucule tu peux mettre dans le VBA de chacune de tes feuilles ce bout de code :
Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub