Arrondis

JCGL

XLDnaute Barbatruc

• 25 Septembre 2014

• #2

Re : Arrondis

Bonjour à tous,

Peux-tu essayer :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:B10]) Is Nothing Then Exit Sub
    If Not (IsNumeric(Target.Value)) Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Application.WorksheetFunction.RoundUp(Target.Value, -2)
    Application.EnableEvents = True
End Sub

A+ à tous

Edition : Sur les bons conseils de mon Luc...

 

Dernière édition: 25 Septembre 2014

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 25 Septembre 2014

• #3

Re : Arrondis

Re,

Merci JCGL : ton code fonctionne parfaitement.

excfl

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 25 Septembre 2014

• #4

Re : Arrondis

Bonsoir excfl
Salut mon JC

Je ne suis pas certain, mais, il ne serait pas conseillé de "descendre" le 'EnableEvents' juste avant de faire l'arrondi? Parce que si on 'Exit Sub' après avoir désactivé la gestion des événements, on se coince, non? Ou je dis une ânerie?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Septembre 2014

• #5

Re : Arrondis

Bonjour à tous,
Salut mon Luc,

Tu as entièrement raison.

A++ mon ami
A+ à tous

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 25 Septembre 2014

• #6

Re : Arrondis

Re,

Merci Modeste pour ta remarque très judicieuse.

Bonne soirée.

excfl

 

Vote positif 0 Vote négatif