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

[esse2016]

Merci Unparia,

mais peux-tu svp développer un peu car je ne pige pas toutes les syntaxes.

De plus je crois comprendre que tu vérifies à l'intérieur d'une textbox au moment de son entrée.

cependant le peu que je comprenne, est que si tu viens d'une combobox et que le copier a été fait, alors dans ta routine il ne serait pas possible de coller ?!?

Merci pour ton éclaircissement.

++

[unparia]

mais peux-tu svp développer un peu car je ne pige pas toutes les syntaxes.

De plus je crois comprendre que tu vérifies à l'intérieur d'une textbox au moment de son entrée.

Ce qui est utilisé n'a rien à voir avec VBA. Ce sont des fonctions de l'API de Windows.
A l'entrée dans la textbox, le presse-papier est vidé de son contenu, qu'il devient donc impossible d'utiliser de quelque manière que ce soit. Voilà tout.

[esse2016]

ok je pige mieux.

Par contre le portage n'est pas assuré d'une machine à une autre genre pc vs mac ?

[patricktoulon]

il y a beaucoup plus simple
bloquer simplement la touche ctrl

Code :

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

1
2
3
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 17 Then MsgBox "copier coller interdit rentre chez ta mère  et va apprendre a taper toi même "
End Sub

tu peut toujours essayer de faire ctrlV ou ctrlC

[unparia]

Bonjour patricktoulon
c'est en effet une solution, mais à condition de faire alors harakiri de tous les autres raccourcis clavier (dont CTRL + A, CTRL + X, etc ..)
Si adoptée : vaut peut-être mieux ne la mettre en oeuvre que si CanPaste est True, pour limiter aux cas "risqués"

Au rang des solutions "simples", il y a également celle-ci, mais que je n'aime pas à divers titres :

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_Enter()
 Application.CutCopyMode = False
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Application.CutCopyMode = True
End Sub

[patricktoulon]

re
@unparia

sinon en pure gestion de l'évènement tu a cela

Code :

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

1
2
3
4
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 17 Then TextBox1.Tag = "non"
If KeyCode = 86 Or KeyCode = 67 And TextBox1.Tag = "non" Then KeyCode = 0: TextBox1.Tag = ""
End Sub

tu peut toujours essayer de copier coller mais ca ne bloque pas les ctrl+autre touche

[esse2016]

Bonjour et merci pour vos interventions.

-> PatrickToulon : j'ai essayé ta méthode avec keycode = 17 etc... ça marche dans mon userform à savoir si je copie l'item du combobox, via la souris, puis si je colle dans le textbox alors la valeur n'est pas recopiée. Mais je dois pousser le test voir si il n'y a pas des vices cachés.
Question subsidiaire (de manière générale d'objet à objet est-ce la même routine ? ex: de combobox à combobox etc ...)

-> Unparia : j'ai essayé ta méthode de application.paste ect... mais cela ne marche pas (aucun code d'erreur remonté, en gros je peux copier et coller). Donc est-ce applicable à un userform ou plutôt à une feuille ? (je travaille dans un userform)

-> unparia : je n'ai pas essayé avec ta seconde méthode lib user32.dll un truc dans ce genre. Cette solution je ne la retiens pas. J'ai cru comprendre qu'il pouvait y avoir des évolution difficile à gérer et/ou une incompatibilité de *.dll par rapport aux versions d'excel... De plus au travail certaines ne sont pas autorisées (pas tout pigé, j'avoue) => contrainte

-> Jpcheck : toujours pas fait avec une méthode de tableau mais il semblerait que l'idée se rapprocche de celle de PatrickToulon.

Merci pour vos aides, cela me débloque un peu plus...

[patricktoulon]

re
Bonjour
oui la routine serait identique pour chaque control ayant l'évènement keydown

et oui c'est a peu près l'idée de jpcheck sauf que j'utilise le tag du bouton pour mémoriser la touche ctrl appuyée

on pourrait faire aussi comme suit
tester les combinaison de touche avec like par rrapport a une variable de type string

Code :

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

1
2
3
4
5
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
nottouche="1786176717651780"
If KeyCode = 17 Then TextBox1.Tag = 17
if nottouche like "*"&.tag & keycode & "*" then KeyCode = 0: TextBox1.Tag = ""
End Sub

résultat:

ctrl a,c,v,p c'est walouhwalouh