Interdire suppression de ligne si

Bonjour,

Je suis novice en VBA aussi bien que sur le forum et j'ai un problème

Je ne sais pas comment inclure mon exemple dans ce texte

Bref, je peux le décrire :

En col A j'ai des dates, en col B j'ai en face de certaines dates un "X". Il signifie que je veux interdire la suppression de la ligne.

Est-ce possible ?

Bonjour,

A mettre dans un module et mettre à ta sauce

Sub Suppr()
    Dim n%, i%
    Application.ScreenUpdating = False
    With Worksheets("Feuil1") 'Nom de la feuille
        n = .Range("A" & .Rows.Count).End(xlUp).Row
          For i = n To 1 Step -1 ' Depuis la derniere ligne non vide jusqu'à la ligne 1
              If Range("B" & i).Value <> "x" And Range("B" & i).Value <> "X" Then .Range("B" & i).EntireRow.Delete
          Next i
    End With
End Sub

Merci M12 pour ta réponse

Ton code fonctionne parfaitement mais ce n'est pas tout à fait ce que je souhaitais.

Je souhaiterais que la suppression ne soit interdite que pour la ligne active.

C'est à dire que si j'essaie de supprimer une ligne contenant un "x" en col B il me faudrait un message m'indiquant que ce n'est possible. Si au contraire j'essaie de supprimer une ligne ne contenant pas un "x" en col B il faudrait que cette ligne soit supprimée

J'ai trouvé la solution à partir de ton code

Encore merci pour ton aide M12