retirer en vba le 0 devant un nombre

[zephir94]

Bonjour à tous,

Je voudrais retirer dans une chaîne de caractère le 0, je voudrais par exemple transformer dede010 ou dede 010
en 10.
J'ai donc écris une boucle qui fonctionne pour dede01 ou dede 01 mais qui me supprime le 0 si on a dede010 j'obtient 1 , je pert donc le 0 en fin de chaîne.

Voici mon code

Fnum2 = "dede10"
For i = 1 To Len(Fnum2)
x = Val(Mid(Fnum2, i, 1))
If x <> 0 Then
y = y & x
End If
Next

Merci par avance pour vos aides

Bien amicalement

zephir94

 

[Dranreb]

Bonjour.
Comme ça :

Sub T()
Dim Z$, P#, C As String * 1
Z = "dede 010"
For P = 1 To Len(Z)
   C = Mid$(Z, P, 1): If C >= "0" And C <= "9" Then Exit For
   Next P
Z = Trim$(Left$(Z, P - 1)) & Val(Mid$(Z, P))
MsgBox Z
End Sub

 

[zephir94]

Merci pour la réponse,

Mais j'obtient dede10 je voudrais uniquement 10
Merci pour cette proposition

 

[Dranreb]

Ben alors vous ne prenez que Val(Mid$(Z, P))
L'important à retenir c'est le Exit For.

 

[zephir94]

Merci beaucoup c'est bon

 

[pierrejean]

Bonjour zephir94
Salut Dranreb

Pour n'importe qui avec n'importe quel nombre

ActiveCell = Replace(ActiveCell.Value, " 0", " ")

 

[job75]

Bonjour zephir94, Bernard, Pierre,

Mais qu'est-ce qu'il vous arrive les amis ? Cette fonction est vraiment évidente :

Function ExtraireNombre(t$)
Dim i%
For i = 1 To Len(t)
  If IsNumeric(Mid(t, i, 1)) Then ExtraireNombre = Val(Mid(t, i)): Exit Function
Next
ExtraireNombre = ""
End Function

A utiliser dans une feuille de calcul ou dans une macro comme :

Sub Test()
MsgBox ExtraireNombre("dede010")
End Sub

A+

 

[pierrejean]

Re
Salut Gerard
Je n'avais lu que le début de la phrase
Je voudrais retirer dans une chaîne de caractère le 0, je voudrais par exemple transformer dede010 ou dede 010
en 10.

 

[job75]

Re,

Si le nombre à extraire peut être décimal utiliser :

Function ExtraireNombre(t$)
Dim i%
For i = 1 To Len(t)
  If IsNumeric(Mid(t, i, 1)) Then ExtraireNombre = Val(Replace(Mid(t, i), ",", ".")): Exit Function
Next
ExtraireNombre = ""
End Function

A+

 

[zephir94]

Merci beaucoup à vous tous pour vos aides