Macro si...alors

Bonjour.

Sub test()
Dim c As Range
For Each c In Range([A1], [A65536].End(xlUp))
If c.Offset(, 3) = "c" Then c = c * -1
Next c
End Sub

Cordialement.
Daniel

Bonjour,

Je cherche à modifier la valeur des chiffres de la colonne A en fonction de
la valeur des cellules de la colonne D.
Si la valeur en colonne D est "c" alors la valeur de la cellule A est
multipliée par "-1"
si D="c" alors A=A*(-1)

Merci par avance.

En A1, obligation d'attribuer la valeur de A1 avec le signe "=".
*SI(D1="c";-1;1)

--
Fredo P.
"ericlbt" <ericlbt@discussions.microsoft.com> a écrit dans le message de
news:2C1366B8-923A-49E8-A5D2-3680806F4A30@microsoft.com...

Bonjour,

Je cherche à modifier la valeur des chiffres de la colonne A en fonction

de

la valeur des cellules de la colonne D.
Si la valeur en colonne D est "c" alors la valeur de la cellule A est
multipliée par "-1"
si D="c" alors A=A*(-1)

Merci par avance.

Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With worksheets("Feuil2") 'Nom Feuille à adapter
With .Range("D1:D" & .Range("D65536").End(xlUp).Row)
.AutoFilter Field:=1, Criteria1:="c"
With .Offset(, -3).SpecialCells(xlCellTypeVisible)
.Value = (.Value * -1)
End With
.AutoFilter
End With
End With
End Sub




"ericlbt" <ericlbt@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 2C1366B8-923A-49E8-A5D2-3680806F4A30@microsoft.com...
Bonjour,

Je cherche à modifier la valeur des chiffres de la colonne A en fonction de
la valeur des cellules de la colonne D.
Si la valeur en colonne D est "c" alors la valeur de la cellule A est
multipliée par "-1"
si D="c" alors A=A*(-1)

Merci par avance.