Comment désactiver le bouton Control(ctrl)?

[subkill]

Bonjour,

J'ai un application en excel qui permet d'ajouter et de supprimer plusieurs employés(chaque employé est sur un ligne).

Pour supprimer, l'utilisateur peut sélectionner soit un utilisateur soit plusieurs. Cependant quand il en sélectionne plusieurs ils doivent être adjacent, alors je ne veux pas que l'utilisateur puisse utiliser le bouton control(ctrl) pour en sélection à différent endroit.

Est-ce possible de désactivé le bouton control(ctrl) dans mon classeur excel?

 

[Cousinhub]

Re : Comment désactiver le bouton Control(ctrl)?

Bonjour subkill

ils doivent être adjacent

pourquoi?
Pas de raisons particulières pour excel, donc est-ce dans ton tableau qu'il faut cela, ou tu ne sais pas comment le faire (suppression de cellules non adjacentes)?

Mets le code ici (un petit fichier serait un plus), on regardera

 

[Staple1600]

Re : Comment désactiver le bouton Control(ctrl)?

Bonsoir



Une réponse a ta question ici

https://www.excel-downloads.com/threads/comment-bloquer-lutilisation-de-la-touche-ctrl.74213/

 

[Cousinhub]

Re : Comment désactiver le bouton Control(ctrl)?

Bonsoir staple
à priori, subkill veut interdire la sélection de cellules non adjacentes par la touche CTRL (comme le dit hervé dans ton lien🙂

en vba on peut controler certaines touches par la méthode onkey, hélas, ctrl est exclus des touches controlables.

Mais peut-être va-t-il revenir pour préciser ses besoins?????

 

[Staple1600]

Re : Comment désactiver le bouton Control(ctrl)?

Re


Donc si j'ai bien compris (avec ce code dans la feuille, pas dans un module)
On empeche la sélection multiple

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Count > 1 Then
MsgBox "Selection multiple impossible", vbCritical, "Attention ERREUR"
ActiveCell.Select
Exit Sub
End If
End Sub

 

[Cousinhub]

Re : Comment désactiver le bouton Control(ctrl)?

re-
(ben on va faire le fil sans lui, si ça continue)
il ne veut pas interdire la sélection multiple, uniquement la sélection multiple de cellules non adjacentes
Dommage....😉

 

[Staple1600]

Re : Comment désactiver le bouton Control(ctrl)?

Re


En cherchant ci et là

J'ia trouvé ce genre de code (qui semble interessant)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'http://www.office-loesung.de/ftopic93467_0_0_asc.php
  If Target.Columns.Count = 1 Then
    Me.Unprotect
    With Target
      Range(.Cells(2, 1), Cells(Rows.Count, .Columns(.Columns.Count).Column)).Locked = Len(.Cells(1)) = 0
    End With
    Me.Protect
  Else
    On Error GoTo Ende
    Application.EnableEvents = False
    Application.Undo
  End If
Ende:
  Application.EnableEvents = True
End Sub

Mais je ne vois pas encore comment l'adapter à la question posée.

Quelqu'un aurait une idée?

 

[Cousinhub]

Re : Comment désactiver le bouton Control(ctrl)?

Re-,
inutile de te fatiguer, je subodore que le code écrit par notre ami permet de supprimer les lignes sélectionnées, code qui fonctionne sans problème si les cellules sont adjacentes, mais qui pose problème en cas de sélection multiple.
attendons son code, et on verra

 

[fred65200]

Re : Comment désactiver le bouton Control(ctrl)?

bonsoir le fil,

une autre piste avec les APIs

Global Const VK_CONTROL = &H11
Private Declare Function GetKeyState Lib "user32" _
    (ByVal vKey As Long) As Integer
Function DisableVK_CONTROL()
    If GetKeyState(VK_CONTROL) < 0 Then ActiveCell.Select
End Function

et dans le module de feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
DisableVK_CONTROL
End Sub

mais je crois qu'on en saura plus demain.

bonne soirée
fred65200

 

[Staple1600]

Re : Comment désactiver le bouton Control(ctrl)?

Bonsoir Fred65200


Ta solution est bluffante (et peut servir à de mauvaises blagues
destinées au collègue , celui qui...)


Heureusement, j'ai pas de collègue qui.. 😛

Mais une collègue qui .....est bluffante elle aussi 😉

 

[fred65200]

Re : Comment désactiver le bouton Control(ctrl)?

merci Staple1600,

on peut faire la même chose pour d'autre touches

Global Const VK_CONTROL = &H11
Global Const VK_SHIFT = &H10
Global Const VK_TAB = &H9
Global Const VK_RETURN = &HD
Global Const VK_PRIOR = &H21 ' PGUP
Global Const VK_NEXT = &H22 ' PGDN
Global Const VK_MENU As Long = &H12
Global Const VK_CAPITAL = &H14
Global Const VK_NUMLOCK = &H90
Global Const VK_SCROLL = &H91

@+
fred65200

 

[Staple1600]

Re : Comment désactiver le bouton Control(ctrl)?

Re

Oui je sais, mais chut....😉

(Je crois qu'il y a la liste des constantes dans l'aide )

faudrait pas qu'il y ait une épidémie de désactivation sauvage de touches.

 

[degap05]

Re : Comment désactiver le bouton Control(ctrl)?

bonsoir le fil,

une autre piste avec les APIs

Global Const VK_CONTROL = &H11
Private Declare Function GetKeyState Lib "user32" _
    (ByVal vKey As Long) As Integer
Function DisableVK_CONTROL()
    If GetKeyState(VK_CONTROL) < 0 Then ActiveCell.Select
End Function

et dans le module de feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
DisableVK_CONTROL
End Sub

mais je crois qu'on en saura plus demain.

bonne soirée
fred65200

Bonjour Fred65200, bonjour le forum,
Je souhaite utiliser le code pour désactiver la touche Ctrl, mais celui-ci n'empêche pas le Ctrl+ ou Ctrl-, sur l'en tête de ligne ou de colonne.
Avez-vous une autre solution ?
Merci.