Discussion :

[marc.deiss]

Je souhaite utiliser un grand ensemble de données issues de mon ERP.
La difficulté est que les nombres ressortent en format "texte":

Le nombre 146000,00 s'écrit de la manière suivante : 146.000,00
Si je remplace dans une macro le caractère '.' par rien.
Le "146000,00" est au format texte
Je force par macro le changement de format en format numérique.

La macro s’exécute bien mais pour Excel m'informe :
'Le nombre dans cette cellule est au format texte ou précédé d'une apostrophe'
Je dois faire un forçage manuel pour convertir en texte.

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sheets("Data").Select
 
Range("L:O,Q:Q,T:W,Y:AB,AD:AG,AI:AL,AW:AX,BB:BE").Select
 
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??        _);_(@_)"

...

Vos idées car je galère...
A++

Marc

[Kimy_Ire]

Je dis peut-être une bétise mais as-tu essayé "CInt" ?
http://www.techonthenet.com/excel/formulas/cint.php

EDIT : ou plutot "CSng" dans ton cas. http://www.techonthenet.com/excel/formulas/csng.php
ou encore "CDbl"...
http://www.techonthenet.com/excel/formulas/cdbl.php

[marc.deiss]

J'ai trouvé un moyen pour le faire à travers une boucle FOR mais ça mettait 2/3 minutes de traitement... car la boucle for traitait une cellule après l'autre.

L'idée serait de gagner du temps de traitement en faisant mes manips sur des selections

[Kimy_Ire]

Alors, à tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub essai()
Dim Tabl(), i As Long
Tabl = Range("L:O,Q:Q,T:W,Y:AB,AD:AG,AI:AL,AW:AX,BB:BE")
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
    For j = LBound(Tabl, 2) To UBound(Tabl, 2)
        Tabl(i, j) = CDbl(Tabl(i, j))
    Next j
Next i
Range("A1").Resize(UBound(Tabl, 1), UBound(Tabl, 2)) = Tabl
End Sub

Tu fais ton cast dans un tableau et non pas cellule par cellule !
Avec un test rapide, cela m'a prit 20 secondes. J'espère que ça sera pareil pour toi avec toutes tes valeurs !
Tiens moi au courant ! =)

[marc.deiss]

Merci, le gain obtenu est à peine perceptible... Il doit bien exister une solution pour forcer une sélection de cellule à passer en nombre.