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

 

[Staple1600]

Re

Oui, cela à une influence
Reste à savoir si tu as un Office 32bits ou 64bits

Sinon, la solution non prise de tête c'est celle que je suggérais, non ?

 

[raf26]

J'utilise Office 64 bits.

Bon je pense que je me suis lancé dans un truc trop grand pour moi.

Je vais continuer à vérifier si ma touche majuscule est activée, l'humain reprend le dessus la machine

Merci à toi et aux autres membres de s'etre penché sur mon post (celui-çi et bien d'autres !), le temps passé est inestimable

 

[patricktoulon]

Bonjour à tous
perso j'aime pas cette méthode post#4(désolé Laurent)
car elle n’appuie pas vraiment sur la touche
comme j'ai un petit voyant sur ma touche je le vois très bien
alors oui la bascule se fait mais aucun moyen de controler
tandis que

Option Explicit
#If VBA7 Then
    Declare PtrSafe Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
#Else
    Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
#End If

Function changeCapslock(boulboul As Long)
    Dim Etat As Long, KBState(0 To 255) As Byte, CapsLock As Long
    Etat = GetKeyboardState(KBState(0)): CapsLock = KBState(&H14) And 1
    If Not boulboul = CapsLock Then CreateObject("wscript.shell").SendKeys "{CAPSLOCK}"
End Function

Sub CapslockOn(): changeCapslock 1: End Sub

Sub CapslockOff(): changeCapslock 0: End Sub

là on vois bien que la touche est allumée ou éteinte selon la sub
comme on sendkeys avec wscript.shell on a pas le soucis avec le pavé numérique
Pas compliqué

 

[Staple1600]

Re

=>patricktoulon
Test OK (mais heureusement je ne suis pas un MACiste )
Et effectivement, test Laurent pas OK chez moi
(même avec les bonnes déclarations)

 

[patricktoulon]

re
oui en fait laurent change la valeur dans le tableaux de bytes
alors oui l'effet est là mais quand on appuie après manuellement sur la touche maj verr donc on l’allume et bien on est en minuscule
LOL!!!!
avec la mienne si tu lance CapslockOn X fois elle ne s’allumera q'une fois et inversement pareil pour CapslockOff
sacré LOLO va

 

[laurent950]

perso j'aime pas cette méthode post#4(désolé Laurent)

Bonjour @patricktoulon
'
C'est avec plaisir de te croiser sur cette discussion, et au contraire je te remercie d'avoir apporté une bien meilleure solution, puis en Bonus de laisser des explications qui aident à comprendre l'amélioration du code.
'
Pour ma part j'ai juste placé ce code dans ThisWorkbook donné par @Phil69970 (dans le Poste #3 de cette discussion que j'ai recopié en Pote #4)
'
En conclusion : Je préfère ta solution @patricktoulon (En Poste #18) qui est excellente.
'
Merci Patrick
Cdt
Laurent

 

[Staple1600]

Re

[aparté - tranche de vie rennaise]
Pour ma part pour éviter les TMS, le syndrome du canal carpien, et pour avoir l'œil vif et la truffe humide, je préfère nettement cette solution:
l'adjonction d'un clavier (branché) en USB et d'un écran (voire de deux) )
Surtout quand c'est mon employeur qui sort les pépètes.

NB: J'ai déjà le clavier, j'attends plus que mon 2ième écran.
Merci la COVID19.
[/aparté - tranche de vie rennaise]

 

[laurent950]

Re @Staple1600
Merci à vous... de toute cette aide partagée au fil du temps sur le forum XLD qui est bien précieux, car vous avez aussi un bon nombre d'idées mais aussi bien plus que ça des solutions pertinentes avec un grand professionnalisme et un réel apprentissage de par le partage de vos connaissances.
Un grand merci à vous @Staple1600

 

[patricktoulon]

re
[Aparté tranche de salami]
bon je vais gouter moi
[/aparté tranche de salami]

 

[laurent950]

Re @patricktoulon
Patrick est quand même le plus efficace en matière de solution trouvée... Alors si je puis dire si PatStrike fait toujours un sans faute il y en a qui se Staple tous le travail

Merci à Vous deux @patricktoulon et aussi @Staple1600

Cdt

 

[patricktoulon]

OUIAIS!!!!!! des fois Staple1600 me Staple sur les nerfs

 

[Staple1600]

Re

[aparté dans l'aparté]
Les gens en Option Explicit et qui déclarent leur variables ont les nerfs solides et n'ont pas la phobie des agrafeuses.

[/aparté dans l'aparté]

=>laurent950

mais aussi bien plus que ça des solutions pertinentes avec un grand professionnalisme

Que nenni!
Aucun professionnalisme, c'huis bénévole sur le forum comme tous les XLDnautes.
Ceci dit serait un beau métier: passer ses journées sur XLD à faire du VBA, donner des conseils et faire de l'humour.
(Tout cela de mon salon avec un écran 4K offert par XLD)

 

[laurent950]

Re @Staple1600
Je vous remercie de votre réponse et de votre message. je vous trouve agréable et aussi très performant. et je tiens aussi à vous remercier pour votre aide que vous m'avez apporté.
Merci @Staple1600