Discussion :

[bienfp]

Bonjour,

J'ai un fichier pour gérer mes taches et projets en cours au boulot. Ce fichier est toujours ouvert et je pense que mon problème émane de lui mais je n'arrive ni à trouver pourquoi ni à coder en vba une parade. Il s'agit d'un fichier avec pas mal de macro. Mon problème est que j'apprends sur le tas et j'ai surement mis un code (récupéré et adapté) pas terrible mais je ne sais pas l'identifier !

En gros le résultat du problème est que la touche / fonction "Verr Num" de mon clavier se désactive régulièrement. C'est très gênant quand on travaille car on se met à déplacer le curseur à différents endroits et ensuite taper du texte là où l'on en veut pas... et on ne s'en rend pas toujours compte en travaillant sur ce fichier, la fonction Verr Num est désactivé pour tout windows, le problème est donc "envahissant".

J'ai essayé de mettre le code suivant dans mes macros, mais rien y fait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CreateObject("WScript.Shell").SendKeys "{NUMLOCK}", False
CreateObject("WScript.Shell").SendKeys "{NUMLOCK}", True

Si quelqu'un a une idée ou un axe de recherche ou des précisions à demander...
Merci d'avance

Pierre

[QuestVba]

Bonjour,
Voici une piste. Ce petit code te permet de savoir si le pavé Num est actif ou non et s'il est inactif, il l'active.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Const VK_NUMLOCK = &H90
Public Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Long
 
Sub VérifEtatNumlock()
If GetKeyState(VK_NUMLOCK) = 1 Then
    MsgBox "Pavé numérique activé"
Else
    MsgBox "Pavé numérique désactivé"
    Application.SendKeys "{NUMLOCK}", True
End If
End Sub

[bienfp]

Bonjour et merci pour ton message si rapide !
Je viens de le rajouter à mon code. En manuel ça fonctionne, je vais voir sur les prochains jours. Et si tout va bien, je reviendrai mettre un autre petit merci !

[bienfp]

Ah ! je pense avoir mis la main sur mon problème n°1 --> quel code fout la merde
Par contre, à mon problème n°2, je ne sais réponde --> comment corriger le tire !

En gros, sur un clic droit sur une colonne j'ai le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    If Not Intersect(Target, Range(REtat)) Is Nothing Then
        Cancel = True
        ActiveCell.Validation.Delete
        ActiveCell.Validation.Add xlValidateList, , , "=Objets!G2:G9"
        SendKeys "%{down}"
        'la suppression de la liste se fait au niveau de la "worksheet_change" macro
    End If

Et il semble que ce soit SendKeys "%{down}" qui désactive le Verr Num.
Ce SendKeys "%{down}" sert à dérouler une liste de validation.

Le code que QuestVba m'a donné plus tôt ce matin ne fonctionne pas dans ce cas précis. En tout cas pas tel quel.

Help, si quelqu'un sait ?

Pierre

[bienfp]

Bon puisse que plus personne ne vient m'aider je vais clore le dossier.

En gros j'ai solutionné le problème en faisant autrement, j'ouvre un userform que je dimensionne comme je veux.

Ça fonctionne mais ne donne pas la réponse au problème : comment le "sendkeys down" déverrouille t-il le VerrNum et comment l'endiguer .... ?

A bon entendeur ! Salut.

[galopin01]

bonjour,
Ce que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "%{down}"

à défait, un second

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "%{down}"

peut y remédier...
il suffit de trouver à quel endroit le placer !
A+

[bienfp]

bonjour,

Tout à fait d'accord.
Donc ce SendKeys "%{down}" ouvre le menu "liste de choix" de la case, sauf que je ne veux pas que ce menu apparaisse une fois le choix fait...

D'ailleurs, les solutions précédemment exposées se base sur l'état de la touche Verr Num. Le test vérifie si oui ou non le résultat est 1. voir code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Const VK_NUMLOCK = &H90
Public Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Long
 
Sub VérifEtatNumlock()
If GetKeyState(VK_NUMLOCK) = 1 Then
    MsgBox "Pavé numérique activé"
Else
    MsgBox "Pavé numérique désactivé"
    Application.SendKeys "{NUMLOCK}", True
End If
End Sub

Sauf que sur mon pc, en avançant la macro en pas à pas, je vois que la valeur est 141 et non 1... bizarre.