capslock par défaut

yojema

XLDnaute Occasionnel

• 27 Octobre 2006

• #2

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

 

Vote positif 0 Vote négatif

yojema

XLDnaute Occasionnel

• 28 Octobre 2006

• #3

Re : capslock par défaut

bonsoir Placis

lol j ai pas trouver 😡

salut

 

Vote positif 0 Vote négatif

P

placis

Guest

• 28 Octobre 2006

• #4

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

 

Vote positif 0 Vote négatif

O

ODVJ

XLDnaute Impliqué

• 28 Octobre 2006

• #5

Re : capslock par défaut

Bonsoir à tous,

voici un code adapté de VBfrance qui devrait convenir

Code:

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

 

Vote positif 0 Vote négatif

P

placis

Guest

• 29 Octobre 2006

• #6

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

 

Vote positif 0 Vote négatif

O

ODVJ

XLDnaute Impliqué

• 29 Octobre 2006

• #7

Re : capslock par défaut

Bonsoir,

tu le mets en

Code:

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

derrière la feuille thisworkbook.

A+

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 30 Octobre 2006

• #8

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

 

Dernière édition: 30 Octobre 2006

Vote positif 0 Vote négatif

P

placis

Guest

• 30 Octobre 2006

• #9

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

 

Vote positif 0 Vote négatif