Problème d'exécution

[Olyxier]

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

 

[myDearFriend!]

Re : Problème d'exécution

Bonsoir Olyxier

ICI, je t'avais proposé un code qui n'avait pas cet inconvénient... Reste à savoir si tu l'as testé avant de créer ce nouveau fil... Peut-être n'est-il pas adapté à ton souhait, encore faudrait-il le préciser...

Cordialement,

 

[Olyxier]

Re : Problème d'exécution

Bonsoir oui j'ai essayé mais je ne comprend pas tres bien comment il marche moi tu sais j'utilise des macros simple la tienne je ne sais pas comment l'utilise car moi je fais un bouton avec une image en general a la quelle j'affecte une macro donc un truc simple quoi