Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

EXCEL: Nombre en format texte

Dernière réponse le 17 jui 2009 à 17:26:12 NoSpe13, le 27 jun 2008 à 11:24:57

Signaler ce message aux modérateurs

Bonjour,
Je reçois chaque jour des mails de données de serveurs desquels je dois retirer certaines données pour les inclure dans un tableau (qui contient pas mal de fonctions et de calculs, soit dis en passant) mais je reçois le tout en format TEXTE UNICODE...

Le soucis est que pour la capacité des disques j'ai reçu (format TXT) les chiffres "141 725" et "3 876" que je n'arrive pas a convertir en format nombre (je pense que l'espace entre les chiffres pose robleme)

J'ai essayé toutes les méthodes disponibles sur le site de Microsoft mais rien n'y fait...

Y a t'il un moyen pour que lors de l'importation dans Excel du fichier texte je puisse convertir ce format texte en format nombre?

A toute bonne fin je vous joins la fonction pour importer les données:

______________________________________________________________________________________

Sub Importation()
'
' Importation Macro
'

'Ouverture du rapport du serveur client
Workbooks.OpenText Filename:= _
"C:\Users\xxxxx.XXXXXX\Desktop\Test Check\Rapports\XXXX.txt" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False _
, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _
TrailingMinusNumbers:=True

'Copie des donnees dans les "donnees serveur"
Cells.Select
Selection.Copy
Windows("Donnees.xltm").Activate
Sheets("XXXX").Select
Range("A1").Select
ActiveSheet.Paste

'Vider le presse papier pour éviter d'avoir a cliquer sur oui lors de l'execution
Application.CutCopyMode = False

'Fermeture du rapport
Windows("XXXX.txt").Activate
ActiveWorkbook.Close
Sheets("Initial").Select
End Sub

_________________________________________________________________________________________

Je vous remercie par avance de toute l'aide qui me sera fournie...

Configuration: Windows Vista
Internet Explorer 7.0

Posez votre question Répondre

robinho59600, le 27 jun 2008 à 11:27:37

Format --> Cellules --> Nombres :-$
Je sais c'est la base mais je vois pas autrement désolé Sur le plus haut trône du monde on n'est jamais assis que sur ses fesses ;-)

Répondre à robinho59600

zavenger, le 27 jun 2008 à 11:33:32

Salut, tes parameters regionaux sont bien mis pour avoir les nombres avec un espace comme separateur de milliers?

Répondre à zavenger

NoSpe13, le 27 jun 2008 à 11:41:02

Format --> Cellules --> Nombres :-$
Je sais c'est la base mais je vois pas autrement désolé

Déjà tenté mais cela ne donne rien... Merci tout de même

Salut, tes parameters regionaux sont bien mis pour avoir les nombres avec un espace comme separateur de milliers?

Oui... Mais lors de la conversion j'obtiens #VALEUR!

Répondre à NoSpe13

NoSpe13, le 27 jun 2008 à 21:28:38

Personne pour m'aider?

Répondre à NoSpe13

eriiic, le 27 jun 2008 à 21:44:52

Si si...
Ajoute ce code après ton collé en mettant les noms et plages qui t'interessent (numeriques)

    Dim c As Range
    For Each c In Workbooks("Classeur1.xls").Worksheets("Feuil1").Range("A1:A5")
        c.Value = Replace(c.Value, " ", "") * 1
    Next c

eric

PS : enlève le ; ajouté par ccm après A1:A5

Répondre à eriiic

NoSpe13, le 1 jui 2008 à 08:28:12

Hello,
Je viens de reprendre mon boulot sur ce programe et voici la correction

Dim c As Range
For Each c In Workbooks("Donnees Serveurs.xltm").Worksheets("AIMG").Range("A:U")
c.Value = Replace(c.Value, " ", "") * 1
Next c

Comme tu peux le constater je n'ai fait que de remplacer les valeurs et noms par ceux de mon classeur mais une fois que j'execute, j'obtiens l'erreur suivante:

Erreur d'execution 13
Incompatibilité de type

ceci en surlignant la ligne
c.Value = Replace(c.Value, " ", "") * 1

Merci de m'aider.

Répondre à NoSpe13

NoSpe13, le 1 jui 2008 à 08:41:04

J'ai essayé en enlevant le "*1" mais la je tourne en boucle...
Le curseur tremble et change sans arret entre le sablier et la fleche...

Merci pour ton aide

Répondre à NoSpe13

NoSpe13, le 1 jui 2008 à 10:30:24

Petite précision...

Le texte que je copie/colle provient d'un fichier en format "texte unicode"...
Cela peut il etre la cause de cette erreur???

Merci.

Répondre à NoSpe13

NoSpe13, le 15 jui 2008 à 10:07:34

Rebonjour a vous tous,

Malheuresement je n'y arrive toujours pas...

Quelqu'un pour m'aider???

Merci par avance...

Répondre à NoSpe13

eriiic, le 15 jui 2008 à 10:27:12

Bonjour,

c'était écrit vite...
Essaie avec celui là plus détaillé :

Dim c As Range
Application.ScreenUpdating = False
For Each c In Workbooks("Donnees Serveurs.xltm").Worksheets("AIMG").Range("A:U")
    If VarType(c.Value) = vbString Then
        c.Value = CDbl(Replace(c.Value, " ", ""))
    End If
Next c
Application.ScreenUpdating = True

Si tes données sont bien groupées, pour accélerer le traitement tu peux mettre :
For Each c In Workbooks("Donnees Serveurs.xltm").Worksheets("AIMG").Range("A1").CurrentRegion.Select

Si ça ne marche toujours pas il faudra déposer un extrait de ton fichier sur cijoint.fr et coller le lien ici. Ce que tu prends pour des espaces n'en sont peut être pas...
eric

Répondre à eriiic

tartartascon, le 30 sep 2008 à 18:30:54

Essayer d'étendre cette formule à la plage :

=CNUM(A1)

Répondre à tartartascon

morad, le 12 fév 2009 à 12:09:29

Visite ce site il est superbe et simple http://www.excel-newbies.fr/Ast6_ConversionNombreStockeEnTexte.html
c'est là ou j'ai trouvé la solution a un prob pareil

Répondre à morad

Souri84, le 19 mar 2009 à 21:10:29

La source à changé: http://www.excel-newbies.fr/Ast6_ConversionNombreStockeEnTexte.php

ma redirection ne marche pas....

Répondre à Souri84

Nikal, le 17 jui 2009 à 17:26:12

Génial ton lien !
Il m'a permis de résoudre un problème sur lequel je me battais depuis 1/2H !
Ah, les espaces non sécables...

Répondre à Nikal

Posez votre question Répondre