Supprimer Liens Noms Macros automatiquement

[MJ13]

Bonjour à tous

J'ai ces codes pour supprimer les noms d'une feuille ou d'un classeur.

Mais comment supprimer les références de macros (quand on fait alt+F8) qui contiennent par exemple "Tri_auto_tableau_dblclick"?

Merci d'avance 🙂.

Sub Supprime_Noms_classeur()
MsgBox ActiveWorkbook.Names.Count
For i = ActiveWorkbook.Names.Count To 1 Step -1
MsgBox ActiveWorkbook.Names.Item(i).Name
ActiveWorkbook.Names.Item(i).Delete
Next
End
suite:
MsgBox "Pas de noms trouvés dans le classeur."
End Sub
Sub Supprime_Noms_Feuille()
On Error GoTo suite
MsgBox ActiveWorkbook.ActiveSheet.Names.Count
For i = ActiveWorkbook.ActiveSheet.Names.Count To 1 Step -1
MsgBox ActiveWorkbook.ActiveSheet.Names.Item(i).Name
ActiveWorkbook.ActiveSheet.Names.Item(i).Delete
Next
End
suite:
MsgBox "Pas de noms trouvés dans la feuille."
End Sub

 

[Pierrot93]

Re : Supprimer Liens Noms Macros automatiquement

Bonjour Michel🙂

pas sûr d'avoir bien compris, mais supprime peut être la procédure en question..... ou alors pour qu'elle n'apparaisse pas, tu mets sur la première ligne du module "option private module", fonctionne uniquement dans un module standard...

bon après midi
@+

 

[MJ13]

Re : Supprimer Liens Noms Macros automatiquement

Bonjour Pierrot

Merci pour ta solution 🙂.

C'est parce que j'e crée des feuilles et j'ai des macros qui se copient dans ces feuilles. Mais si j'ai beaucoup de feuilles, j'ai beaucoup de macros (une par feuilles) et il est vrai que je devrais les mettre plutôt une seule fois dans Thisworkbook, voire en mettant Private, cela devrait me convenir 😱.

Bonne journée 🙂.

 

[job75]

Re : Supprimer Liens Noms Macros automatiquement

Bonjour Michel, salut Pierrot,

Si l'on veut supprimer toutes les macros listées dans la boîte de dialogue Macro, voir le fichier joint.

Macro dans le code de la feuille (elle n'est pas listée, elle...) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n
Cancel = True
n = 10 '100 ou 1000...
SendKeys Application.Rept("%{F8}%s~", n)
End Sub

A+

 

[MJ13]

Re : Supprimer Liens Noms Macros automatiquement

Bonjour Job

Merci, c'est Excellentissime, je savais qu'on pouvait compter de temps en temps sur Sendkey 😱.

Bonne journée 🙂.

 

[koffikans]

Re : Supprimer Liens Noms Macros automatiquement

Bonjour MJ13 ,
Excuse moi pour cette interruption,j'ai besoin que tu m'aides...
J'ai concu un petit programme(pour moi) qui me permettrait de mieux suivre mes eleves mais des donnees
tels que (Numero eleve), (Numero Ep) et (Numero EpT) affiche a chaque fois que je colles "les points"
des erreurs #N/A; #N/A #N/A #N/A #N/A #N/A #N/A #N/A #N/A #N/A #N/A partout.
Aidez moi a afficher correctement les elements comme ceux deja afficher vers la partie du haut.
(voir fichier joint)

Votre aide me sera d'un grand reconfort.
Ce lien n'existe plus

 

[phlaurent55]

Re : Supprimer Liens Noms Macros automatiquement

Bonjour à tous,

Bonjour MJ13 ,
Excuse moi pour cette interruption,j'ai besoin que tu m'aides...
J'ai concu un petit programme(pour moi) qui me permettrait de mieux suivre mes eleves mais des donnees
tels que (Numero eleve), (Numero Ep) et (Numero EpT) affiche a chaque fois que je colles "les points"
des erreurs #N/A; #N/A #N/A #N/A #N/A #N/A #N/A #N/A #N/A #N/A #N/A partout.
Aidez moi a afficher correctement les elements comme ceux deja afficher vers la partie du haut.
(voir fichier joint)

Votre aide me sera d'un grand reconfort.
Ce lien n'existe plus

@ koffikans,

c'est la deuxième fois aujourd'hui que tu interviens sur un fil de discussion qui n'est pas à toi et que tu poses la même question
l'idéal eût été de créer un nouveau fil de discussion

au cas ou tu repasserais par ici, voici ton fichier en retour

à+
Philippe