retirer en vba le 0 devant un nombre

Dranreb

XLDnaute Barbatruc

• 15 Juin 2017

• #2

Bonjour.
Comme ça :

VB:

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

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 15 Juin 2017

• #3

Merci pour la réponse,

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Juin 2017

• #4

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

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 15 Juin 2017

• #5

Merci beaucoup c'est bon

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Juin 2017

• #6

Bonjour zephir94
Salut Dranreb

Pour n'importe qui avec n'importe quel nombre

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Juin 2017

• #7

Bonjour zephir94, Bernard, Pierre,

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

Code:

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Juin 2017

• #8

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Juin 2017

• #9

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 28 Juin 2017

• #10

Merci beaucoup à vous tous pour vos aides

 

Vote positif 0 Vote négatif