Condition par rapport à une cellule relative

Bonjour,

Je souhaite dans un programme savoir si la cellule qui se trouve à droite et une ligne en haute, par rapport à une cellule active, est vide.

Je bloque avec ce bout de code souligné :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A2:a25000")) Is Nothing Then

If ActiveCell.Value = "" And Value.Cells(1, -1) <> "" Then

ActiveCell.Value = Now()

End If

End If

End Sub

Quelqu'un pourrait-il m'aider ?

Avec un grand merci davance

Chree74

Bonjour

A tester

If ActiveCell.Value = "" And ActiveCell.Offset(-1, 1).Value <> "" Then

-1 : Une ligne au dessus

1 : Une colonne à droite

Merci, c'est ok !!

Rechercher des sujets similaires à "condition rapport relative"