Decalage sur une cellule en VBA

a3lain

XLDnaute Junior
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
 

Discussions similaires