MSGBOX a la création ou suppression d'un objet définie.

Re,

une facon de faire: code dans un module

Option Explicit
Public Nb_Motpass As Integer

'appel a l'ouverture du classeur
Public Sub Compte_Motpass()
    Dim nm As Name
    On Error Resume Next
    Nb_Motpass = 0
    For Each nm In ActiveWorkbook.Names
        If nm.Name Like "Motdepasse*" Then
            Nb_Motpass = Nb_Motpass + 1
        End If
    Next nm
End Sub
'appel par Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'de chaque feuille
Public Sub DeCompte_Motpass()
    Dim nm As Name, CNb_Motpass As Integer
    On Error Resume Next
    
    CNb_Motpass = 0
    For Each nm In ActiveWorkbook.Names
        If nm.Name Like "Motdepasse*" Then
            CNb_Motpass = CNb_Motpass + 1
        End If
    Next nm
    If CNb_Motpass <> Nb_Motpass Then
        MsgBox "Mot_pass Avant: " & Nb_Motpass & vbNewLine & "Motpass_Maintenant: " & CNb_Motpass, vbInformation, "CHANGEMENT NOM FORMULE"
        Nb_Motpass = CNb_Motpass
    End If
End Sub

Bonjour,

pour suppression : https://www.cjoint.com/c/DKAl0CxnkCV

pour creation, manque d'infos !!!!!

Merci pour votre reponce.

Je pense que mon code vous à induit en erreur. Celui présent dans la pièce jointe sert à supprimer le contenu des cellules dont le nom commence par "Motdepass*".

Pour être plus clair :
avant de diffuser une copie de mon fichier à mes clients, je lance cette macro qui écrase le contenu de certaines cellules que je souhaite masquer.

Ces cellules ont toutes le nom qui commence par "Motdepassexxxx" (xxx est un numéro d'ordre unique).

Pour que cela fonctionne je dois nommer sur mon fichier sources les cellules à écraser en "Motdepassexxxx".

Le souci est que nous sommes plusieurs à modifier l'originale et non manquons d'un message qui nous alerte de la prise en compte du nouveau nom.

Je souhaiterais avoir un message pour l'ajout et éventuellement pour la suppression.

Merci par avance pour le temps que vous y accorderez.

C'est peut-être plus simple à comprendre quand on regarde le gestionnaire de non.

https://www.cjoint.com/?0KApbRtjMWs

Je souhaiterais voir apparaitre un MSGBOX quand j'ajoute ou je supprime un nom commençant par Motdepasse.

Est-ce que c'est plus clair ?

Merci pour votre retour.

Re,

Si c'est manuellement, je doute que cela soit possible.

J'avais l'idée de compter le nombre d'objets commençant par Motdepasse et de créer un événement à chaque changement de cellule pour refaire le calcul...
Je ne sais pas si c'est jouable.

Re,

Comme ca oui, c'est jouable, pensez a mettre en memoire le nombre a l'ouverture du classeur pour avoir un repere et mettre a jour ce repere a chaque changement +/-

Ça marche nickel. Merci beaucoup.