Discussion :

[elendis]

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.

[cwain]

Hello, bienvenue sur le forum,

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

Code :

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

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

[elendis]

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 ?

[cwain]

avec qqch comme ça, ça devrait aller :

Code :

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

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

Tu dis

[elendis]

Du coup j'ai écrit ca :

Code :

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

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..........

[elendis]

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

[elendis]

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 :-)

[cwain]

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

Code :

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

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...

[ouskel'n'or]

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 :

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

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 :

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

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+