Discussion :

[thefutureisnow]

Bonjour,

J’ai une application que je dois modifier sous Access, j’ai donc un formulaire avec un sous formulaire, je souhaiterais rendre impossible la sélection de cellules (plus d'une). Je pensais donc récupérer l’événement de sélection d’une ou plusieurs cellules dans ce sous formulaire, puis l’annuler.
Mon problème c’est que je ne sais pas si cela est techniquement possible, mais si oui quel serait l’instruction type pour récupérer un événement "onselection", si quelqu’un a une idée là-dessus !

Merci !

[PapouDomi]

Bonsoir.
Je ne suis pas sûr d'avoir bien compris la demande, mais s'il s'agit simplement d'interdire à l'utilisateur de modifier le contenu des champs du sous-formulaire, il suffit de modifier les propriétés des dits champs.
Cordialement, Dominique.

[thefutureisnow]

Bonjour,

Merci de ta réponse, en faites je ne veux pas interdire la modification mais la sélection multiple, pour éviter de faire un copier coller des cellules pour des raison de protection des données. Je suis sous Access 2003.

tu aurais une idée ?

[PapouDomi]

Bonjour.
Si j'ai bien compris ton problème, c'est d'interdire la copie de données à partir de ton sous-formulaire.
Je te propose la solution suivante:
-1 Inhiber le menu contextuel de ton sous-formulaire: Propriété Menu contextuel = Non
-2 Dans l'évènement "sur touche appuyée" de chaque champ, installer une routine qui intercepte les combinaisons de touches "Ctrl + C" et "Ctrl + Insert" et vide le presse papier.
Cela donne le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Private Sub ViderPP()
  OpenClipboard Me.hwnd
  EmptyClipboard
  CloseClipboard
End Sub
 
Private Sub Champ1_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = 2 And KeyCode = 67 Or Shift = 2 And KeyCode = 45 Then ViderPP
End Sub

Note: J'ai trouvé comment vider le presse papier dans http://www.developpez.net/forums/d15...se-papier-vba/
Merci à Olivier Regnier.
Cordialement, Dominique

[thefutureisnow]

Bonjour,

Désolé pour le retard de ma réponse, j'étais sur plusieurs projets à la fois.
Je viens de mettre en œuvre ta technique, elle fonctionne parfaitement.
L'idée est très ingénieuse !

Merci beaucoup !