Bonsoir,
Dans mon code j'aimerai supprimer via le code tous les nom définis dans
chaque feuille de mon classeur.
Les nom définis ne sont pas toujours les mêmes et pas toujours.
La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse
comment ecrire cette ligne pour que tous les noms de la feuille soient
supprimés?
Cette macro supprime tout les noms définis dans le classeur actif :
Sub Macro1() For Each X In ActiveWorkbook.Names X.Delete Next End Sub
garnote
Bonsoir,
Essaie ceci : Sub Efface_Noms() For Each nom In ActiveWorkbook.Names nom.Delete Next nom End Sub
Serge
"tip.tiptop" a écrit dans le message de news: 4570aa00$0$950$
Bonsoir, Dans mon code j'aimerai supprimer via le code tous les nom définis dans chaque feuille de mon classeur. Les nom définis ne sont pas toujours les mêmes et pas toujours. La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse comment ecrire cette ligne pour que tous les noms de la feuille soient supprimés?
Bonsoir,
Essaie ceci :
Sub Efface_Noms()
For Each nom In ActiveWorkbook.Names
nom.Delete
Next nom
End Sub
Serge
"tip.tiptop" <tip.tiptop@free.fr> a écrit dans le message de news: 4570aa00$0$950$426a74cc@news.free.fr...
Bonsoir,
Dans mon code j'aimerai supprimer via le code tous les nom définis dans chaque feuille de mon classeur.
Les nom définis ne sont pas toujours les mêmes et pas toujours.
La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse
comment ecrire cette ligne pour que tous les noms de la feuille soient supprimés?
Essaie ceci : Sub Efface_Noms() For Each nom In ActiveWorkbook.Names nom.Delete Next nom End Sub
Serge
"tip.tiptop" a écrit dans le message de news: 4570aa00$0$950$
Bonsoir, Dans mon code j'aimerai supprimer via le code tous les nom définis dans chaque feuille de mon classeur. Les nom définis ne sont pas toujours les mêmes et pas toujours. La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse comment ecrire cette ligne pour que tous les noms de la feuille soient supprimés?
Pierre Archambault
Salut tip.tiptop
Public Sub SupprimerNoms() Dim NomDePlage As Variant
For Each NomDePlage In Names NomDePlage.Delete Next NomDePlage
End Sub
Pierre
"tip.tiptop" a écrit dans le message de news: 4570aa00$0$950$
Bonsoir, Dans mon code j'aimerai supprimer via le code tous les nom définis dans chaque feuille de mon classeur. Les nom définis ne sont pas toujours les mêmes et pas toujours. La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse comment ecrire cette ligne pour que tous les noms de la feuille soient supprimés?
Salut tip.tiptop
Public Sub SupprimerNoms()
Dim NomDePlage As Variant
For Each NomDePlage In Names
NomDePlage.Delete
Next NomDePlage
End Sub
Pierre
"tip.tiptop" <tip.tiptop@free.fr> a écrit dans le message de news:
4570aa00$0$950$426a74cc@news.free.fr...
Bonsoir,
Dans mon code j'aimerai supprimer via le code tous les nom définis dans
chaque feuille de mon classeur.
Les nom définis ne sont pas toujours les mêmes et pas toujours.
La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse
comment ecrire cette ligne pour que tous les noms de la feuille soient
supprimés?
Public Sub SupprimerNoms() Dim NomDePlage As Variant
For Each NomDePlage In Names NomDePlage.Delete Next NomDePlage
End Sub
Pierre
"tip.tiptop" a écrit dans le message de news: 4570aa00$0$950$
Bonsoir, Dans mon code j'aimerai supprimer via le code tous les nom définis dans chaque feuille de mon classeur. Les nom définis ne sont pas toujours les mêmes et pas toujours. La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse comment ecrire cette ligne pour que tous les noms de la feuille soient supprimés?
MichDenis
La procédure suivante supprime tous les "noms" définis au niveau des feuilles mais pas ceux qui ont été défini au niveau du Classeur
'---------------------------- Sub test()
For Each Sh In Worksheets For Each N In Names If InStr(1, N, Sh.Name, vbTextCompare) <> 0 Then N.Delete End If Next Next
End Sub '----------------------------
"tip.tiptop" a écrit dans le message de news: 4570aa00$0$950$ Bonsoir, Dans mon code j'aimerai supprimer via le code tous les nom définis dans chaque feuille de mon classeur. Les nom définis ne sont pas toujours les mêmes et pas toujours. La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse comment ecrire cette ligne pour que tous les noms de la feuille soient supprimés?
La procédure suivante supprime tous les "noms"
définis au niveau des feuilles mais pas ceux qui
ont été défini au niveau du Classeur
'----------------------------
Sub test()
For Each Sh In Worksheets
For Each N In Names
If InStr(1, N, Sh.Name, vbTextCompare) <> 0 Then
N.Delete
End If
Next
Next
End Sub
'----------------------------
"tip.tiptop" <tip.tiptop@free.fr> a écrit dans le message de news:
4570aa00$0$950$426a74cc@news.free.fr...
Bonsoir,
Dans mon code j'aimerai supprimer via le code tous les nom définis dans
chaque feuille de mon classeur.
Les nom définis ne sont pas toujours les mêmes et pas toujours.
La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse
comment ecrire cette ligne pour que tous les noms de la feuille soient
supprimés?
La procédure suivante supprime tous les "noms" définis au niveau des feuilles mais pas ceux qui ont été défini au niveau du Classeur
'---------------------------- Sub test()
For Each Sh In Worksheets For Each N In Names If InStr(1, N, Sh.Name, vbTextCompare) <> 0 Then N.Delete End If Next Next
End Sub '----------------------------
"tip.tiptop" a écrit dans le message de news: 4570aa00$0$950$ Bonsoir, Dans mon code j'aimerai supprimer via le code tous les nom définis dans chaque feuille de mon classeur. Les nom définis ne sont pas toujours les mêmes et pas toujours. La commande ci dessous sit bine le faire pour un nom défini:
ActiveWorkbook.Names(Adherents).Delete
Mais voilà que ça ce Corse comment ecrire cette ligne pour que tous les noms de la feuille soient supprimés?
