textbox et copier/coller

[munity]

bonjour à tous

y aurait il une âme charitable qui pourrait me renseigner
voila
je souhaiterai empêcher dans un textbox le copier/coller de toute forme de texte afin d'obliger la saisie au clavier .
j'ai trouvé des code du style
If KeyAscii = 22 Then

MsgBox "toto"
End If
mais cela ne fonctionne pas

merci d'avance

 

[Pierrot93]

Re : textbox et copier/coller

Bonjour Mumuty

essaye le code ci dessous à placer dans le module de ton USF :

Private Sub TextBox1_Enter()
    Application.CutCopyMode = False
End Sub

bon après midi
@+

 

[munity]

Re : textbox et copier/coller

salut pierrot

aucune réaction lorsque je colle dans le textbox
le programme ne passe pas par le code
Private Sub TextBox5_Enter()
Application.CutCopyMode = False
End Sub

a vos propositions

merci encore pierrot

cdt

 

[Pierrot93]

Re : textbox et copier/coller

Re

rajoute peut être aussi le code sur les événements ci dessous :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Application.CutCopyMode = False
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Application.CutCopyMode = False
End Sub

voir en plus lors de l'initialisation de l'USF
@+

 

[munity]

Re : textbox et copier/coller

re

en fait cela semble fonctionner si l'on veut copier depuis une autre feuille excel
la combinaison du ctrl+c et +v n'a plus d'effet
par contre si je copie depuis un autre outil (outlook) le corps d'un message
la c le drame tout est copié
et ce justement cela que je souhaiterai eviter à la base

bouououououoh
snif snif

je suis desespéré

cdt

 

[Cousinhub]

Re : textbox et copier/coller

Bonjour, Application.CutCopyMode = False est opérant lorsqu'il s'agit d'une cellule entière de sélectionner. Fais le test en cliquant sur la cellule, puis F2 pour l'éditer, sélectionne du texte à l'intérieur de la cellule, tu pourras alors copier / coller...
Une alternative (OK, c'est pas académique, mais....)
le principe, dès que ta souris arrive sur l'userform, on copie la cellule Z1, puis on vide le presse-papier....

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
[z1].Copy
Application.CutCopyMode = False
End Sub

 

[munity]

Re : textbox et copier/coller

salut bhbh

merci de te pencher sur mon problème
mais ce que je souhaite c que l'on ne puisse copier ni depuis excel ou blocnote ou un message outlook ou quoique ce soit de copiable
je veux obliger la personne à saisir (pas de caractère interdit) juste une obligation de saisir au clavier
cette demande a pour but d'obliger une personne à lire et à retranscrire une demande particulière

merci en tout cas
à vos propositions...
j'ai bonne espoir
pitié


cdt

 

[munity]

Re : textbox et copier/coller

salut le phorum

message de bhbh
finalement ta soluce semble être Ok
moi et mon problème de dislexie
ou bien la fatigue après une journée de boulot
je n'avais bien lu l'instruction qui en fait s'avère être un paliatif tout à fait honorable à mon besoin
bien, il est vrai, que je préférerais une soluce un peu plus orthodoxe

bien à vous

cdt

 

[munity]

Re : textbox et copier/coller

salut à tous

pour faire suite à mon fil et pour le clore
voici une solution qui me semble être celle que je cherche depuis l'ouverture du fil
Private Sub Text5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 2 And KeyCode = 86 Then
MsgBox "Copier/Coller interdit !" & Chr(13) & Chr(13) & "Saisie Obligatoire, Merci.", vbCritical, " Attention !"
End If
.Text5.SetFocus
End Sub