Besoin d'aide : Changement de signe

[chasseur44]

Bonjour à tous

Comment faire à partir d'une macro vba de changer le signe d'une valeur par rapport à un critère ?

Voir l'exemple joint
je voudrais changer automatiquement le signe des montants correspondant aux Rub 953 et 77c

Merci de votre aide

 

[dixit]

Re : Besoin d'aide : Changement de signe

bonjour,
pour changer le signe d'une valeur, il suffit de multiplier la valeur par -1
exemple : range("A1")=range("A1")*-1

 

[Pierrot93]

Re : Besoin d'aide : Changement de signe

Bonjour Chasseur

essaye peut être la macro ci dessous :

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If c.Value = "77c" Or c.Value = "953" Then c.Offset(0, 1).Value = c.Offset(0, 1).Value * -1
Next c
End Sub

bonne soirée
@+

Edition : oups Dixit, bonjour, désolé pour la collision...

 

[Robert]

Re : Besoin d'aide : Changement de signe

Bonjour le fil, bonjour le forum,

J'arrivais tel un brave chevalier pourfendant l'ai avec mon noir destrier mais hélas mille fois hélas après la bagarre. Alors ma soluce je la remets dans mon armure et je repars combattre d'autres moulins avant (le déluge...)

p.s. tout le monde me l'avais dit : "Ton destrier ! Tu t'es fait avoir il ressemble à un âne mais on ne sait jamais lequel porte l'autre". Fais ch...