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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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)
 
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
 
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...
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
909
Retour