XL 2019 Supprimer noms des colonnes d'une feuille

carlos · 31 Août 2024

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

mapomme · 1 Septembre 2024

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

carlos · 14 Septembre 2024

Bonjour,
Super votre travail.
Le fichier ede Mapomme est tres complet
Bonne journée

XL 2019 Supprimer noms des colonnes d'une feuille

carlos

XLDnaute Impliqué

Pièces jointes

mapomme

carlos

XLDnaute Impliqué

Discussions similaires