Discussion :

[ilanb]

Bonjour,

J'ai un souci avec mon fichier excel

je dois transformer tous les chiffres d'une colonne dans ce format en arrondissant au supérieur ou inférieur :

00.0000

Ex : 123.23789 deviens 123.24000

La colonne et formater "standard"

Impossible de trouver une fonction, les quelques exemples sont bien trop "hard" pour moi

Merci

[J.Michel]

Pourquoi ne pas utiliser Format/Cellule;
Et choisir le format Nombre avec 5 chiffres après la virgule

[ilanb]

Bonjour J.michel,

Parce que cela ne fonctionne pas, mes cellules doivent rester au format standard, si je passe en nombre cela me met une virgules et les zéros disparaissent

je dois absolument rester dans ce format : 00.00000

Le fichier et exploité par un service web...

Merci

[J.Michel]

Essaye ce code qui semble fonctionner pour la colonne A:

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
 
Sub ConvertFormat()
    Dim Tampon As String    'Variable tampon pour la conversion
    Dim Valeur As Single    'Permet l'arrondi
    Dim MaCel As Range
 
    'Pour toutes les cellules de la colonne A
    For Each MaCel In Range(Range("A65536").End(xlUp), Range("A1"))
        'Lecture de la partie après le poin
        Tampon = Right(MaCel, Len(MaCel) - InStrRev(MaCel, "."))
 
        'Arrondi de la valeur après le point multipliée par 100
        Valeur = Round(Val("0." & Tampon), 2) * 100
 
        'Reconstruction du contenu de la cellule
        Tampon = Left(MaCel, InStrRev(MaCel, ".")) & Str(Valeur) & "000"
        MaCel.Value = Tampon
    Next
End Sub

[ilanb]

Extra JMichel juste une petite broutille, j'ai un espace aprés le point :

123. 29000



Merci

[J.Michel]

Effectivement.
J'ai corrigé et ça ne marchait plus correctement donc j'ai un peu modifié la fin.
Je passe en format texte puis je charge ma valeur puis je repasse en format standard.
Si je ne fait pas ça, la cellule passe automatiquement en format nombre

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
 
Sub ConvertFormat()
    Dim Tampon As String    'Variable tampon pour la conversion
    Dim Valeur As Single    'Permet l'arrondi
    Dim MaCel As Range
 
    'Pour toutes les cellules de la colonne A
    For Each MaCel In Range(Range("A65536").End(xlUp), Range("A1"))
        'Lecture de la partie après le point
        Tampon = Right(MaCel.Value, Len(MaCel.Value) - InStrRev(MaCel.Value, "."))
 
        'Arrondi de la valeur après le point multipliée par 100
        Valeur = Round(Val("0." & Tampon), 2) * 100
 
        'Reconstruction du contenu de la cellule
        MaCel.NumberFormat = "@"
        MaCel.Value = Left(MaCel.Value, InStrRev(MaCel.Value, ".")) & Trim(Str(Valeur)) & "000"
        MaCel.NumberFormat = "General"
    Next
End Sub

Test cette procédure et si tout est Ok pense à cocher

[ilanb]

Je t'offres un pastis des que tu descend dans le sud !!

ibompuis (AT) mac (dot) com

tu m'enleves une grosses épine du pied je peux me concentrer sur mes webervices maintenant


Merci J.Michel

I.

[J.Michel]

Avec un glaçon et pas trop d'eau ......

Heureux de t'avoir rendu service.
Pense à cocher

[ilcocodrillo]

il ya plus simple...

=ARRONDI(A1;2)

et sélectionner 5 décimales dans le format de cellule nombre...

[J.Michel]

il ya plus simple...

=ARRONDI(A1;2)

et sélectionner 5 décimales dans le format de cellule nombre...

Oui mais le Monsieur il a dit qu'il ne voulait pas revenir au format nombre.
Il faut rester au format standard

[ilcocodrillo]

Bonjour J.michel,

Parce que cela ne fonctionne pas, mes cellules doivent rester au format standard, si je passe en nombre cela me met une virgules et les zéros disparaissent

je dois absolument rester dans ce format : 00.00000

J'ai compris que son format standard c'est 00.00000 !

J'a tout faux ?