Changement cellule suite à un évenement

[macase]

Bonjour,

Je cherche à arrondir une cellule après saisie et déclencher une macro.
A la lecture des différents posts sur le forum, j'ai construit ceci :

En Bref, dès qu'une information est saisie dans la cellule B2, j'arrondi le chiffre.

Ainsi dans la cellule B2 je saisie 2.5, le montant qui doit apparaitre ensuite est 3.

La macro ci-dessous se lance bien au moment de la saisie dans la cellule, mais je pense avoir un problème de syntaxe que je n'arrive pas à résoudre.
(désolé je débute 🙂)


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Range(B2).Value > 0 Then
ActiveCell.FormulaR1C1 = "=ROUNDUP(B2,0)"
Else
End If
End Sub

D'avance merci pour votre aide 😉
M

 

[James007]

Re : Changement cellule suite à un évenement

Salut,

Tu peux essayer :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$2" Then
    Target.Value = Application.WorksheetFunction.RoundUp(Target, 0)
End If
End Sub

A +

 

[macase]

Re : Changement cellule suite à un évenement

Bonjour,

Merci beaucoup pour cette réponse rapide, cela fonctionne !!!!!! 😛

Bonnes fêtes de fin d'année !