XL 2019 Supprimer noms des colonnes d'une feuille

carlos

XLDnaute Impliqué
Supporter XLD
Bonjour,
J'aimerais effacer les noms attribués aux colonnes avec ce code mais cela ne marche pas.
Private Sub CommandButton1_Click()
Dim N As Name
With Worksheets("Test")
For Each N In .Names
N.Delete
Next
End With

Merci
 

Pièces jointes

  • Supprimer les noms des colonnes d'une feuille.xlsm
    19.4 KB · Affichages: 8
Solution
Bonjour à tous :),

Un autre code qui tient compte aussi des noms désignant des zones à plusieurs colonnes disjointes ou non (ces noms seront supprimés) ou bien des noms faisant référence à un mélange de colonnes et de plages qui ne sont pas des colonnes (les noms seront conservés).
VB:
Sub OterNomColEntiere()
Const Feuille = "Test"
Dim N As Name, addr, xrg As Range, xarea As Range, xcol As Range, uniquementCol As Boolean
   DefinirNoms    ' >>>>> à supprimer hors ntest
   For Each N In ThisWorkbook.Names
      uniquementCol = True       ' a priori le nom de fait référence qu'à des colonnes (on va vérifier)
      ' si la rérérence du nom ne commence par "=" & Feuille alors uniquementCol est faux
      ' et on quitte la boucle (pas la...

Discussions similaires

Statistiques des forums

Discussions
315 047
Messages
2 115 711
Membres
112 561
dernier inscrit
souhaib