Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Columns("B:B")) Is Nothing And R.Count = 1 Then
If ActiveCell.Offset(0, -1) = vbNullString Then
ActiveCell.Interior.Color = vbBlack
Else
ActiveCell.Interior.Color = xlNone
End If
End If
End Sub
Si dans la plage A1:A1000 le résultat est calculé vide ("") alors les cellules B1:B1000 passent en noir.
Exemple: Si A450 est calculé vide alors B450 est noir.
Puisque tu te déplace dans la colonne B, ActiveCell.Offset(0, -1) est la cellule de la colonne A.je ne vois pas ou tu indiques dessus qu'elle doit prendre en compte la colonne A
Un classeur ? Où ça ?Mais cela marche très bien. La méthode de djidji marche à la perfection n'importe ou dans le classeur
Une feuille ? Où ça ?sauf dans la colonne de la feuille
Une macro ? Où ça ?Ca marche partout sauf dans la colonne B à cause de la macro.