Effacer Names

[dureiken]

Bonjour,

dans un post précédent (supprimé ?) j'avais sollicité votre aide pour créer une macro qui supprime tous les noms dans une feuille donnée, vous m'aviez donné ce code :

Private Sub Tutu()
    Dim n As Name
    For Each n In Names
    MsgBox (n)
    n.Delete
    Next n
    
End Sub

Mais il ne trouve aucune donnée dans noms, et ne marche donc pas. Ci-joint le fichier test, pour que ce soit plus facile.

 

[pierrejean]

Re : Effacer Names

bonjour dureiken

Vois si cela va mieux

 

[Épaf]

Re : Effacer Names

Bonjour dureiken, PierreJean
Names n'est-il pas lié au classeur ?
Je verrais plutôt un truc comme ça

Sub Tutu()
    Dim n As Name
    For Each n In ActiveWorkbook.Names
        MsgBox (n)
        n.Delete
    Next n
End Sub

Mais je peux me tromper.
Pas testé

 

[dureiken]

Re : Effacer Names

Qu'avez vous changé à part le bouton ?

Les names supprimées doivent l'être que sur une feuille hein, car j'ai les mêmes sur une autre feuille mais qui sont utilisées celles-ci

 

[mutzik]

Re : Effacer Names

bonjour,
les noms font partie du classeur, pas d'une feuille en particulier
le code VBA proposé efface TOUS les noms du classeur !!

 

[dureiken]

Re : Effacer Names

ok donc cette solution ne marche pas.

Je cherche en effet à faire une copie de feuille pour garder une trace dans le temps, mais supprimer les noms pour que les macros ne modifient pas les valeurs dans la feuille sauvegardée.

Faire une copie de toute la feuille et la coller dans une nouvelle ne me garde pas la mise en page des colonnes donc ca ne marche pas non plus.

Any idea ?

 

[mutzik]

Re : Effacer Names

re,

si tu nous disais exactement ce que tu cherches à faire (avec les fichiers joints, stp)

 

[Lii]

Re : Effacer Names

Bonjour,

un exemple pour n'effacer que les noms d'une certaine feuille.

 

[pierrejean]

Re : Effacer Names

bonjour a tous

La difficulté n'est pas toujours dans la solution mais bien souvent dans l'énoncé

Edit Salut Lii avais pas rafraichi , je regarde

Le gag !! Emporté par l'elan ,je n'ai pas vu que c'etait ton fichier que j'avais telechargé

 

[Lii]

Re : Effacer Names

Re,

Il n'est pas bien mon fichier, pierrejean 😉 ?
C'est ""RefersTo" que je n'avais pas trouvé, donc merci !