XL 2019 enlever * dans un combobox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2024

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2024

• #3

Bonsoir escudo, sylvanu,

Pas bien clair mais bon :

VB:

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

A+

 

Vote positif 0 Vote négatif

Solution

E

escudo

XLDnaute Nouveau

• 10 Février 2024

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2024

• #5

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

Code:

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

 

Vote positif 0 Vote négatif