Impression références Noms + suppression

[Philippe Château]

Bonjour à toutes et tous,

Dans VBA comment et peut on imprimer (dans un fichier annexe) toutes les références des noms, et ce avant suppression totale (qui ne fonctionne pas au demeurant, ci-dessous) par la VBA suivante :

Sub suppnom()
For Each N In ActiveWorkbook.Names
If Not N.Name Like "*!*" Then
N.Delete ---> Bloque à cette ligne, je ne comprends pas
End If
Next
End Sub

Merci pour toutes les réponses, au fait je suis sous Excel 2003

 

[Pierrot93]

Re : Impression références Noms + suppression

Bonjour Philippe

essaye le code ci dessous :

Option Explicit
Sub test()
Dim n As Name
For Each n In ActiveWorkbook.Names
    Workbooks("Classeur2").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Value = _
        n.Name & n.RefersTo
    n.Delete
Next
End Sub

fonctionne chez moi, Excel 2003, je n'ai pas compris ton test :

If Not N.Name Like "*!*"

chez moi le nom d'une plage ne peut pas prendre de "!"....

bonne journée
@+

 

[Philippe Château]

Re : Impression références Noms + suppression

Bonjour,

Merci pour ta réponse, je vais tester la solution et pour répondre à ta deuxième question en fait il s'agit de supprimer toutes les entrées de références de noms, car il y en 2 plus de 200 ! mais avant de les effacer j'aimerais tout de même les imprimer des fois que...

A+ et encore merci

 

[Philippe Château]

Re : Impression références Noms + suppression

re-Bonjour,

J'ai oublié de dire que j'avais comme même 20/25 feuilles !

A+ et encore merci

 

[Philippe Château]

Re : Impression références Noms + suppression

re-Bonjour,

Test arrêté à

n.Delete

C'est dingue c'est ce que cela me faisait déjà la même chose avec d'autres essais.

A+ et merci

 

[pierrejean]

Re : Impression références Noms + suppression

bonjour a tous

S'agissant d'un Delete

Peut-etre

Dim n As Long
For n = ActiveWorkbook.Names.Count To 1 Step -1
    Workbooks("Classeur2").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Value = _
        ActiveWorkbook.Names(n).Name & ActiveWorkbook.Names(n).RefersTo
    ActiveWorkbook.Names(n).Delete
Next n

 

[Pierrot93]

Re : Impression références Noms + suppression

Re,

Etrange... ta feuille ou ton classeur est protégé ? Quelle version Excel as tu ? Le code donné, chez moi fonctionne bien...

 

[Philippe Château]

Re : Impression références Noms + suppression

Bonjour,

Désolé de ne pas vous avoir répondu tout de suite, mais tellement occupé, et le traitement a été assez long, rendez vous compte aux environs de 15000 lignes supprimées, c'est incroyable, digne du Livre des Records .

Enfin cela fonctionne, et c'est le principal, UN GRAND MERCI à vous deux.

Bien cordialement

 

[foufie]

Re : Impression références Noms + suppression

desole mauvaise idee

 

[foufie]

Re : Impression références Noms + suppression

bonjour a tous

j'ai le même souci avec delete

du coup j'utilise le code de pierrejean qui fonctionne

Dim n As Long
on error resume next 

For n = ActiveWorkbook.Names.Count To 1 Step -1
    
    ActiveWorkbook.Names(n).Delete
Next n

"
c'est cool sauf que je souhaiterai tout de meme garder un nom " (tcd)"
sur une feuille isolé (F06)


voici a quoi j'avais pense mais ca ne fonctionne pas , cal efface tt

Dim n As Long

on error resume next 

For n = ActiveWorkbook.Names.Count To 1 Step -1

 if n.name <> "tcd" then   

    ActiveWorkbook.Names(n).Delete
Next n

si vous avez des ideees je prends

 

[pierrejean]

Re : Impression références Noms + suppression

Bonjour foufie

A tester:

Dim n As Long


On Error Resume Next


For n = ActiveWorkbook.Names.Count To 1 Step -1


 If ActiveWorkbook.Names(n).Name <> "tcd" Then


    ActiveWorkbook.Names(n).Delete
Next n

 

[foufie]

Re : Impression références Noms + suppression

j'ai contourner le souci voir message plus loin

au lieu de chercher dans le classeur je cherche par feuille ( excel )

.......

 

[pierrejean]

Re : Impression références Noms + suppression

Re

Peux-tu poster une copie allégée de ton fichier avec seulement les éléments nécessaires à la compréhension du problème

 

[foufie]

Re : Impression références Noms + suppression

bonjour

merci je mettrais plus tard une version allégé

voici ce que j'ai fait avec l'aide de 'enregistreur de macro ( c'est pas tres propre mais ca fonctionne )
je ne sélectionne que les pages dont j'ai besoin d'effacer les noms

Sub light2()

Sheets("Accueil").Activate
Call light
Sheets("groupe").Activate
Call light
Sheets("Pilote").Activate
Call light

End Sub



Sub light()

Dim n As Long

On Error Resume Next

For n = ActiveSheet.Names.Count To 1 Step -1

    ActiveSheet.Names(n).Delete
  
Next n

End Sub