Discussion :

[esse2016]

Bonjour à tous,

encore une intervention sur Développez.com.

Je n'arrive pas à empêcher le copier coller sur un UserForm.

Exemple j'ai une combobox dès lors que je sélectionne un item, il m'est possible d'effectuer un ctrl-C. Puis par un ctrl-V dans une textbox, l'item est recopié. Mais je ne veux pas que cela se produise. Comment remédier au problème ? (j'ai le même problème de textbox à textbox)

Une aide me serait la bienvenue.

Merci d'avance.

[Jean-Philippe André]

salut,

de tete, je dirais qu'en choppant la combinaison de touche Ctrl+V ou Ctrl+C on doit pouvoir mind fuck le bazar

Quel est l'objectif exact recherche ? Empecher que l'utilisateur copie des donnees qui n'ont pas vocation a sortir de l'outil ?

[esse2016]

Merci pour ta réponse.

Non copier ailleurs de l'outil userform m'importe peu. Par contre dans le userform je souhaite qu'un utilisateur lambda puis depuis un combobox copier la valeur et me la copier dans un textbox. je souhaite grosso merdo de verrouiller de potentiel bugs.

quelqu'un aurait-il une solution pour éviter de copier la valeur d'une combobox dans un textbox (selon le ctrl-C puis ctrl-V) ?

merci...

[Jean-Philippe André]

Salut,

en plein mois de juillet, mieux vaut etre un peu patient

Vu le besoin, je doute que partir dans un blindage aussi pousse soit pertinent.

Tu peux voir si un tableau de 2 valeurs numeriques qui stockent les KeyCode lors des keydown de tes objets, avec les valeurs 17 pour Ctrl et 86 pour V...

[esse2016]

Merci pour ta rescousse JPCheck, je tente cette piste.

[unparia]

J'utiliserais personnellement une mitrailleuse. Ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Sub TextBox1_Enter()
  If TextBox1.CanPaste Then ' pour éviter ce qui est déjà vide
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
  End If
End Sub