[VBA] convertir texte en num dans une boucle

convertir texte en num dans une boucle [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 27-01-2006 à 18:15:37    

Lu all,
 
J'ai du des chiffre en format texte dans un cellule que je veux convertir en format nombre dans un cellule à coté et répété l'opération pour la ligne suivante :
 

Code :
  1. i = 3
  2. While Cells(i, 6) <> ""
  3. Cells(i, 5) = FormulaR1C1 = "=VALUE(RC[1])"
  4. i = i + 1
  5. Wend


 
donc en cellule i,5 tant que la cellule i,6 n'est pas vide ça m'execute la formule.
Mais le résulat m'inscrit FAUX en i,5 puis i+1,5 idem.
 
L'erreur est donc dans la formule VALUE ...  
 
 
Une idée ?
 
Merci

Reply

Marsh Posté le 27-01-2006 à 18:15:37   

Reply

Marsh Posté le 28-01-2006 à 00:35:47    

Le Visual Basic et le langage des formules (anciennement appelé "Macro", mais de nos jours, le VBA est aussi parfois appelé "macro" ) sont deux langages différents. On ne peut pas les mélanger (de même que l'on ne mélange pas de l'hawaien et du bangalais).
 
La solution est :

Code :
  1. i = 3
  2. While Cells(i, 6) <> ""
  3.    Cells(i, 5) = CDbl(Cells(i, 6))
  4.    Cells(i, 5).NumberFormat = "##########0.00"
  5.    i = i + 1
  6. Wend


 

Reply

Marsh Posté le 28-01-2006 à 10:52:11    

Merci bcp !!!
 
par contre Cells(i, 5).NumberFormat = "##########0.00" n'est pas nécessaire pour moi car mes cellule d'origine sont sous la forme 0651110110  pour devenir   651110110   ;)
 
j'ai mis : Cells(i, 5) = CDec(Cells(i, 6))
 
 
;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed