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