VBA Sgn() : macro pour indiquer le signe d'un nombre

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

Next 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