Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" a écrit dans le message de news:Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" <enlever_ceci_emile_6_3@no_spam_yahoo.fr> a écrit dans le message de news: uLZO4igMIHA.5988@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" a écrit dans le message de news:Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Et pour effacer tous les noms qui se réfèrent à
des cellules de la feuille Personnel :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If InStr(1, v, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Serge
"Tatanka" a écrit dans le message de news:Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" a écrit dans le message de news:Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Et pour effacer tous les noms qui se réfèrent à
des cellules de la feuille Personnel :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If InStr(1, v, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Serge
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: uHWItLhMIHA.2140@TK2MSFTNGP03.phx.gbl...
Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" <enlever_ceci_emile_6_3@no_spam_yahoo.fr> a écrit dans le message de news: uLZO4igMIHA.5988@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Et pour effacer tous les noms qui se réfèrent à
des cellules de la feuille Personnel :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If InStr(1, v, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Serge
"Tatanka" a écrit dans le message de news:Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" a écrit dans le message de news:Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Et pour effacer tous les noms qui se réfèrent à
des cellules de la feuille Personnel :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If InStr(1, v, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Serge
"Tatanka" a écrit dans le message de news:Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" a écrit dans le message de news:Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Et pour effacer tous les noms qui se réfèrent à
des cellules de la feuille Personnel :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If InStr(1, v, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Serge
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
uHWItLhMIHA.2140@TK2MSFTNGP03.phx.gbl...
Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" <enlever_ceci_emile_6_3@no_spam_yahoo.fr> a écrit dans le message de news:
uLZO4igMIHA.5988@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Et pour effacer tous les noms qui se réfèrent à
des cellules de la feuille Personnel :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If InStr(1, v, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Serge
"Tatanka" a écrit dans le message de news:Salut Émile,
Pour qu'un nom ne soit disponible que pour une
certaine feuille, il faut qu'il soit précédé du nom
de la feuille et de !
Si tu veux effacer tous les noms commençant par Personnel,
la macro suivante me semble appropriée :
Sub Efface_Noms_Dans_Feuille()
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Personnel") <> 0 Then n.Delete
Next n
End Sub
Est-ce que ça te convient ?
Serge
"Emile" a écrit dans le message de news:Bonjour à tous,
Je cherche à effacer tous les noms (Names) d'une feuille Excel, mais pas tous ceux du classeur.
Je brode lamentablement autour de l'exemple ci-dessous, mais c'est pas ça !! :-(
Est-ce que quelqu'un peut me donner la solution?
Je vous remercie d'avance,
Cordialement.
---------------------------------------------------------
Sub Macro1()
Dim n As Name
For Each n In Sheets("Personnel").Names
' MsgBox "Nom =" & n.Name & vbCr & "Zone = " & n.Value
n.Delete
Next n
End Sub
---------------------------------------------------------
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de new s:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de new s:
OyGm83hMIHA.2...@TK2MSFTNGP04.phx.gbl...
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de new s:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de news:
OyGm83hMIHA.2...@TK2MSFTNGP04.phx.gbl...
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de news:
OyGm83hMIHA.2...@TK2MSFTNGP04.phx.gbl...
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de news:
OyGm83hMIHA.2...@TK2MSFTNGP04.phx.gbl...
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de news:
OyGm83hMIHA.2...@TK2MSFTNGP04.phx.gbl...
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de news:
OyGm83hMIHA.2...@TK2MSFTNGP04.phx.gbl...
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge
Pour supprimer tous les noms appartenants à la feuille "Feuil1!
ceci n'est pas suffisant ?
Sub test()
Dim N As Name
With Worksheets("Feuil1")
For Each N In .Names
N.Delete
Next
End With
End Sub
"Tatanka" a écrit dans le message de news:
Plus sûr ainsi :
Sub Efface_Noms_Définis_Dans_Feuille_Personnel()
For Each n In ActiveWorkbook.Names
v = n.RefersTo
If Mid(v, 2, 10) = "Personnel!" Then n.Delete
Next n
End Sub
Serge