Empêcher la suppressions d'une ligne

bonjour

je cherche un code pour Empêcher la suppressions d'une ligne sur certaines feuil de mon classeur.

j'ai trouver se code mais il permet seulement d’empêcher la suppressions d'une ligne sur une page.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Empêche d'effacer les lignes 1 à 3 de l'onglet Feuil1

If (Sh.Name = "Feuil1" And Target.Row <= 3) Then
If (Target.Address = Target.EntireRow.Address) Then
With Application
            .EnableEvents = False
            .Undo
            MsgBox "Vous ne pouvez pas effacer cette ligne!", 16
            .EnableEvents = True
End With
Else
Exit Sub
End If
End If
End Sub

merci

Bonjour,

tu pourrais ajouter plus de condition semblable à celle-ci,

If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2"

Bonjour à tous,

ton code n'empêche pas d'effacer une partie des 3 lignes.

Si c'est qui est voulu, remplace par :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    'Empêche d'effacer les lignes 1 à 3 de l'onglet Feuil1
    Const feuil As String = ",Feuil1,Feuil2,Feuil3,"
    If InStr(feuil, "," & Sh.Name & ",") = 0 Then Exit Sub
    If Not Intersect(Target, [1:3]) Is Nothing Then
        With Application
            .EnableEvents = False
            .Undo
            MsgBox "Vous ne pouvez pas effacer cette ligne!", 16
            .EnableEvents = True
        End With
    End If
End Sub

Si tu peux récupérer une autre façon de tester plusieurs feuilles.

Ne pas oublier les "," au début et à la fin de feuil