macro copie valeur absolue

Bonjour,

Je souhaite copier la valeur absolue d'une cellule.
Comment dois-je faire ?

Merci

Par formule

Code:

---

en A4= ABS(Xn)

---

en VBA
plus dur :mouarf:

Code:

---

1 2 3 4

Sub absolu() r = Abs(Range("a3")) Cells(4, 1).Value = r End Sub

---

dans les deux cas la valeur en A3 est mise en absolu en A4

Merci pour la réponse.

Entre temps, j'ai changé le démarrage de ma macro et j'ai donc procédé de la manière suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Noligne4 As Long Noligne4 = Worksheets("aout").Range("A1").CurrentRegion.Rows.Count Application.ScreenUpdating = False For M = Noligne4 To 2 Step -1 If (Worksheets("aout").Cells(M, "u") = "toto") Then Range("u" & M).Select ActiveCell.FormulaR1C1 = "essai" Range("t" & M).Select Selection.Copy Range("x" & M).Select ActiveCell.FormulaR1C1 = Abs(Range("t" & M))

---