Re : Interdire supp onglets suivant cellule...
Bonsoir le Forum
Je reviens vers vous car après adaptation des codes sur le fichier prévu, des erreurs apparaissent.
A savoir: le code VBA est protégé par MDP (peut être un indice).
Les codes récupérés proviennent du fichier Post 11 qui pourtant fonctionne très bien.
Sur le nouveau fichier adapté (trop volumineux et confidentiel) les messages suivants apparaissent:
1) A l'ouverture ou fermeture du fichier: Erreur de compilation dans le module caché: Mod_Warning
2) Si l'éditeur VBA est actif: Type défini par l'utilisateur non défini
code suivant surligné:
Sub ModifierSupprimerFeuille() <------------------------
Dim c As CommandBarControl <------------------------
For Each c In Application.CommandBars.FindControls(ID:=847)
c.OnAction = "SupFeuil"
Next c
End Sub
Sub SupFeuil()
Dim NomFeuille As String
Dim Msg, Style, Title As String
Dim I, Fin As Long
Fin = Sheets("ListIng").Range("A" & Rows.Count).End(xlUp).Row
Style = vbOKOnly ' Définit les boutons.
Title = "Avertissement ..." ' Définit le titre.
NomFeuille = ActiveSheet.Name
Select Case NomFeuille
Case "Listing"
Exit Sub
Case Else
For I = 2 To Fin
If Sheets("ListIng").Cells(I, 7) = NomFeuille And Sheets("ListIng").Cells(I, 19) = "" Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
Next I
End Select
End Sub
Sub RetablirSupprimerFeuille() <------------------------
Dim c As CommandBarControl <------------------------
For Each c In Application.CommandBars.FindControls(ID:=847)
c.OnAction = ""
Next c
End Sub
D'où pourrait venir l'erreur
Merci pour vos Solutions.