arrondi de chiffres

PascalXLD

XLDnaute Barbatruc

Modérateur

• 7 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

L

Léa

Nous a quitté

Repose en paix

• 7 Mars 2005

• #3

Bonjour Pascal

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

A+

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 7 Mars 2005

• #4

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

Code:

Voilà

 

Vote positif 0 Vote négatif

L

lesuisse

Guest

• 7 Mars 2005

• #5

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...

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 7 Mars 2005

• #6

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

 

Vote positif 0 Vote négatif

L

Léa

Nous a quitté

Repose en paix

• 7 Mars 2005

• #7

Code:

merci Pascal

A+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif