Discussion :

[jackborogar]

Bonjour,

J'aimerais supprimer le contenu de tous les noms inscris dans toutes les feuilles de mon classeur. Mes noms s'appelle "supp1", "supp2", "supp3" etc...

Est-il possible de faire cela et si oui comment?

En vous remerciant,

Cordialement,

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim N As Name
For Each N In ActiveWorkbook.Names
    N.Delete
Next

[jackborogar]

Merci de ta réponse,

Néanmoins ce code, si je me trompe, supprime les noms et non le contenu qu'il y a dans les noms. Or c'est le souhait que j'aimerai apporter à mon code

[MarcelG]

Bonjour Daniel, Bonjour Tanguy

A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub essai_noms()
Dim nm As Name
For Each nm In Names
     Range(nm.RefersTo).ClearContents
Next nm
End Sub

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim N As Name
For Each N In ActiveWorkbook.Names
    N.RefersToRange.ClearContents
Next

[Daniel.C]

Ou, pour être complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim N As Name
On Error Resume Next
For Each N In ActiveWorkbook.Names
    N.RefersToRange.ClearContents
Next
On Error GoTo 0