tinet
XLDnaute Impliqué
bonjour à tous,
je dois enlever la protection, puis ajouter la protection à la suite de cette formule qui supprime la feuille de ma liste.
la protection et sur la feuille "liste"
Je n'arrive pas à modifier ma formule.
Merci de votre aide
a+
je dois enlever la protection, puis ajouter la protection à la suite de cette formule qui supprime la feuille de ma liste.
la protection et sur la feuille "liste"
Je n'arrive pas à modifier ma formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Quit As String
If Not Intersect(Target, [c1]) Is Nothing Then
Quit = MsgBox("Etes-vous sûr(e) de vouloir Supprimer la fiche " & ActiveCell.Value _
, vbYesNo + vbInformation, "Suppression")
If Quit = vbYes Then
Set C = Sheets("Liste").Cells.Find(What:=ActiveCell)
If Not C Is Nothing Then
C.EntireRow.Delete Shift:=xlUp
Application.DisplayAlerts = False
On Error Resume Next: ActiveSheet.Delete
Application.DisplayAlerts = True
End If
Sheets("Liste").Activate
ActiveSheet.Unprotect Password:="AQW"
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, Password:="AQW"
End If
End If
End Sub
Merci de votre aide
a+