conversion cellule texte en numérique

[stratus]

bonjour à tous,
je cherche à convertir une cellule format texte au format numérique. Je m'explique: j'ai extrait d'un autre logiciel des données. Elles se mettent correctement dans les cellules sous excel le problème c'est que toutes les données qui sont des chiffres à l'origine arrivent dans un format texte! du coup impossible de les utiliser pour un calcul. j'ai utilisé la formule CNUM mais je voudrais faire la même chose avec un code vba sachant que la longueur du tableau est variable.

Merci d'avance à ceux qui répondont à ce message.

Stratus

 

[Alain]

Bonjour,



Tu peux essayer avec le code ci-dessous :


Sub ConversionNumerique()
ActiveSheet.UsedRange.Select
For Each cell In Selection
If Left(CStr(cell.Formula), 1) <> "=" Then
On Error Resume Next
cell.Value = CDbl(cell) 'S'il n'y a que des entiers on peut mettre Clng(cell)
If cell = 0 Then cell.ClearContents
cell.NumberFormat = "General"
End If
Next
End Sub


@+

 

[stratus]

Merci Alain pour ton aide ça marche nickel!

A+

Stratus