Bonjour,
Quelque chose comme ceci, permet de coller ce qu'il y a dans le presse-papier, dans le TextBox1 via un clic droit, et de tout mettre en MAJUSCULES :
Option Explicit
Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
On Error Resume Next
TextBox1.Value = GetDatas
On Error Goto 0
End If
End Sub
Private Function GetDatas()
With New DataObject
.GetFromClipboard
GetDatas = .GetText(1)
End With
End Function
EDIT : pour forcer les minuscules :
Private Sub TextBox1_Change()
TextBox1.Value = LCase(TextBox1.Value)
End Sub