La fonction Sgn dans VBA permet de réaliser une macro pour pour indiquer le signe d'un nombre.
La fonction Sgn
La fonction VBA Sgn suit la syntaxe suivante :
Sgn(variable)
Le résultat prend les valeurs suivantes :
- 0 lorsque la valeur est égale à zéro
- 1 lorsque le valeur est positive (strictement supérieure à zéro)
- -1 lorsque le valeur est négative (strictement inférieure à zéro)
Exemple de macro avec Sgn
La macro
Sub nommacro()
Dim c As Range 'Variable
For Each c In Range("A1:A5") 'Plage
'Cellule actuellement sélectionnée
ActiveCell.Offset(0, 0).FormulaR1C1 = _
Sgn(c)'Cellule suivante située en bas
ActiveCell.Offset(1, 0).SelectNext c
End Sub
Les données sources
A | B | C | D | E | |
---|---|---|---|---|---|
1 | 9 | ||||
2 | -16 | ||||
3 | -625 | ||||
4 | 1024 | ||||
5 | 0 |
Le résultat
A | B | C | D | E | |
---|---|---|---|---|---|
1 | 9 | 1 | |||
2 | -16 | -1 | |||
3 | -625 | -1 | |||
4 | 1024 | 1 | |||
5 | 0 | 0 |