XL 2016 Ignorer une erreur VBA

[R1-]

Bonjour,

J'utilise une macro pour convertir du texte en nombre, cela marche très bien jusqu'à ce que ma formule bute sur une cellule qu'elle ne peut pas convertir au format nombre. j'ai donc un message d'erreur "incompatibilité de type". J'aimerai savoir comment ignorer les cellules concernées par cette erreur.
Voici le code :

Sub cnum()
For Each cell In Selection
If Application.IsText(cell.Value) Then
cell.Value = CDbl(cell.Value)
End If
Next
End Sub

Merci par avance pour vos réponses.

 

[cp4]

Bonjour,

Sans fichier , à tester.

Sub cnum()
For Each cell In Selection
If Application.IsText(cell.Value) Then
On Error Resume Next
cell.Value = CDbl(cell.Value)
On Error GoTo 0
End If
Next
End Sub

 

[job75]

Bonjour R1-, cp4,

Avec ceci il n'y aura jamais d'erreur :

Sub cnum()
For Each cell In Selection
    If IsNumeric(CStr(cell)) Then cell.Value = CDbl(cell)
Next
End Sub

A+

 

[R1-]

Bonjour,

Sans fichier , à tester.

Sub cnum()
For Each cell In Selection
If Application.IsText(cell.Value) Then
On Error Resume Next
cell.Value = CDbl(cell.Value)
On Error GoTo 0
End If
Next
End Sub

Ca marche parfaitement merci beaucoup !

 

[cp4]

Ca marche parfaitement merci beaucoup !

Bonjour,

Tant mieux si ça fonctionne bien. Cependant, je te conseille d'utiliser celle de Job75 car elle est plus pro que la mienne.

Bonne journée.

 

[job75]

C'est surtout que On Error Resume Next n'est qu'un pis-aller, à éviter autant que possible.