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

[fring]

Essaie ceci :

Code :

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

1
2
3
For Each ws In ActiveWorkbook.Worksheets
    ws.Range("F10:F145").Replace What:="Nombre stocké ", Replacement:="", LookAt:=xlPart
Next

[AuroreGeek]

Merci Fringe, mais j'ai due mal m'exprimer. Ce que tu me proposes ne marche pas.

Mon problème se rapproche de celui décrit ici :
http://www.developpez.net/forums/d10...string-single/

D'ailleurs c'est là que j'ai vu la fonction "TextToColums" qui fonctionne mais uniquement sur une colonne et sur 1 feuille.

Excel m'alerte d'un problème avec le format de mes nombres (lorsque je clique sur le petit trait vert en haut à gauche d'une de mes cellules avec un nombre) : il me dit : "nombre stocké sous la forme de texte" et me propose de les convertir en nombre un par un !!!!!

Or moi j'ai des nombres comme ça, sur 8 colonnes et 365 lignes dans 65 feuilles ! Voilà pourquoi j'essaye de faire une macro pour tous les convertir et enfin pouvoir réaliser des calculs.

[gFZT82]

Bonjour,

Fais un essai avec

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
    For Each ws In ActiveWorkbook.Worksheets
        With ws.Range("F10:F145")
            .NumberFormat = "0"
            .Value = .Value
        End With
    Next
End Sub

Cordialement.

[fring]

Sorry, j'avais mal compris en effet
Quelles sont les colonnes et les lignes ? Parce que dans ta boucle tu ne traites qu'une seule colonne au lieu de 8 (la colonne F) et 135 lignes au lieu de 365 (de la ligne 10 à 145) ?

[AuroreGeek]

Super merci "gFZT82" ça marche parfaitement ! Génial