Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Est il possible d’activer les majuscules au lancement d’un fichier ?

  • Initiateur de la discussion Initiateur de la discussion raf26
  • Date de début Date de début
R

raf26

XLDnaute Occasionnel
Bonjour,

Je travaille souvent sur un fichier dans lequel je saisi uniquement des chiffres et je travaille sur un ordi portable sans pavé numérique et sans temoin lumineux si Caps Lock est activé

Existe t il une macro permettant d’activer les majuscules au lancement de ce fichier, par exemple dans thisworkbook open ?

Peu importe si les majuscules restent à la fermeture

Cela m’éviterait des erreurs de saisie, et donc des erreurs dans les formules de calcul.

Ps les majuscules sont activées au démarrage de Windows mais il m’arrive de les désactiver en cours de journée

Merci

Cordialement
 
Trier par date Trier par votes
R

raf26

XLDnaute Occasionnel
Bonjour Phil69970

Merci pour ton lien

Je n‘avais pas pensé à capslock dans la barre de recherche du forum, j’etais restée sur majuscules

Par contre comment intégrer le post #9 de ton lien dans le Workbook open ?
 
Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc
Bonjour le forum,
majuscules au lancement d’un fichier ' ChangerCapsLock apiOn
minuscules au lancement d’un fichier ' ChangerCapsLock apiOff

Tous le code a placer dans ThisWorkbook (Ci-Dessous) Solution donné par @Phil69970 Merci

VB: 
Private Type KeyboardBytes
    kbByte(0 To 255) As Byte
End Type
Enum apiOnOff
    apiOn = 1
    apiOff = 0
End Enum
Dim kbArray As KeyboardBytes
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Sub ChangerCapsLock(v As apiOnOff)
    GetKeyboardState kbArray
    kbArray.kbByte(&H14) = v
    SetKeyboardState kbArray
End Sub
Sub CapsOff()
' A PLACER DANS Private Sub Workbook_BeforeClose(Cancel As Boolean)
'    ChangerCapsLock apiOff
End Sub
Sub CapsOn()
' A PLACER DANS Workbook_Open()
'ChangerCapsLock apiOn
End Sub
'
Private Sub Workbook_Open()
    ChangerCapsLock apiOn
End Sub
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ChangerCapsLock apiOff
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Raf, Laurent, le forum
Edition Bonsoir Staple1600

Peut être une alternative.....mais chez moi en sortie (fermeture du fichier) cela désactive le pavé numérique de mon clavier avec un PC fixe mais je repasse bien en minuscule.

@Phil69970
 

Pièces jointes

  • Capslock.xlsm
    16 KB · Affichages: 10
Dernière édition:
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
@Staple1600

ben tu utilises PowerQuery tous les jours, non ?

tu as écrit : «
Non.
C'est une solution que j'utilise tous les jours (dans le cadre du boulot)
»

tu es toujours aussi imprécis ! je croyais que tu voulais parler d'appuyer
seulement sur la touche CapsLock ; c'est pas ça ? ou autre chose ?

soan
 
Dernière édition:
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
=> Staple

si, je l'avais lu, et même j'ai failli proposer la même chose ;
mais j'étais sûr que tu voulais parler d'appuyer / CapsLock
et relâcher chaque fois que nécessaire.

je pensais que ton manque de précision était voulu
pour faire en même temps de l'humour.

soan
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

[prosodie - fin]
Il n'y avait aucun manque de précision.
Juste de quoi appâter le chaland
Pardon le demandeur
qui aurait pu me demander
"Stapple, tu peux me dire c'est quoi ta solution?
Car ca m'intéresse si pas besoin de macro"

[/prosodie - fin]
 
Vote positif 0 Vote négatif
R

raf26

XLDnaute Occasionnel
Bonjour,

Je viens de placer le code dans ThisWorkBook

Les 2 lignes Private Declare Function s'affichent en rouge et j'ai le message suivant :

Erreur de compilation
Le code contenu dans ce projet doit être mis à jour pour pouvoir être utilisé sur les systèmes 64 bits. Vérifiez et mettez à jour les instructions Declare, puis marquez les avec l'attribut PtrSafe.
Cliquez pour agrandir...

Euh.... je suis perdue.....
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

Donc les deux lignes de déclaration devraient être désormais
Private Declare PtrSafe Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long

Private Declare PtrSafe Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…