Interdire supp onglets suivant cellule...

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.

Re : Interdire supp onglets suivant cellule...

Bonjour Roby

I faudrait quand même nous envoyé un bout de ton fichier épurer, bien sûr, des données confidentielles,
car même avec la protection du VBA je n'arrive pas à reproduire l'erreur.
sinon désactive les commandes que tu as rajouter une par une pour voir s'il y en pas une qui bloque.