Problème format numérique

Version imprimable

06/08/2007, 10h19
freyliss

Problème format numérique

Bonjour, voilà mon souci, j'ai valeur que j'ai récupéré sous ce format :

48,646.00

le problème est de le convertir en nombre afin de pouvoir faire un calcul avec cette valeur, car j'ai essayer de supprimer la virgule mais le nombre dans la cellule est à gauche et il faut que je clique sur la cellule pour qu'il se replace à droite comme un nombre, et j'aimerai éviter d'avoir à intervenir manuellement sur chaque cellule.

Voilà, merci d'avance pour vos réponses ;)
06/08/2007, 10h26
Thomas69

c'est simple tu choisis le format sur toutes les cellules
donc tu cliques sur la colonne et choisis le format de cellule
06/08/2007, 10h36
freyliss
ben en fait non ce n'est pas si simplecar je veux ce format là
0.00
et même si je sélectionne les cellules et que je mets
Code:

1 2 3 Cells.Select Selection.NumberFormat = "0.00"
cela ne change rien :?

bonjour à tous

Voici une macro, tu la lies à un bouton et avant de cliquer le bouton tu selectionnes la plage à traiter
Code:

1 2 3 4 5 6 7 Sub Bouton1_QuandClic() Dim cel As Range For Each cel In Selection cel = cel * 1 cel.NumberFormat = "0.00" Next cel End Sub
Bonne journée

Bonjour,

C'est normal que ton NumberFormat ne fonctionne pas. Excel considère ton 48,646.00 comme du texte.

Une solution pour transformer 48,646.00 en format nombre c'est :
- supprimer la virgule (Edition => Remplacer => , par rien)
- transformer le point en virgule (idem, . => ,)

Normalement à ce moment tu obtiens une valeur numérique dans ta cellule : 48646. Il ne reste qu'à modifier cette fois le format, et à afficher en 0.00.

En code ca donne ca (fait à l'enregistreur) :
Code:

1 2 3 4 5 6 Range("A1").Select Cells.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Selection.NumberFormat = "#,##0.00"

06/08/2007, 11h08
freyliss

En suivant le code ci-dessus, aprsè le lancement de la macro :

Pour la valeur du dessus cela donne bien 48646,00 et il se situe à droite de ma cellule et est pris en compte lors du traitemant suivant qui doit additionner les valeurs par contre si j'ai une valeur du genre 38652,25 (avant conversion 38,652.25), la valeur reste à gauche et n'est pas pris en compte dans le traitement suivant.J'ai ce problème qu'avec les nombres qui avaient das chiffres après la virgule.:?
06/08/2007, 11h14
flo_flo

J'ai re-testé avec 38,652.25, ca marche de mon côté. Tu as quelle version d'Excel ?
06/08/2007, 11h15
freyliss

Citation:

Envoyé par flo_flo

J'ai re-testé avec 38,652.25, ca marche de mon côté. Tu as quelle version d'Excel ?

Excel 2003
06/08/2007, 11h19
flo_flo

Pareil, ca ne vient donc pas de là :oops: Etrange comme histoire. Je dis pas que la macro fonctionne (je l'ai juste enregistrée pour donner une idée), essaie manuellement stp ;)
06/08/2007, 11h37
freyliss

Alors, quand je le fais manuellement, pas de problème cela fonctionne impec par contre dès que je mets le code dans la macro et que je la lance là toujours le même problème avec les nombres où après la virgule il y a des chiffres.
06/08/2007, 11h42
LeForestier

Peut être voire du côté des paramètres du PC, langue, nombre, Clavier...
Sachant qu'Excel en tient compte.
06/08/2007, 11h58
freyliss

Citation:

Envoyé par LeForestier

Peut être voire du côté des paramètres du PC, langue, nombre, Clavier...
Sachant qu'Excel en tient compte.

Dans ce cas, pourquoi cela marcherait quand je le fais manuellement et que lorsque la macro le fais non ?:?
Sachant que manuellement je ne fais que reproduire ce que dois faire normalement ma macro.
06/08/2007, 12h31
LeForestier
Bon j'ai aussi fait des tests et de cette façon ça a l'air de fonctionner

J'ai mis deux cellule avec 32,255.25 ç'est afficher à gauche
ensuite ces 2 lignes de macro
Code:

1 2 3 4 5 6 7 Sub Macro1() ' Range("C9").Select ActiveCell.FormulaR1C1 = ActiveCell.Value Range("C12").Select ActiveCell.FormulaR1C1 = ActiveCell.Value End Sub
les cellules sont immédiatement changées en 32.255,25 et affichées à droite
et les calculs sont valide.
A+
06/08/2007, 13h38
freyliss
Citation:
Envoyé par LeForestier

Bon j'ai aussi fait des tests et de cette façon ça a l'air de fonctionner

J'ai mis deux cellule avec 32,255.25 ç'est afficher à gauche
ensuite ces 2 lignes de macro

Code:

1 2 3 4 5 6 7 Sub Macro1() ' Range("C9").Select ActiveCell.FormulaR1C1 = ActiveCell.Value Range("C12").Select ActiveCell.FormulaR1C1 = ActiveCell.Value End Sub

les cellules sont immédiatement changées en 32.255,25 et affichées à droite
et les calculs sont valide.
A+
Et y at-il une solution pour que ce soit toutes les cellules qui soient activées?

ben oui... même résultat avec

Code:

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
    Sheets("feuil1").Select
 
    Range("A1:C9").Select
    Dim cel As Range
    For Each cel In Selection
        cel.Activate
        ActiveCell.FormulaR1C1 = ActiveCell.Value
    Next cel
End Sub

Suffit d'adapter la plage
A+

06/08/2007, 14h47
freyliss

ça marche pas, je ne comprends pas :(
J'envoie un bout de mon fichier au cas où quelqu'un voudrait s'y pencher dessus, juste un truc que je n'ai pas préciser mais je doute qu'en soit cela est une réelle importance ma version d'Excel 2003 est en anglais.

peut être que la version à de l'importance parce qu'avec Excel 2000 et la macro, toutes le variables sont changées,
j'ai juste virer les lignes...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Nom, NomF
Nom = ActiveWorkbook.Name
NomF = ActiveSheet.Name
 
'''''''''Format numérique
    'Ici j'ai virer toutes les lignes entre.
 
    Range("A1:A100").Select ' pas besoin d'aller plus loin
 
    Dim cel As Range
    For Each cel In Selection
        cel.Activate
        ActiveCell.FormulaR1C1 = ActiveCell.Value
    Next cel

A+

06/08/2007, 15h16
freyliss

Cool ça fonctionne merci, je reviens de loin :D