[users-fr] Calc - macro pour inverser le signe des nombres

Mon, 03 Jul 2006 10:00:09 -0700 

Bonjour,
Un petite macro dans Excel permet d'inverser le signe 
des nombres d'une plage préalablement sélectionnée :

Sub InverserSigne()
Dim cel As Range
    For Each cel In Selection
    If cel.Value = "" Then
  Else
    If IsNumeric(cel) Then
    cel.Value = cel.Value * -1
  End If
  End If
Next
End Sub

Je désirerais obtenir un macro équivalente en Basic dans Ooo.Calc, 
mais n'y parviens pas.
D'avance, je vous remercie de bien vouloir me donner la solution…
GR

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à