Uniquement avec la souris

Bonjour,

Existe-t-il une solution pour bloquer le clavier sur une zone donnée afin d'agir uniquement avec la souris ?

Par exemple bloquer la colonne A (donc bloquer les flèches de direction)

Merci d'avance,

Philippe

J'ai trouvé en partie car je dois modifier mon code pour pouvoir agir uniquement avec la souris.

Sur chaque clic dans les cellules de la colonne A je voudrais inscrire un "A".

Merci.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim rng As Range If Not Application.Intersect(Target, Me.Range("A:A")) Is Nothing Then For Each rng In Application.Intersect(Target, Me.Range("A:A")) Application.OnKey "{Up}", "" Application.OnKey "{Down}", "" Application.OnKey "{Left}", "" Application.OnKey "{Right}", "" Next rng Else Application.OnKey "{Up}" Application.OnKey "{Down}" Application.OnKey "{Left}" Application.OnKey "{Right}" End IfEnd Sub

Bonjour Philippe02, le forum,

Peut-être ainsi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
      Target.Value = "A"
      Target.Application.OnKey "{DOWN}", ""
      Target.Application.OnKey "{UP}", ""
      Target.Application.OnKey "{LEFT}", ""
      Target.Application.OnKey "{RIGHT}", ""
    Else
      Application.OnKey "{DOWN}"
      Application.OnKey "{UP}"
      Application.OnKey "{LEFT}"
      Application.OnKey "{RIGHT}"
    End If
End Sub

Cordialement,

Bonsoir,

Merci pour votre réponse.

je vais faire des essais.

Cordialement

Philippe