Discussion :

[AuroreGeek]

Bonjour à tous,

J'ai un fichier Excel avec une soixantaine de feuillles dedans. Dans chaque feuille il y a des nombres. Je dois faire des calculs avec ces nombres (notamment des sommes). Malheureusement pour tous les nombres il y a inscrit : "Nombre stocké sous forme de texte". Je n'arrive pas à les convertir en nombre tous à la fois, dans tous les onglets. Voici la macro que j'ai faite, mais elle marche pas. Pourquoi ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ST03b_TexteEnNombre1()
 
   'On éteint calculation and screenupdating pour accélérer la macro
    With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    End With
 
 
    'Definition des variables
 
       Dim ws As Worksheet
 
    'Convertir en nombre les "Nombre stocké sous forme de texte" dans les feuilles Excel
 
     For Each ws In ActiveWorkbook.Worksheets
 
     ws.Range("F10:F145").TextToColumns ws.Range("F10:F145")
 
     Next
 
 
End Sub

[fring]

Bonjour,

Je ne sais pas où tu as vu que la méthode TextToColumns pouvait convertir un texte en nombre... Sélectionne le et tape sur F1

Lorsque tu dis

Malheureusement pour tous les nombres il y a inscrit : "Nombre stocké sous forme de texte"

tu entends par là que :

• tu veux transformer "cent quarante deux" en 142 ?
• ou tu veux transformer "Nombre stocké 142" en 142 ?

[AuroreGeek]

Oui je veux transformer

"Nombre stocké 142" en 142

.

Ici j'ai fait le test sur une colonne. Et ça marche, mais uniquement sur une feuille pas sur toutes mes feuilles !
Merci