XL 2019 enlever * dans un combobox

[escudo]

bonjour mes amis
j'aimerais connaître comment enlever * dans un combobox_change pour garder seulement les chiffres
au lieu d'afficher par exemple 004567* je veux qu'il m'affiche 004567
MERCI POUR VOTRE AIDE

 

[sylvanu]

Bonjour Escudo,
On pourrait supprimer "*", seulement "*" peut signifier aussi "n'importe quel caractère".
C'est mieux d'utiliser :

N = Mid(ComboBox1, 1, Len(ComboBox1) - 1)

 

[job75]

Bonsoir escudo, sylvanu,

Pas bien clair mais bon :

ComboBox1 = Replace(ComboBox1, "*", "")

A+

 

[escudo]

MERCI infiniment à vous deux pour votre aide.
la solution de job75 fonctionne tres bien

 

[job75]

Mais s'il s'agit de conserver uniquement les chiffres :

Dim x$, y$, i%, z$
'---
x = ComboBox1
y = ""
For i = 1 To Len(x)
    z = Mid(x, i, 1)
    If IsNumeric(z) Then y = y & z
Next
ComboBox1 = y