arrondi de chiffres

[lesuisse]

Salut à toutes et à tous,

Dans un fichier Excel, j'importe des chiffres qui se présentent sous cette forme:

245.258485844
351.748485999
4125.99554747

Etc...

Je souhaiterai après l'importation supprimer les arrondis par une macro afin d'obtenir ces chiffres là:

245
352
4126

Merci pour votre aide et bonne journée

Lesuisse en suisse (BS)

 

[PascalXLD]

Bonjour

ceci devrait paut-être suffire

dans l'exemple tes données sont dans la colonne A et commence à la ligne 1 à toi d'adapter

Sub toto()

Dim x as Integer

For x = 1 To Range('A65536'Â'Â').End(xlUp).Row
Range('A' & x) = Round(Range('A' & x))
Next

End Sub

Bon courage

Message édité par: Pascal76, à: 07/03/2005 12:00

 

[Léa]

Bonjour Pascal

Comment tu fais pour mettre le code dans une fenêtre?

A+

 

[PascalXLD]

Bonjour Léa

Tu sélectionnes ton texte et tu cliques sur le Bouton Code

Tu as le B de Bold le i de Italique le U pour souligné puis Quote et enfin le code

Voilà

 

[lesuisse]

Salut Pascal76

Super, ça marche très bien...

Seulement voilà... Je n'arrive pas à limiter la fonction à un range (C7:I11 par exemple)...

Pourrais-tu adapter ton code??????

Merci beaucoup

Le suisse très suisse aujourd'hui...

 

[Abel]

Bonjour le fil, le forum,

Si C7:I11 représente les données à arrondir alors :

for each c in range ('c7:i11'Â'Â')
c.value = Round(c.value)
Next

Je n'ai pas testé.
S'il y a autre chose que du numérique, il y aura peut être un message d'erreur.
Si c'est le cas, rajoute un 'On Error Resum Next' avant la formule.

Abel.

Message édité par: Abel, à: 07/03/2005 14:57

 

[Léa]

merci Pascal

A+

j'ai également testé le bouton Quote
Boaf !