Effacer les noms de plage de cellule d'une seule feuille

[Lorenzomike]

Bonjour,

Je cherche par une macro pour effacer les noms de plage concernant plusieurs cellules et/ou colonnes dans une seule feuille (exemple : Nom de plage "PLAGE" faisant référence à C2:I9)

Je n'ai trouvé dans le forum que l'effacement des noms attribués à des cellules uniques.

Merci de votre aide

 

[Guest]

Re : Effacer les noms de plage de cellule d'une seule feuille

Bonjour,

Que le nom fasse référence à une seule cellule ou plusieurs ou même à une formule, c'est le nom qui est supprimé, ce à quoi il fait référence n'est pas important.

Sinon, précise ta question.

A+

 

[Lorenzomike]

Re : Effacer les noms de plage de cellule d'une seule feuille

Bonjour Hasco,

Merci de ta réponse.
Voilà la macro que j'utilise :
Dim CelluleX As Range

On Error Resume Next
For Each CelluleX In Range("A1:I1000")
CelluleX.Name.Delete
Next

Elle fonctionne mais elle laisse les noms existants!
Je comprends plus...

Merci de ton aide

 

[Guest]

Re : Effacer les noms de plage de cellule d'une seule feuille

Re,

voici deux petites macros

La première enlève tous les noms de la feuille dont le nom est passé en paramètres.
La deuxième est construite autour de ce que tu as déjà.

Sub SupprimerNomsDeLaFeuille(sNomFeuille As String)
    Dim NomPlage As Name
    For Each NomPlage In ThisWorkbook.Names
        If NomPlage.RefersTo Like "*" & sNomFeuille & "*" Then Application.Names(NomPlage.Name).Delete
    Next NomPlage
End Sub
Sub SupprimerNoms()
    Dim CelluleX As Range
    For Each CelluleX In Feuil1.UsedRange.Cells
        If Not CelluleX.Name Is Nothing Then ThisWorkbook.Names(CelluleX.Name.Name).Delete
    Next
End Sub

A+