commande pour transformer du texte en numérique

[Hugues]

Bonjour Le forum,

Je souhaiterais de l'aide pour rédiger une commande afin de transformer la valeur d'une cellule qui est sous format "texte" vers du numérique, à l'intérieur d'une boucle.
Par exemple dans la colonne A j'ai des variables en format texte et je souhaiterais les transformer en numérique et les inscrire en colonne B.

Merci pour votre réponse,

 

[Gérard DEZAMIS]

Re : commande pour transformer du texte en numérique

Bonjour Hugues
Pour transformer du texte en nombre la façon la plus simple est de multiplier par 1

Une petite macro qui fait ce travail pour ici les 200 premières lignes

Sub transforme()
For i = 1 To 200
If Range("A" & i) <> "" Then
Range("B" & i) = Range("A" & i) * 1
End If
Next i
End Sub

En espérant que cela puisse te dépanner

Bien cordialement
@+GD

 

[Gorfael]

Re : commande pour transformer du texte en numérique

Bonjour Le forum,

Je souhaiterais de l'aide pour rédiger une commande afin de transformer la valeur d'une cellule qui est sous format "texte" vers du numérique, à l'intérieur d'une boucle.
Par exemple dans la colonne A j'ai des variables en format texte et je souhaiterais les transformer en numérique et les inscrire en colonne B.

Merci pour votre réponse,

Salut
Formule :
B1 :=Cnum(A1) et recoipe

VBA:
Dim X as long
for X=1 to Range("A65536").End(xlUp).row
Range("B" & X)=Cdbl(Range("A" & X)
next x
A+

 

[Hugues]

Re : commande pour transformer du texte en numérique

Merci pour votre aide.