Soit une feuille (form1) qui contient trois boutons (couper, copier, coller) et une zone de texte (text1) dont les propriétés "Multiline" et "Scrollbars" ont respectivement pour valeur "True" et "Vertical".
Source / Exemple :
' on affecte les codes suivants aux boutons :
Private Sub couper_Click()
Form1.Text1.SetFocus
SendKeys "^X"
End Sub
Private Sub copier_Click()
Form1.Text1.SetFocus
SendKeys "^C"
End Sub
Private Sub Coller_Click()
Form1.Text1.SetFocus
SendKeys "^V"
End Sub
Conclusion :
Ensuite on peut sélectionner du texte dans form1.text1 et le couper, le copier ou le coller à l'aide des trois boutons.
Ce code ne fonctionne pas avec les RichTextBox.
Voir "Couper, Copier, coller dans une RichTextBox".
5 juin 2011 à 18:29
c pour copier tout le textbox mais si on veut choisir une partie selectionnée on fait comment?
20 avril 2009 à 16:30
Clipboard.Clear
Clipboard.SetText (Text1)
13 nov. 2007 à 22:42
j'arrive a copier mais helas, je ne peux coller nul part ailleur que dans ma propre application!
pourriez vous m'aider...merci
3 juin 2006 à 20:23
12 sept. 2000 à 10:58
51 <> Cinquante un...
à améliorer
je dispose d'une version complète!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.