Valeur première cellule de la selection = valeur au dessus ou en dessous

Bonjour,

Je cherche un code VBA qui me permettrait de comparer la première cellule de ma sélection, avec la cellule en dessous ou au dessus de la première cellule de ma sélection.

C'est à dire : Si la première cellule de ma sélection A3:E3 (donc A3) = A2 ou A4 alors ...

If Range(ActiveCell.Row) = Range(ActiveCell.Row - 1) Or Range(ActiveCell.Row + 1) Then
.Range(.Cells(ListeLignes(i), 1), .Cells(ListeLignes(i), 10)).Delete
End If

C'est le code que j'ai mais il me compare pas précisément la première cellule de ma sélection avec la cellule en desous/au dessus.

Pouvez-vous m'aidez ?

Bonjour,

Un essai ...

If Range(ActiveCell.Row) = Range(ActiveCell.Row - 1) Or Range(ActiveCell.Row) = Range(ActiveCell.Row + 1) Then
.Range(.Cells(ListeLignes(i), 1), .Cells(ListeLignes(i), 10)).Delete
End If

ric

Bonjour,

Travailler avec des Selection sous VBA n'est que très rarement une bonne idée.

Ceci étant, que te donne ce code :

Sub Test()
  Range("A3:E3").Select
  MsgBox Selection.Cells(1).Address
  MsgBox Selection.Cells(1).Offset(1).Address
  MsgBox Selection.Cells(1).Offset(-1).Address
End Sub

Donc :

  With Selection.Cells(1)
    If .Value = .Offset(1).Value Or .Value = .Offset(-1).Value Then
      'YES
    End If
  End With