Discussion :

[bchar]

Bonjour,

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

Merci

[Daranc]

Par formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 en A4= ABS(Xn)

en VBA
plus dur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bchar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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