Besoin d'aide : Changement de signe

chasseur44 · 12 Juillet 2007

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 · 12 Juillet 2007

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 · 12 Juillet 2007

Re : Besoin d'aide : Changement de signe

Bonjour Chasseur

essaye peut être la macro ci dessous :

Code:

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 · 12 Juillet 2007

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

Besoin d'aide : Changement de signe

chasseur44

XLDnaute Occasionnel

Pièces jointes

dixit

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Discussions similaires

Besoin d'aide : Changement de signe

chasseur44

XLDnaute Occasionnel

Pièces jointes

dixit

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency