Selection cellule adjacente

[bret]

Bonjour ,

avec ce code (trouver sur ce forum) :

Sub colorie()
'
Dim c As Range
For Each c In Sheets("question").Range("C1:C347")
If c = "" Then
c.Interior.ColorIndex = 0
ElseIf c = "x" Then
c.EntireRow.Interior.ColorIndex = 43

End If
Next

plutot que c.entirerow.interior.colorindex=43

j'aimerais qu'il selectionne la cellule voisine cad la b et qu'il la colorie !


Comment faire j'ai essayer beaucoup de choses mais y a pas moyen !
merci pour votre aide !

 

[Hervé]

bonjour

essaye ceci : c.offset(0,1).Interior.ColorIndex = 43

salut
Hervé

 

[bret]

merci effectivement ça peint ! mais pas la bonne case !!

offset (0,1) peint celle de droite la d

pour mon cas c'est la "b"


bon c pas grave je vais essayer de m'adapter en focntion de ton code

cela dit si ta la soluce ce serait cool ! merci !!!

 

[bret]

c ok

offset (0,-1) je ne savais pas que les valeurs negatives etait possible


merci hervé !!!

 

[Hervé]

re

en effet j'avais pas vu que tu travaillais en colonne c donc : offset(0,-1)

salut
Hervé