Impression références Noms + suppression

Pierrot93

XLDnaute Barbatruc

• 9 Janvier 2009

• #2

Re : Impression références Noms + suppression

Bonjour Philippe

essaye le code ci dessous :

Code:

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 :

Code:

If Not N.Name Like "*!*"

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

bonne journée
@+

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 9 Janvier 2009

• #3

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

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 9 Janvier 2009

• #4

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

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 9 Janvier 2009

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Janvier 2009

• #6

Re : Impression références Noms + suppression

bonjour a tous

S'agissant d'un Delete

Peut-etre

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Janvier 2009

• #7

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...

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 12 Janvier 2009

• #8

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

 

Vote positif 0 Vote négatif

F

foufie

Guest

• 5 Mai 2015

• #9

Re : Impression références Noms + suppression

desole mauvaise idee

 

Dernière modification par un modérateur: 5 Mai 2015

Vote positif 0 Vote négatif

F

foufie

Guest

• 5 Mai 2015

• #10

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

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Mai 2015

• #11

Re : Impression références Noms + suppression

Bonjour foufie

A tester:

Code:

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

 

Vote positif 0 Vote négatif

F

foufie

Guest

• 5 Mai 2015

• #12

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 )

.......

 

Dernière modification par un modérateur: 7 Mai 2015

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Mai 2015

• #13

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

 

Vote positif 0 Vote négatif

F

foufie

Guest

• 6 Mai 2015

• #14

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

Code:

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

 

Vote positif 0 Vote négatif