Couper, copier, coller dans une richtextbox
Contenu du snippet
Soit une feuille (form1) qui contient trois boutons (couper, copier, coller) et une TextBox ou une RichTextBox (text1) dont les propriétés "Multiline" et "Scrollbars" ont respectivement pour valeur "True" et "Vertical".
Ensuite on peut sélectionner du texte dans form1.text1 et le couper, le copier ou le coller à l'aide des trois boutons.
Voir aussi "Couper, Copier, coller dans une TextBox".
Source / Exemple :
' on affecte les codes suivants aux boutons :
Private Sub couper_Click()
If Text1.SelText <> "" Then
Clipboard.SetText(Text1.SelText)
Text1.SelText = ""
End If
End Sub
Private Sub copier_Click()
If Text1.SelText <> "" Then
Clipboard.SetText(Text1.SelText)
End If
End Sub
Private Sub Coller_Click()
Text1.SelText = Clipboard.GetText
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.
Voir aussi "Couper, Copier, coller dans une TextBox".
A voir également
- Couper, copier, coller dans une richtextbox
- Vba copier coller dans une autre feuille ✓ - Forum Visual Basic
- Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè ✓ - Forum Visual Basic 6
- Vba coller valeur cellule sur une autre cellule avec variable ✓ - Forum Visual Basic 6
- Couper coller vba ✓ - Forum Visual Basic 6
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
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.