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

[raf26]

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

 

[Phil69970]

Bonjour Raf, le forum

Tu trouveras surement ton bonheur ici

@Phil69970

 

[raf26]

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 ?

 

[laurent950]

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

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

 

[Staple1600]

Re

Il y a une autre solution sans macro.
Et c'est celle que j'utilise tous les jours.

 

[Phil69970]

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

 

[Staple1600]

Bonsoir soan EDITION: Bonsoir Phil69970

Bonsoir Staple, le fil,
laisse-moi deviner... avec PowerQuery ?

Non.
C'est une solution que j'utilise tous les jours (dans le cadre du boulot)

 

[soan]

@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

 

[Staple1600]

Re

[prosodie teintée d'humour du samedi soir]

OK, je vois.

Donc la solution sans macro
[/prosodie teintée d'humour du samedi soir]

 

[soan]

=> 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

 

[Staple1600]

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]

 

[raf26]

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.

Euh.... je suis perdue.....

 

[Staple1600]

Bonjour

La réponse est dans le message
Il faut ajouter PtrSafe dans les déclarations
Pour les détails voir ici

Vue d’ensemble de Visual Basic pour Applications 64 bits

Rubrique de référence sur Office VBA

docs.microsoft.com

 

[Staple1600]

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

 

[raf26]

Bonjour Staple1600

Merci de ton retour

J'ai maintenant le message

Erreur de compilation
Type défini par l'utilisateur non défini

PS j'ai un windows 64 bits, cela peut influencer ?