capslock par défaut

[placis]

Bonjour à tous,

Je souhaiterai que la touche capslock soit activé par défaut lorsque j'ouvre un fichier excel.
Comment faire, si quelqu'un peut m'aider.

Merci

 

[yojema]

Re : capslock par défaut

tien voici une piste ca marche pas mais j en suis pas loin je pense

SendKeys "(CAPSLOCK)", True

je n ai pas encore trouver comment lui faire faire ce que tu veut

a+ lol

 

[yojema]

Re : capslock par défaut

bonsoir Placis

lol j ai pas trouver 😡

salut

 

[placis]

Re : capslock par défaut

Bonsoir yojema,

Moi non plus, je ne trouve pas. Dans ce forum ou d'autres, il n'y a pas de solution qui fonctionne. Je continue à chercher et si je trouve, je fais signe.
Si d'autres utilisateurs d'excel connaissent une formule, faites-nous signe.

Merci et à bientôt

 

[ODVJ]

Re : capslock par défaut

Bonsoir à tous,

voici un code adapté de VBfrance qui devrait convenir

Private Declare Function GetKeyState Lib _
"user32" (ByVal nVirtKey As Long) As Integer
Public Function CapsLockOn() As Boolean
    Dim iKeyState As Integer
    iKeyState = GetKeyState(vbKeyCapital)
    CapsLockOn = (iKeyState = 1 Or iKeyState = -127)
End Function
Private Sub positionne_capslock()
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
If CapsLockOn = False Then WshShell.SendKeys "{CAPSLOCK}"
End Sub

il suffit d'appeler positionne_capslock() à l'ouverture du classeur.

cordialement

 

[placis]

Re : capslock par défaut

Bonjour et merci ODVJ

Qu'entends par :
"il suffit d'appeler positionne_capslock() à l'ouverture du classeur"
et comment fait-tu ?

Placis

 

[ODVJ]

Re : capslock par défaut

Bonsoir,

tu le mets en

Private Sub Workbook_Open()
......
End Sub

derrière la feuille thisworkbook.

A+

 

[la croisée des pains]

Re : capslock par défaut

bonjour à touss,

petite question ? c'est quoi la touche capslock

merci de votre futur réponse

bonne journée

laurent

Ps: j'ai fait une recherche et j'ai trouvé sur le net(verr majuscule)

merci quand même

 

[placis]

Re : capslock par défaut

Bonjour

merci à tous les participants

dans la feuille thisworkbook, j'ai rentré le code :

Private Sub Workbook_Open()
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
If CapsLockOn = False Then WshShell.SendKeys "{CAPSLOCK}"
End Sub

et ça marche
Merci et à bientot sur le forum