Discussion :

[lakhdar16]

Bonjour,

Pourriez-vous m'indiquer comment empêcher le copier/coller sur un textbox, pareille pour le (Ctrl+V) et le (Shift+Inser).

merci d'avance.
cordialement.

[lakhdar16]

salut;

après quelques recherches dans le forum j'ai trouver ces deux discussions:

en C# : http://www.developpez.net/forums/d12...oller-textbox/

et VB.Net: http://www.developpez.net/forums/d16...ller-text-box/

pourriez-vous m'aider à les interpréter en VBA svp?.

merci à vous.

[tee_grandbois]

Bonsoir,
sur l'évènement KeyDown de ton texte tu mets ce code :

Code :

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

1
2
3
If KeyCode = 86 Or KeyCode = 67 Then
    KeyCode = 0
End If

sur l'évènement Enter de ton texte tu mets celui-ci :

Code :

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

Me.ShortcutMenu = False

et sur l'évènement Exit de ton texte tu mets celui-ci :

Code :

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

Me.ShortcutMenu = True

[loufab]

Bonjour,

Il faut tester d'abord si la touche ctrl est activée sinon on empêche carrément la frappe de 67 (c) et 86 (x)

Voici le code complet :

Code :

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

1
2
3
4
5
If Shift = 2 Then  'est-ce CTRL
    If KeyCode = 86 Or KeyCode = 67 Then 'C ou X
        KeyCode = 0
    End If
End If

[EDIT]D'un autre coté avec ce code c'est tout les raccourcis à base de CTRL.
Ceci est plus judicieux.

Code :

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

1
2
3
4
 
If Shift = 2 and (KeyCode = 86 Or KeyCode = 67) Then 'C ou X
        KeyCode = 0
End If

Cordialement,

[tee_grandbois]

Bonsoir loufab,

Il faut tester d'abord si la touche ctrl est activée sinon on empêche carrément la frappe de 67 (c) et 86 (x)

Oui, bien sur ...évident à 9h00 du matin, beaucoup moins à 01h00 du mat

[lakhdar16]

Bonjour et désolé pour le retard.


je vous remercie infiniment pour vos réponses, ça marche nickel

merciiiiiiiiiiiiiiiiiiiiiiiii