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

Lorenzomike · 15 Septembre 2009

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 · 15 Septembre 2009

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 · 15 Septembre 2009

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 · 15 Septembre 2009

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à.

Code:

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+

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

Lorenzomike

Guest

Guest

Guest

Lorenzomike

Guest

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency