Format de nombre (String/Single)

Version imprimable

01/02/2011, 13h33
Sinn le Sage

1 pièce(s) jointe(s)

Format de nombre (String/Single)

Bonjour,

Je suit mes comptes bancaire via un petit fichier excel et j'ai débuté un ensemble de macro permettant de mettre à jour mon fichier.

Je pars d'un copier/coller de ma page internet, ensuite je fait un « collage spécial » option « texte unicode » de tou ça sur une feuille de calcul.
J'ai donc l'ensemble de mes données au format « texte » qu'il ne me reste plus qu'à traiter à l'aide des fonctions de gestion de chaine Rtrim, Ltrim, Mid et autres.

Tout cela fonctionne à merveille à un détail près...

Mes date de valeur ainsi que mes valeur sont stockés dans mes cellules sous format « texte », excel renvois d'ailleurs une erreur sur chaque cellule « nombre stocké au format texte ».

Je ne me suis pas encore penché sur les dates, mais pour les nombres déjà ça coince...

J'ai tenté plusieurs choses :

conversion String/Single => « a (single) = b (string) »
conversion avec val() avec formatage de la chaine avec un séparateur « . » au lieu de « , »
conversion avec CDbl()

Tous mes essais ont eu la même conséquence. Les valeurs sont bonne (dans la fenêtre d'éxécution) mais excel s'obstine à fausser mes valeurs.
Cf image ci-dessous.

Quelqu'un a une piste ?
01/02/2011, 15h27
Psychopathe

Probablement un problème de formatage des données. Essaie l'arrondi à deux décimales. Sinon si tu passe par des variables en VB, selon le type choisi pour les nombres, tu peux avoir ce problème de virgule flottante. Essaie alors de passer tes données en Single si le type Double ne fonctionne pas (ou montre nous ton code pour une réponse plus précise).
01/02/2011, 15h39
pgz

Bonjour.

En effet, as-tu essayé de simplement changer le format des cellules? Pour les montants, je te conseille vivement un format monétaire.

Cordialement,

PGZ
01/02/2011, 16h05
zazaraignée

obtenu en modifiant légèrement une macro (suppression du mot Selection).

Code:

Range(Feuil1!"B4:F9").NumberFormat = "#,##0.00 [$€-1]_-;#,##0.00 [$€-1]-"

Tu y mets l'adresse du Range qui t'intéresse...

Bonjour,

merci pour vos réponses.

Les solutions que vous me proposez concerne le "visuel" de la valeur, aucun problème pour moi à ce niveau là.

Mon problème est que mes valeurs sont modifié dans la cellule...
Voici ce que j'ai avec la proposition de zaza :
http://img834.imageshack.us/img834/2206/excel1zo.jpg

Notez que la mise en forme est très jolie :P
Mais ma valeur n'est pas correct, alors que dans la fenêtre d'exécution j'ai bien la même valeur celle au format texte dans les cellules de gauche.

D'une part ça me contrarie de ne pas avoir la bonne valeur, d'autre part au final cela fausse mon calcul final (ce n'est pas grand chose mais sur 1000 lignes d'opérations...).

Voici le bout de code que j'utilise pour mes essais.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Sub test() Dim a As String Dim b As Single Range("o35:o36").NumberFormat = "#,##0.00 [$€-1]_-;#,##0.00 [$€-1]-" a = Cells(35, 12).Value 'une valeur au format texte b = a Debug.Print a, b 'me donne les bonnes valeur Cells(35, 14).Value = a Cells(35, 15).Value = b b = Val(a) Debug.Print b b = CDbl(a) Debug.Print b Cells(36, 14).Value = a Cells(36, 15).Value = b End Sub
D'autres idées ? :calim2:

Edit : comme je l'avais dit, mes valeurs sont mises dans les cellules au format texte et Excel me notifie une erreur ("Nombre stocké sous forme de texte").
Évidemment je peu en manuel venir cliquer sur le point d'exclamation et cliquer sur "Convertir en nombre"
et à ce moment là mes valeurs sont bonne. :aie:

Peut être une idée pour faire cette opération en auto ?

02/02/2011, 11h50
Psychopathe
Et si tu utilisais:
Code:

1 2 a = CSng(Cells(35, 12).Value)
Tes variables sont des Single, donc il vaut mieux utiliser une conversion en single... Sinon change tes variables en Double et utilise alors Cdbl.
Je n'ai pas compris pourquoi le format texte posait problème...
02/02/2011, 13h01
pgz

Bonjour.

As-tu essayé de placer le format monétaire dans les cellules au format texte, en colonne N?

PGZ
02/02/2011, 23h02
Sinn le Sage
Citation:

Envoyé par pgz

Bonjour.

As-tu essayé de placer le format monétaire dans les cellules au format texte, en colonne N?

PGZ

Oui, déjà testé sans succès...
Citation:
Envoyé par Psychopathe

Et si tu utilisais:

Code:

1 2 a = CSng(Cells(35, 12).Value)

Tes variables sont des Single, donc il vaut mieux utiliser une conversion en single... Sinon change tes variables en Double et utilise alors Cdbl.
Je n'ai pas compris pourquoi le format texte posait problème...
J'ai tenté, mais non...
Le format texte pose problème car excel ne peu pas faire de calcul avec du texte, il lui faut des nombres pour ses formules.

Info supplémentaire : le problème s'est posé sur office 2003.
Sur office 2007 je n'ai pas le problème car le "collage spécial" est mieux géré.
02/02/2011, 23h50
pgz

Bonsoir.

Il y a un truc que tu ne nous a pas montré : quand tu sélectionnes une cellule au format texte, comme celles que tu nous as montré en colonne N, qu'y a-t-il d'affiché dans la barre de formule?

PGZ

Citation:

Envoyé par Sinn le Sage

Bonjour,

Edit : comme je l'avais dit, mes valeurs sont mises dans les cellules au format texte et Excel me notifie une erreur ("Nombre stocké sous forme de texte").
Évidemment je peu en manuel venir cliquer sur le point d'exclamation et cliquer sur "Convertir en nombre"
et à ce moment là mes valeurs sont bonne. :aie:

Peut être une idée pour faire cette opération en auto ?

Heu oui en effet c'est la solution:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub convertir() Dim feuille As Worksheet 'Si les données sont sur la feuille "Feuil1" Set feuille = Worksheets("Feuil1") 'Si la donnée à convertir est dans la cellule A2 feuille.Range("A2").TextToColumns feuille.Range("A2") Set feuille = Nothing End Sub

Citation:

Envoyé par pgz

Bonsoir.

Il y a un truc que tu ne nous a pas montré : quand tu sélectionnes une cellule au format texte, comme celles que tu nous as montré en colonne N, qu'y a-t-il d'affiché dans la barre de formule?

PGZ

Bonjour,

Il y a la même chose que dans ma fenêtre d'éxécution :

http://img832.imageshack.us/img832/9782/excelt.jpg
Citation:
Envoyé par Psychopathe
Heu oui en effet c'est la solution:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub convertir() Dim feuille As Worksheet 'Si les données sont sur la feuille "Feuil1" Set feuille = Worksheets("Feuil1") 'Si la donnée à convertir est dans la cellule A2 feuille.Range("A2").TextToColumns feuille.Range("A2") Set feuille = Nothing End Sub
Chapeau bas !!
En effet, ça fonctionne.
Je ne connaissais pas cette fonction.

Merci beaucoup.