Changer texte en nombre

[Blafi]

Bonjour,

J'ai un problème tout bête me direz vous, mais je n'arrive pas à trouver la solution :

J'ai une liste de nombres dont je veux extraire les 4 premiers chiffres et les accoler aux 2 derniers. J'utilise une macro avec rigth et left, et ça marche très bien pour m'extraire ce que je veux.
Par contre, le résultat obtenu me dit qu'il s'agit d'un nombre stocké en texte et excel me propose de le transformer en nombre bien que j'ai mis le format de cellule en numérique avec ma macro.
Comment puis je forcer mon résultat à être un nombre ?

Je joint un extrait de mon fichier avec la macro correspondante.

Milles excuses d'avance de poser un problème certainement très simple à résoudre mais merci de m'aider.

A bientôt

 

[CISCO]

Bonjour

Peut être en rajoutant tout simplement - - devant le résultat à l'aide du code.

@ plus

 

[Dranreb]

Bonjour.
Si c'est un nombre au départ j'utiliserais plutôt, en B3 :

=ENT(A3/1000)*100+MOD(A3;100)

Feuil1.[B3].FormulaR1C1 = "=INT(RC[-1]/1000)*100+MOD(RC[-1],100)"

 

[Blafi]

Merci pour votre aide, mais :
- Cisco : je n'ai pas bien compris la solution de rajouter - -
-Dranreb : en essayant ta formule en VBA, j'obtiens en B3 904300,00 alors que je voudrai 904300... comment enlever avec la macro la virgule et les 2 chiffres après ? (j'ai 2500 nombres à traiter et je ne peux changer manuellement le format en nombre sans décimal)

Merci pour vois réponses.

 

[Dranreb]

C'est seulement dû au format de cellule.
Alors mettre autre chose que .NumberFormat = "0.00"

With ActiveSheet.[B3].Resize(2500)
   .NumberFormat = "general"
   .FormulaR1C1 = "=INT(RC[-1]/1000)*100+MOD(RC[-1],100)"
   .Value = .Value
   End With

 

[Blafi]

Merci Dranreb, ça marche !

A bientôt.