Copier dans presse papier valeur numérique uniquement

Bonjour, j'ai une Txtbox qui prends des valeurs de code du type RS 269953 TX OU 123456789 OU HFKI9876543 , je voudrais copier dans le presse papier que la valeur numérique soit selon mes exemples 269953 ou 123456789 ou 9876543 en sachant que les valeurs alphanumériques peuvent avoir un espace ou pas ... si vous avez une idée voici mon code qui copie tout.

Private Sub CmdCopierValeur_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
LblValeurcopie.Visible = True

If TxtBoxaCopier <> "" Then
TxtBoxaCopier.BackColor = &HC000&
LblValeurcopie.ForeColor = &HC000&

' copier presse papier

Dim MyData As DataObject

 Set MyData = New DataObject

 MyData.SetText TxtBoxaCopier.Text
 MyData.PutInClipboard

Else

TxtBoxaCopier.BackColor = &HFF&
LblValeurcopie.ForeColor = &HFF&

Exit Sub

End If

End Sub

Merci d'avance...

Bonsoir,

peut-être un peu tard, non ?

En mettant quelque part un test du genre :

If IsNumeric(TxtBox) Then

Alors vous exécuter le code, en fait on vérifie si la texteboxe contient une valeur "alphanumérique" pouvant être une valeur numérique.

@ tester.

@ bientôt

LouReeD

Bonsoir, il n'est jamais trop tard je regarde ça ... Merci.

Bonjour,

après une nuit de sommeil je me rend compte que je me suis trompé !

En fait il vous faut supprimer tout ce qui est non numérique pour ne garder QUE le numérique du code...

Ma proposition est fausse alors..

@ bientôt

LouReeD