[VBA-E] Macro pour conversion donnée caractère en numérique sous excel

Bonjour,

Je travaille sur une base donnée dont les 10 premières colonnes sont du texte et les 150 suivantes sont numériques. Seulement voila, tous les nombres de ces dernières colonnes, qui n'ont pas de chiffres après la virgule sont reconnus en texte et possède un ' au début.
Si je sélection toutes ces données et que je fais Format>Nombre, ca ne change rien a cause des petits '.
Il faudrait en fait que je fasse Sélection d'une colonne>Données>Convertir. Sauf que je devrai répéter cette opération 16 000 fois environ. Autrement dit c'est l'horreur.
Comme c'est une fonction que je dois répéter, j'ai pensé que peut être une macro pourrai le faire automatiquement. Mais je ne m'y connais absolument pas en VBA. Donc après un long moment de galère a chercher comment faire, je vous apelle au secour !

Donc voila : Connaitriez vous une petite macro qui me permette de répéter tout seul cette manipulation ?

Merci 1000 fois par avance !!!!!! :-)
Elendis.

Hello, bienvenue sur le forum,

En utilisant l'enregistreur de macro, j'obtiens cette fonction textocolumns, je ne la connais pas trop :

Code:

---

1 2 3

Columns("E:E").Select Selection.TextToColumns Destination:=Range("E1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

---

Essaie déjà sur une colonne pour voir si ça fait ce que tu veux, ensuite on verra :D

Merci beaucoup déja.
Mais tu aurais une idée de comment faire une boucle disant de répéter cette macro de la colonne S à la colonne EZ ?

avec qqch comme ça, ça devrait aller :

Code:

---

1 2 3 4

For i = Range("S1").Column To Range("EZ1").Column Columns(i).Select 'le code Next

---

Tu dis

Du coup j'ai écrit ca :

Code:

---

1 2 3 4 5 6 7

For I = 19 To 218   Columns(I).Select Selection.TextToColumns Destination:=Cells(1,I), DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True   Next I

---

et je ne comprend pas pourquoi ca ne marche pas. J'ai un message d'erreur..........

désolée j'avais pas vue ta réponse avant de poster ma derniere réponse

en fait le probleme est le terme range, je dois le remplacer par cells pour y mettre la variable i et du coup le programme ne marche pas.
Mais merci quand meme pour tout :-)

Hum, bon en fait l'argument destination est facultatif :oops: , donc tu peux faire sauter, regarde ce que ça te donne :

Code:

---

1 2 3 4

For i = 19 To 218 Columns(i).Select Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True Next i

---

par contre si tu as une colonne ou il a pas de données à convertir, lui pas être content...

Si tu as toujours un pb, tu as une autre solution un peu brutale consistant à parcourir ta plage en remplaçant le texte par sa valeur

Code:

---

Cells(NoLigne, NoCol).value = val(Cells(NoLigne, NoCol))

---

Dans une boucle sur la plage, ce sera + long que la méthode préconisée par cwain mais peut-être au bout du bout, tu éconnomiseras des tests

Code:

---

1 2 3 4 5 6 7 8 9

Sub ConvertirTextEnValeur() Dim LaPlage As Range Dim Cell As Range Set LaPlage = Range("S1:EZ" & Range("A1").SpecialCells(xlCellTypeLastCell).Row) For Each Cell In LaPlage Cell.Value = Val(Cell.Value) Next On Error GoTo 0 End Sub

---

Si tu ne dois faire ça qu'une fois, tu ne perdras pas trop de temps
Si tu as des pb de valeurs déjà converties, elles ne changent pas.
A+