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
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