bonsoir le forum
voici un code que j'utilise pour supprimer des lettres et garder que des chiffres il marche tres bien juste un petit beug si parmie les cellules que je traite il y a une cellule qui a que des chiffres sans lettres ou si la cellule est vide le debogeur ce declanche avec une erreur d'exécution '13' incompatibilité
de type et la ligne C = CDbl(nombre) est jaune comment peut on resoudre ce probleme merci à vous
et bonne soirée
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 des lettres et garder que des chiffres il marche tres bien juste un petit beug si parmie les cellules que je traite il y a une cellule qui a que des chiffres sans lettres ou si la cellule est vide le debogeur ce declanche avec une erreur d'exécution '13' incompatibilité
de type et la ligne C = CDbl(nombre) est jaune comment peut on resoudre ce probleme merci à vous
et bonne soirée
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