Private Sub TextBox1_Change() Static anc As String If Not IsNumeric(TextBox1.Text) Then TextBox1.Text = anc Else anc = TextBox1.Text End If End Sub
Dim mydate As Object Private Sub TextBox1_Enter() Set MyData = New DataObject MyData.SetText "" MyData.PutInClipboard End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEst ce que je peux insérer ton code directement ou je suis obligé de définir "Enter" au niveau de ma textbox?
Dim mydate As Object
Set MyData = New DataObject MyData.SetText "" MyData.PutInClipboard