Discussion :

[tamtam64]

Voila mon code fonctionne mais je voulais savoir si une methode sans boucle avec la propriete du range , permetait par exemple d'appliquer la fonction abs a une colonne ou une ligne

je met mon code pour donner le principe. Je veux que dans mon range , vba applique la fonction abs sur chaque cellule pour ensuite les ranger.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
'TEN LARGEST NOMINAL POSITIONS
 
Set AllRange = Range("A1:c82")
For Each MyRange In AllRange.Columns(3).Cells
MyRange.Value = Abs(MyRange)
Next MyRange
AllRange.Sort Key1:=AllRange.Columns(2), order1:=xlAscending
 
End Sub

[joe.levrai]

Bonjour,

une piste avec une colonne intermédiaire

je te laisse bricoler, y'a sûrement moyen de faire ça directement sur la cellule

Code :

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

1
2
3
Set plage = Range(Cells(1, 1), Cells(10, 1))
plage.Offset(0, 1).FormulaArray = "=ABS(" & plage.Address & ")"
plage.Offset(0, 1).Value = plage.Offset(0, 1).Value

[tamtam64]

Code :

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

1
2
3
Set plage = Range(Cells(1, 1), Cells(10, 1))
plage.Offset(0, 1).FormulaArray = "=ABS(" & plage.Address & ")"
plage.Offset(0, 1).Value = plage.Offset(0, 1).Value

Peux tu me dire pourquoi un FormulaArray ? , apparement c'est pour les formule matricielle, ce n'est pas vraiment le cas si?

[joe.levrai]

essaye à la main :

mets des chiffres négatifs de A1 à A10
en B1, met la formule matricielle =ABS(A1:A10)
étend la formule jusque B10

regarde le résultat


c'est la seule méthode que j'ai trouvé pour renvoyer la valeur absolue de toute une plage, sans utiliser de boucle

mais je ne doute pas qu'une proposition plus élégante sera trouvée ... je n'ai pas voulu passer par un Array qui aurait probablement nécessité une boucle

[tamtam64]

Code :

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

1
2
3
Set plage = Range(Cells(1, 1), Cells(10, 1))
plage.Offset(0, 1).FormulaArray = "=ABS(" & plage.Address & ")"
plage.Offset(0, 1).Value = plage.Offset(0, 1).Value

Effectivement la fonction est pas mal je pense pas qu'il y ai d'autre solutions en fait donc je clos la conversation et encore une fois merci pour ton aide , tu m'es d'une grande aide et c'est pas la premiere fois.