Problemes de tréma

[Olyxier]

Bonjour le Forum

voici un code que j'utilise pour supprimer les lettres dans cette ligne NOMBRE DE VICTOIRES : 5 il marche très bien et j'en suis très content
le seul problème est que lorsque je l'utilise sur cette ligne NOMBRE DE VICTOIRES : - cela déclanche le débogeur
à cause du tréma NOMBRE DE VICTOIRES : ( - ) quel code faut il ajouter à ma Macros pour resoudre mon problemes


Sub Macros

Dim C As Range
Dim i As Byte
Dim nombre As String

For Each C In Range("A1:A50")
If Not IsEmpty(C) Then
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) Then
nombre = nombre & Mid(C, i, 1)
End If
Next i
C = CDbl(nombre)
nombre = ""
End If
Next C

End SUb

Merci à vous tous et JOYEUX NÖEL

 

[Krut]

Re : Problemes de tréma

Bonjour Olyxier,

il suffit de supprimer CDbl dans C = CDbl(nombre), ie :

C = nombre


Krut

 

[Pierrot93]

Re : Problemes de tréma

Bonjour Olyxier, Krut

une autre solution si j'ai bien compris :

Sub Macros()

Dim C As Range
Dim i As Byte
Dim nombre As String

For Each C In Range("A1:A10")
If Not IsEmpty(C) Then
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) Then
nombre = nombre & Mid(C, i, 1)
End If
Next i
If nombre <> "" Then C = CDbl(nombre)
nombre = ""
End If
Next C

End Sub

Bon réveillon à tous et joyeuses fêtes.

 

[Olyxier]

Re : Problemes de tréma

OK MERCI et bonne soirée