Discussion :

[Nounours1]

Bonjour,

Avec le code ci-dessous je supprime après sélection une ou plusieurs lignes qui se trouvent dans un tableau.

Serait-il possible d'interdire à l'utilisateur de supprimer la ligne 7 de cette feuille ou de ce tableau en sachant que celui-ci comprend la zone B7:HW7 ?

Merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Supprimer_Clic()
If MsgBox("Etes-vous certain de vouloir supprimer la ou les lignes sélectionnées ?", vbYesNo, "Demande de confirmation") = vbYes Then
ActiveSheet.Unprotect "ab"
Selection.EntireRow.Delete
ActiveSheet.Protect "ab", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
End If
End Sub

[mercatog]

Si tu supprimes la ligne 5, la prochaine fois, la ligne 7 sera la ligne 6. donc ton critère "ne pas supprimer la ligne 7" devient biaisé.

[Nounours1]

Bonjour Mercatog,

Les lignes de 1 à 6 sont toujours verrouillées, les données de mon tableau commence en ligne 7 la ligne 6 contient les titres du tableau.

Merci.

[mercatog]

Essaies cette proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Plage As Range
 
If MsgBox("Etes-vous certain de vouloir supprimer la ou les lignes sélectionnées ?", vbYesNo, "Demande de confirmation") = vbYes Then
    Set Plage = Selection.EntireRow
    If Plage.Address <> "$7:$7" Then
        If Not Intersect(Plage, Rows(7)) Is Nothing And Plage.Row > 6 Then
            If Plage.Row = 7 Then Set Plage = Intersect(Plage, Plage.Offset(1))
        End If
        Plage.Delete
        Range("A7").Select
        Set Plage = Nothing
    End If
End If

[Nounours1]

Merci, j'ai ajouté le code pour déverrouiller et ça fonctionne, la ligne 7 n'est pas supprimée et mon curseur revient en B7, j'aurais bien voulu en informer l'utilisateur si possible avec un message du genre : vous avez sélectionnez la ligne 7 pour la supprimer cette action est impossible !

Bon dimanche et encore merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Supprimer_Clic()
ActiveSheet.Unprotect ("ab")
Dim Plage As Range
Dim B As Long
 
If MsgBox("Etes-vous certain de vouloir supprimer la ou les lignes sélectionnées ?", vbYesNo, "Demande de confirmation") = vbYes Then
    Set Plage = Selection.EntireRow
    If Plage.Address <> "$7:$7" Then
        If Not Intersect(Plage, Rows(7)) Is Nothing And Plage.Row > 6 Then
            B = 8 - Plage.Row
            If B > 0 Then Set Plage = Intersect(Plage, Plage.Offset(B))
        End If
        Plage.Delete
        Range("B7").Select
        Set Plage = Nothing
    End If
End If
ActiveSheet.Protect ("ab")
End Sub

[mercatog]

juste après la ligne 15 de ton code, ajoute ces 2 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Else
        MsgBox "vous avez sélectionné la ligne 7 pour la supprimer. Cette action est impossible !"

[Nounours1]

Merci beaucoup c'est parfait.

Bonne soirée