Decalage sur une cellule en VBA

[a3lain]

Bonjour,
Newbie,
Je voudrais parcourir une plage de cellule afin de voir si une valeur est négative ou non. Quand elle l'est , je voudrais colorier en rouge le fond ET placer un caractère type fleche pointant vers le bas dans la colonne juste à sa droite.
Je ne sais pas comment récuperer la cellule où je suis pour faire un decalage vers la droite du type par exemple si j'ai en d14 une valeur negative, ecrire en e14 'NEG' par exemple.
Si j'utilise seulement ActiveCell, je suis logiquement n'importe où.
PS :Est ce que c = 'd14' puis 'd15' dans mon exple ci dessous?

For Each c In Range('d14:d70')
If c <> '' Then
If c < 0 Then
c.Interior.ColorIndex = 3
ActiveCell.Offset(0, 1) = 'Y'
Else: c.Interior.ColorIndex = 4
End If
Else: c.Interior.ColorIndex = 0
End If
Next c

Merci

 

[myDearFriend!]

FIL DOUBLON
Je suppose que tu as fait une mauvaise manipulation a3lain, ton fil original et ses réponses se trouvent Lien supprimé... Merci de ta compréhension.

Cordialement,