Sub ListerLesNoms()
Dim I As Integer
Sheets.Add Sheets(1)
ActiveSheet.Name =3D "MAINTENANCE"
Application.ScreenUpdating =3D False
Range("B1").Resize(Names.Count).NumberFormat =3D "@"
For I =3D 1 To Names.Count
Cells(I, 1) =3D Names(I).Name
Cells(I, 2) =3D Names(I).RefersTo
Next I
Columns("A:B").AutoFit
End Sub
Tous les noms affich=E9s n'apparaissent pas dans la "Insertion/Nom/..."
Je d=E9sire en supprimer quelqu'uns o=F9 les trouver ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
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
Bonjour,
ActiveWorkbook.Names("xxx").Delete
JB
On 28 juin, 09:26, Le Nordiste <jean-paul.batai...@neufcegetel.fr>
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 ?
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 ?
