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