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