case vide = galère

[Olyxier]

BONJOUR le forum
voici un code que j'utilise pour supprimer les lettres le seule probleme est qu'il
declenche le debogeur lorsque je l'utilise sur une cellule vide comment peut on resoudre ce probleme
merci à vous

Sub ()

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

For Each C In Selection
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 = ""
Next C

End Sub

 

[Pierrot93]

Re : case vide = galère

Bonjour Olyxier,

peut être comme ci dessous si j ai bien compris...

Sub test()

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

For Each C In Selection
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

bon après midi
@+

 

[Olyxier]

Re : case vide = galère

Merci Pierrot sa marche super bonne journée