ActiveCell ou Intersect

Bonjour je sèche sur un point.

Je souhaiterai remplacer value par range, du moins par le nom de la cellule..

If ActiveCell.Offset(-1, 1).Value = "Situation 1" Then

        MsgBox ("Attention impossible de supprimer la Situation 1")

       Else

Une idée svp ? Merci

Bonjour

Bonjour,

Il semblerait que je ne sois pas assez claire..

J'essaye de vérifier le contenu d'une cellule avant d'exécuter une macro, mais plutôt que de vérifier son contenu qui pourrait être modifié je souhaiterai vérifier son nom.

En cherchant quelque peu il semblerait que ce soit Intersect que je devrais utiliser avec range ?

D'avance merci.

Bonjour Maf

C'est effectivement un peu plus clair vous pouvez essayer

If ActiveCell.Address = "$A$1" then
End IF

Ou

  If ActiveCell.Address = Range("CelluleNommée").Address Then
  End If

@+

Merci pour le retour, mais que fais-je de mon ActiveCell.offset() ?

Cells.Find(What:="$02", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        If ActiveCell.Offset(-1, 1).Value = "Situation 1" Then

        MsgBox ("Attention impossible de supprimer la Situation 1")

       Else

L'idée étant d'aller à une cellule d'après un point repère.

Bonjour,

Une idée ?

Bonjour,

oublie ton code dont on ne sait s'il est adéquat et cohérent.
Explique clairement avec des mots ton besoin, avec un fichier en situation.
eric