noms n'apparaissant pas dans "Insertion/Nom/..."

Le
Le Nordiste
Bonjour tertous,

J'utilise cette petite macro - merci Jesaipluki-


Sub ListerLesNoms()
Dim I As Integer
Sheets.Add Sheets(1)
ActiveSheet.Name = "MAINTENANCE"
Application.ScreenUpdating = False
Range("B1").Resize(Names.Count).NumberFormat = "@"
For I = 1 To Names.Count
Cells(I, 1) = Names(I).Name
Cells(I, 2) = Names(I).RefersTo
Next I
Columns("A:B").AutoFit
End Sub

Tous les noms affichés n'apparaissent pas dans la "Insertion/Nom/"
Je désire en supprimer quelqu'uns où les trouver ?

Merci du coup de pouce,

Le Nordiste
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4909131
Bonjour,

ActiveWorkbook.Names("xxx").Delete

JB
On 28 juin, 09:26, Le Nordiste wrote:
Bonjour tertous,

J'utilise cette petite macro - merci Jesaipluki-

Sub ListerLesNoms()
Dim I As Integer
Sheets.Add Sheets(1)
ActiveSheet.Name = "MAINTENANCE"
Application.ScreenUpdating = False
Range("B1").Resize(Names.Count).NumberFormat = "@"
For I = 1 To Names.Count
Cells(I, 1) = Names(I).Name
Cells(I, 2) = Names(I).RefersTo
Next I
Columns("A:B").AutoFit
End Sub

Tous les noms affichés n'apparaissent pas dans la "Insertion/Nom/..."
Je désire en supprimer quelqu'uns où les trouver ?

Merci du coup de pouce,

Le Nordiste


Le Nordiste
Le #4909081
ActiveWorkbook.Names("xxx").Delete


Merci JB,

Publicité
Poster une réponse
Anonyme