XL 2016 Ignorer une erreur VBA

R1- · 16 Décembre 2021

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 · 16 Décembre 2021

Bonjour,

Sans fichier , à tester.

VB:

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

cp4 · 16 Décembre 2021

Bonjour,

Sans fichier , à tester.

VB:

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 · 16 Décembre 2021

Bonjour R1-, cp4,

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

VB:

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

A+

R1- · 17 Décembre 2021

cp4 à dit:
Bonjour,

Sans fichier , à tester.

VB:

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 · 17 Décembre 2021

R1- à dit:
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 · 17 Décembre 2021

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

XL 2016 Ignorer une erreur VBA

R1-

XLDnaute Junior

cp4

cp4

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

R1-

XLDnaute Junior

cp4

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires