Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

arrondi de chiffres

  • Initiateur de la discussion lesuisse
  • Date de début
L

lesuisse

Guest
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

XLDnaute Barbatruc
Modérateur
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

Code:
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

lesuisse

Guest
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

XLDnaute Accro
Bonjour le fil, le forum,

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

Code:
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
 

Discussions similaires

Réponses
9
Affichages
199
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…