Copier le contenu d'une TextBox avec Bouton Droit "Copier" de la souris

[YANN-56]

Bonsoir à ce qui passeront par là.

Je ne parviens pas à faire une copie du contenu des TextBoxes.
Click bouton droit "Copier"... C'est invalide???

Il me manque peut-être un truc quelque part dans les paramètres de celles-ci.

Je ne trouve pas. Merci d'avance pour votre aide.

Bonne fin de fin de semaine à tous.

Yann

Ci-joint mon Test.

 

[kjin]

Re : Copier le contenu d'une TextBox avec Bouton Droit "Copier" de la souris

Bonsoir,

Je ne parviens pas à faire une copie du contenu des TextBoxes.

Copie de quoi pour mettre où ?
Pour copier dans le presse papier

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
    TextBox1.Copy
End If
End Sub

Selectionne les caracteres à copier dans la textbox puis click droit sur la selection
A+
kjin

 

[jp14]

Re : Copier le contenu d'une TextBox avec Bouton Droit "Copier" de la souris

Bonsoir
Salut kjin


Moi non plus.

Une solution

Documentation vba

expression.Copy(Destination)
expression Obligatoire. Expression qui renvoie un objet Range.

Destination Argument de type Variant facultatif. Spécifie la nouvelle plage dans laquelle la plage spécifiée sera copiée. Si vous ne spécifiez pas cet argument, Microsoft Excel copie la plage dans le Presse-papiers.

Quand on sélectionne le textbox utiliser la méthode copy, de ce fait il est inutile de copier, le contenu sera dans le presse papier.

JP

 

[YANN-56]

Re : Copier le contenu d'une TextBox avec Bouton Droit "Copier" de la souris

Merci kjin et jp14 d'avoir pris le temps de lire ma question,
et d'y apporter vos remarques.

Je me suis comme d'ab. pas trop bien exprimé!

En Double Cliquant sur l'Item de ma Banque,
j'ouvre la page d'accueil de celle-ci via le SubItem (1)

Mon code d'accès va m'être demandé.

Comme il n'est pas "Bouffable", je l'aurais préalablement copié dans le TextBox1
et il ne me restera plus qu'à le coller dans leur demande d'identification.

C'est là que je coince, la fonction "Copier" ne marche pas!!!

Merci encore, et bonne soirée.

Yann

 

[JONEY76]

Re : Copier le contenu d'une TextBox avec Bouton Droit "Copier" de la souris

Selectionne le texte et ctrl+C

Rapide et efficace (j'espère)

CTRL+V pour coller
CTRL+X pour couper

Sinon tu as aussi CRTL+A CTRL+C

 

[Pierrot93]

Re : Copier le contenu d'une TextBox avec Bouton Droit "Copier" de la souris

Bonjour à tous

pas sûr d'avoir tout compris, mais il me semble que pour copier le contenu d'un "textbox" dans le presse papier, il faut au préalable en avoir selectionné le texte, ci-dessous un exemple si cela peut t'aider :

With TextBox1
    .SelStart = 0
    .SelLength = Len(TextBox1)
    .Copy
End With
Feuil1.Paste Range("A1")

bonne journée
@+

 

[jp14]

Re : Copier le contenu d'une TextBox avec Bouton Droit "Copier" de la souris

Bonjour à tous

Une autre méthode qui fait appel au "key" d'une listview et au fait que copy s'applique à une plage de cellule ("Range")

Modification à apporter
on rajoute une adresse dans les items de la listview

 For j = 2 To 6
   .ListItems(.ListItems.Count).ListSubItems.Add , Chr(64 + j) & i, ActiveSheet.Cells(i, j).Value
    Next j

On utilise cette adresse quand on entre dans le textbox

Private Sub TextBox1_Enter()
On Error Resume Next
ActiveSheet.Range(ListView1.SelectedItem.ListSubItems(2).Key).Copy

End Sub

Private Sub TextBox2_Enter()
On Error Resume Next
ActiveSheet.Range(ListView1.SelectedItem.ListSubItems(3).Key).Copy
End Sub

A tester

JP

 

[YANN-56]

Re : Copier le contenu d'une TextBox avec Bouton Droit "Copier" de la souris

Bonjour, et grand Merci à tous.

J'ai opté pour la solution de Pierrot qui convient
parfaitement à ce que je cherchais à faire.

Il n'en demeure pas moins je les codes de kjin, jp14 ou méthode de joney76
sont très riches en enseignement.

Il me manquait que l'utilisateur soit averti de la mise en mémoire.
Je l'ai résolu par un label le signalant.

Merci encore, et bonne fin de journée.

Yann