Supprimer un nom dans une feuille

tototiti2008

XLDnaute Barbatruc

• 15 Avril 2010

• #2

Re : Supprimer un nom dans une feuille

Bonjour Risleure,

encore faut-il que le fichier courant ait une feuille qui s'appelle Feuil1...

Code:

fichierCourant.Names("CelluleDuCoin").Delete

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 15 Avril 2010

• #3

Re : Supprimer un nom dans une feuille

Merci TotoTiti

encore faut-il que le fichier courant ait une feuille qui s'appelle Feuil1...

Cliquez pour agrandir...

Sauf grave erreur de ma part, il y a toujours une feuillle Feuil1 dans un fichier. Non?

Mais pour généraliser, je souhaite supprimer le nom de la cellule A1 [highlight]quelque soit ce nom[/code] donc sans avoir à préciser "CelluleDuCoin". Car j'ai découvert avec stupeur que l'on pouvait affecter plusieurs noms différents à la même cellule qu'il est donc fastidieux de les énumérer ...manuellement mais peut être peut-on énumérer automatiquement tous les noms affectés à la cellule A1 de Feuil1

Voir cellule A1 en PJ

Merci

 

Pièces jointes

• Risleure.xls

  13.5 KB · Affichages: 45
• Risleure.xls

  13.5 KB · Affichages: 45
• Risleure.xls

  13.5 KB · Affichages: 43

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 15 Avril 2010

• #4

Re : Supprimer un nom dans une feuille

Re,

Pour ceux que ça branche j'ai fini par codé la supression de tous les noms affectés à une cellule d'un fichier [highlight]sans les connaitre, ni en connaitre le nombre[/code]

Code:

Sub SupprimeNomDansFeuillle()'vire les noms en cellule A1 de Feuil1
Dim nom As Name
    For Each nom In Names
        If nom = "=Feuil1!$A$1" Then nom.Delete
    Next
End Sub

J'ai pas bien compris pourquoi ça marche 😱
Mais je m'en vais intégrer cela dans ma moulinette !!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Avril 2010

• #5

Re : Supprimer un nom dans une feuille

Bonjour Risleure, salut tototiti,

Risleure à dit:

Sauf grave erreur de ma part, il y a toujours une feuillle Feuil1 dans un fichier. Non?

Cliquez pour agrandir...

Grave erreur.

En écrivant RefersToR1C1:="=Feuil1!R1C1" on suppose qu'il y a une feuille nommée "Feuil1".

Si on l'a nommée autrement, ça ne marche donc plus 🙂

Pour supprimer tous les noms de la cellule A1 :

Code:

Dim n As Name
For Each n In ThisWorkbook.Names
If n.RefersToR1C1 = "=Feuil1!R1C1" Then n.Delete
Next

Edit : désolé, pas rafraîchi, bravo vous n'avez pas besoin d'aide

A+

 

Dernière édition: 15 Avril 2010

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Avril 2010

• #6

Re : Supprimer un nom dans une feuille

Salut job75,
Re,

et quel que soit le nom de la première feuille du classeur ça devrait donner :

Code:

Dim n As Name
For Each n In ThisWorkbook.Names
If n.RefersToR1C1 = "=" & ThisWorkbook.Worksheets(1).Name & "!R1C1" Or n.RefersToR1C1 = "='" & ThisWorkbook.Worksheets(1).Name & "'!R1C1" Then n.Delete
Next

 

Dernière édition: 15 Avril 2010

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Avril 2010

• #7

Re : Supprimer un nom dans une feuille

Re,

En utilisant le CodeName de la feuille, on peut la renommer ou la déplacer :

Code:

Dim n As Name
For Each n In ThisWorkbook.Names
If n = "=" & [COLOR="Red"]Feuil1[/COLOR].Name & "!$A$1" Then n.Delete
Next

A+

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 15 Avril 2010

• #8

Re : Supprimer un nom dans une feuille

Re,
Cher Job,

Sauf le respect que je dois à un Barbatruc, j'avais cru comprendre que l'on pouvait toujours s'adresser à Feuil1 qui existe toujours dans un classeur alors que "Feuil1" peut avoir été renommée 😉

Bonne soirée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Avril 2010

• #9

Re : Supprimer un nom dans une feuille

Re,

Comme indiqué dans mon post #7, on peut utiliser le "CodeName" de la feuille.

En effet il est plus difficile à modifier que le "Name", mais c'est possible.

Dans VBA, cliquer sur Feuil1, puis menu Affichage => Fenêtre Propriétés => modifier (Name).

A+

 

Vote positif 0 Vote négatif