Plage nommée

CB60

XLDnaute Barbatruc

• 3 Mars 2010

• #2

Re : Plage nommée

Bonjour
Pour effacer les plages nommées:

HTML:

Sub SuppressionN()
    Dim choix As Name    
    For Each choix In ActiveWorkbook.Names
        choix.Delete
    Next choix
End Sub

edit bonjour Pierrot

 

Dernière édition: 3 Mars 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mars 2010

• #3

Re : Plage nommée

Bonjour Tomtom

le code ci dessous te permettra de supprimer toutes les plages de ton classeur :

Code:

Option Explicit
Sub test()
Dim n As Name
For Each n In ActiveWorkbook.Names
    n.Delete
Next n
End Sub

par contre si tu n'actualise jamais les données de ta requête, tu peux essayer de la supprimer en fin de procédure, cela aura également pour effet de supprimer la plage nommée (celle créée suite au "add"..

Code:

.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
[COLOR="Red"][B].Delete[/B][/COLOR]
End With

bonne journée
@+

Edition : bonjour Bruno, un peu en retard moi... désolé pour la collision.

 

Vote positif 0 Vote négatif

T

TomTom07

XLDnaute Nouveau

• 3 Mars 2010

• #4

Re : Plage nommée

Bonjour

Merci à vous deux , vos solutions fonctionnent parfaitement 🙂
Ce forum est vraiment super 😛

excellente journée

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 19 Avril 2010

• #5

Re : Plage nommée

Bonjour tout le monde,

Permettez-moi de m'imiscer dans ce fil pour une ou deux questions 🙂

J'ai fais un essai en remplaçant ActiveWorbook.Names par ActiveSheet.Names car je ne voulais effacer que les plages de la feuille active. Pour l'essai, j'avais créé 3 plages nommées mais le code n'a effacé que la première plage et rien de plus. Pourquoi? (je travaille sous Excel 2003 🙁)

Aussi, comment redéfinir une plage nommée existante?

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Avril 2010

• #6

Re : Plage nommée

Bonjour,

essaye peut être le code ci-dessous :

Code:

Dim n As Name
For Each n In ThisWorkbook.Names
 If n.RefersToRange.Parent.Name = ActiveSheet.Name Then n.Delete
Next n

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 19 Avril 2010

• #7

Re : Plage nommée

Bonjour Pierrot93, ça ne fonctionne pas.

J'exécute le code en pas-à-pas et il passe de la ligne "For Each ..." à "End sub" à tous coups.

😕

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Avril 2010

• #8

Re : Plage nommée

Re

mets un petit fichier en pièce jointe, cela sera plus facile pour t'aider....

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 21 Avril 2010

• #9

Re : Plage nommée

Bonsoir Pierrot93, bizarrement je l'essaie à la maison en 2007 et ça fonctionne très bien. Mais au travail ça ne fonctionnait pas .... Je vais refaire un essais demain au travail et te reviendrai là-dessus... 😕

Bye

 

Pièces jointes

• PlageNommées.xlsm

  23.5 KB · Affichages: 103

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Avril 2010

• #10

Re : Plage nommée

Bonjour,

perso je n'ai pas 2007 et je ne peux donc pas ouvrir ton fichier....

bonne journée
@+

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 22 Avril 2010

• #11

Re : Plage nommée

Pierrot93 à dit:

Bonjour,

perso je n'ai pas 2007 et je ne peux donc pas ouvrir ton fichier....

bonne journée
@+

Cliquez pour agrandir...

Bonjour Pierrot. J'ai fais l'essai avec mon fichier de travail et le code ne fonctionne pas (malgré le fait que j'aie accepté les macros) Mais ce fichier est trop volumineux et confidentiel pour le mettre en ligne. Par contre, avec celui que j'ai joint ci-haut ça fonctionne au travail. Je suis bouche bée! 😱)

Alors, j'ai essayé de reproduire le problème dans mon fichier ci-joint convertit en 2003 en tentant de reproduire les conditions de mon fichier de travail (avec des tableaux croisés, etc) mais ça fonctionne ici. Là je suis perplexe.

Je crois que je vais laisser tomber l'idée et effacer les noms à partir du gestionnaire de noms.

Aurevoir

 

Pièces jointes

• PlageNommées2.zip

  23.4 KB · Affichages: 50

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Avril 2010

• #12

Re : Plage nommée

Bonjour,

oui, fonctionne également chez moi avec le fichier joint... pas d'autre solution à te proposer... désolé.

bonne journée
@+

 

Vote positif 0 Vote négatif