Re : Interdire supp onglets suivant cellule...
Bonsoir le Forum, systmd
Ta solution fonctionne très bien, mais j'aimerai l'adapter à mon fichier original.
Mon fichier sert à créer des feuilles par individu (une BDD en quelque sorte), les infos sont saisis dans un USF au départ (du style Nom et Prénom - Adresse - Tél. etc...) après validation dans l'USF, une feuille "modèle" est dupliquée, et le nom de la feuille nouvellement créée = nom et prénom dans l'USF.
Ses infos sont enregistrés dans la feuille ou fiche sus nommée et aussi dans une autre feuille nommée "Listing" (= archive). 1 ligne = 1 individu.
Après un événement qui rempli une cellule d'un individu (Feuille "Listing" colonne S) la feuille nommée ou fiche individu est effacée mais pas les infos de la feuille "Listing" (= archive).
il faut aussi savoir qu'il y a des:
Feuilles Visibles:
Menu + Feuilles de chaque individu "TOTO Titi" etc... environ 250 feuilles voire plus.
Feuilles Cachées:
Config - MODELE - Dispo - LISTING - Admin - Formulaire1 - Formulaire2 - Formulaire3 - Formulaire4 - Tableau de bord - Archives (feuille différente).
Comment peut on alimenter case dans ton module sachant que ma BDD = "Listing" évolue dans le sens cellule S (non vide) et mes feuilles individu aussi (nombre + ou -):
Sub SupFeuil()
Dim NomFeuille As String
Dim Msg, Style, Title As String
Style = vbOKOnly ' Définit les boutons.
Title = "Avertissement ..." ' Définit le titre.
NomFeuille = ActiveSheet.CodeName
Select Case NomFeuille
Case "Feuil1", "Feuil6" ' , "ETC, "ETC", "...."
Msg = "L'éffacement de cette feuille n'est pas aurorisé"
If MsgBox(Msg, Style, Title) = vbOK Then Exit Sub
Case Else
ActiveSheet.Delete
End Select
End Sub
Petite précision qui pourrait éventuellement aider, dans ma feuille "Admin" je peux mettre à jour en temps réel les noms des feuilles individu seulement existantes en colonne E.
Merci encore du temps passé sur mon problème.
Roby