Problème de signe

Bonjour,

Pouquoi une macro? Une simple formule suffit.
en D12 tu mets =-B5

;)

Merci de ton aide, mais je connais cette formule basique, j'ai besoin d'une petite macro car mon document est complexe et je dois l'integrer a ma macro.

Bonjour,

Essaie ça :

Sub inverse()
Dim valeur, cellule As Range
valeur = Sheets("feuil2").Range("B15").Value
Set cellule = Sheets("feuil2").Range("D12")

negatif = -valeur
positif = valeur

If valeur < 0 Then
cellule.Value = positif
Else
cellule.Value = negatif
End If

End Sub

m@rina

Bonjour,

Merci marina pour ta macro elle correspond parfaitement à ce que je voulai. Toutefois, j'ai un dernier problème, ma macro globale est constitué de plusieur formules qui se repète une dizaine de fois je m'explique :

- je prends des données de la ligne 1 que je colle dans un tableau puis je l'imprime
-je prends les données de la ligne 2 que je colle dans le tableau (elle remplace donc celles de la ligne 1) puis je l'imprime
-ainsi de suite

Par conséquent la formule que tu ma donnée est répété autant de fois qu'il y a de ligne.

Lorsque je lance ma macro un message m'indique "déclaration existante dans la portée en cours" et elle me surligne valeur.

Que dois faire pour que ma macro fonctionne ?