Convertir en nombre (VBA)

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 ? :cry:

Code:

---

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

---

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

Citation:

---

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 ?

Oui je veux transformer

Citation:

---

"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

Essaie ceci :

Code:

---

1 2 3

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

---

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.

Bonjour,

Fais un essai avec

Code:

---

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.

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

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