[VBA] convertir texte en num dans une boucleRésolu

Question

Lu all, 
 
J'ai des chiffres au format texte dans un cellule que je veux convertir en format nombre dans un cellule &#224; cot&#233; et r&#233;p&#233;ter l'op&#233;ration pour la ligne suivante : 

i = 3
While Cells(i, 6) <> ""Cells(i, 5) FormulaR1C1 "=VALUE(RC[1])"
i = i + 1
Wend

donc en cellule i,5 tant que la cellule i,6 n'est pas vide &#231;a m'execute la formule.
Mais le r&#233;sulat m'inscrit FAUX en i,5 puis i+1,5 idem.


L'erreur est donc dans la formule VALUE ... 



Une id&#233;e ?


Merci

michelxld · Accepted Answer

bonjour

j'espere que cette adaptation pourra t'aider

Dim i As Integer
i = 3
While Cells(i, 6) <> ""
Cells(i, 5) = CDec(Cells(i, 6))
i = i + 1
Wend

bon week end
michel

jrivet · Answer

Lut

Je crois que cela te marque faux car: (FormulaR1C1 = "=VALUE(RC[1])") est un booleen...


Enfin je pense.

titibobo2 · Answer

donc si je mets 2 &#231;a prend la cellule de la colonne adjacente ?

titibobo2 · Answer

ben non &#231;a change rien

&#231;a non plus:
Cells(i, 5) FormulaR1C1 Cells(i, 6)

c'est le doubele "=" qui me g&#232;ne

jpleroisse · Answer

Bonsoir,
Essaye si tu sais tirer parti de ce code.Ici, il n'y a que la cellule Cells(i, 5) qui est modifi&#233;e au format nombre

Sub Test()
Dim i
i = 3
While Cells(i, 6) <> ""
Cells(i, 5).Select
Selection.NumberFormat = "0.00"
i = i + 1
Wend
End Sub

jpleroisse

titibobo2 · Answer

oui mais l&#224; &#231;a mets la cellule i,5 au format nombre dans mon exemple i,5 est vide et doit prendre la valeur de i,6 en nombre ...

avec ton code faut copier le contenua vant si je comprend bien, non ?

titibobo2 · Answer

le format n'est pas le bon

si j'ai du texte 0651110110  &#231;a rest 0651110110

alros qu'avec la focntion cnum dans excel (value en vba je pense) &#231;a devient 651110110

titibobo2 · Answer

Merci c'est exactement ce que je voulais !!! :)

[VBA] convertir texte en num dans une boucle

8 réponses

Discussions similaires