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
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
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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
VB: 
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é
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc
patricktoulon à dit:
perso j'aime pas cette méthode post#4(désolé Laurent)
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
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]
 
Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
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
Cliquez pour agrandir...
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)
 
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…