Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

conversion cellule texte en numérique

  • Initiateur de la discussion stratus
  • Date de début
S

stratus

Guest
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
 
A

Alain

Guest
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


@+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…