Effacer le nom de chaque cellule d'un groupe

[lerogertroutman]

Bonjour à tous,

Je dispose de tableaux excel dont certaines cellules ont été nommées (à l'aide du cadran situé en haut à gauche de l'écran).

Lorsqu'on efface le contenu des cellules (selection.clear), le nom de ces cellule demeure...
j'ai donc essayé de réaliser une macro qui permet d'effacer le nom de ces cellules, mais elle fonctionne mal (elle ne semble effacer que les noms de la première ligne).

la voici :

Sub EffacerLesNoms_NonDeNon()

Dim CelluleX As Range
On Error Resume Next

For Each CelluleX In Range("A19", "BB19")
CelluleX.Name.Delete
Next

End Sub

Alors si quelqu'un voit la solution...

Un grand merci 🙂

Le Roger

 

[Compte Supprimé 979]

Re : Effacer le nom de chaque cellule d'un groupe

Salut Lerogertroutman 😉

Tu peux essayer :

Sub EffaceNoms()
  Dim CelName
  For Each CelName In ActiveWorkbook.Names
    CelName.Delete
  Next CelName
End Sub

ATTENTION : Supprime tous les noms de ton classeur

Sinon pour une plage, ton code modifié

Sub EffacerLesNoms_NonDeNon()
Dim CelluleX As Range
 
On Error Resume Next
For Each CelluleX In Range("[B][COLOR=blue]A1:BB19[/COLOR][/B]")
  CelluleX.Name.Delete
Next
End Sub

A+

 

[lerogertroutman]

Re : Effacer le nom de chaque cellule d'un groupe

Bonjour BrunoM45,

J'ai ommis de préciser que SEULES les cellules du tableau doivent perdre leur nom.

Certaines cellules, qui ne font pas partie du tableau visé, doivent garder leur nom.

Cette formule fonctionne, mais efface tous les noms de toutes les cellules...

Mmmh... Any idea ?

Le Roger 😉

[EDIT] : Eh bien, tu as anticipé mon problème... Merci beaucoup ! Ca devrait fonctionner maintenant 🙂

 

[lerogertroutman]

Re : Effacer le nom de chaque cellule d'un groupe

Je précise que la méthode ci-dessus fonctionne parfaitement :
- pour les cellules simples
- pour les cellules fusionnées
- pour les groupes de cellules de toutes tailles

Si vous remarquez des erreurs ou des réactions illogiques (noms qui ne disparaissent pas, anciens noms qui reviennent (!!?) comme par magie, etc.)
--> Assurez-vous que toutes les variables associées sont bien déclarées et surtout déclarées en tant que Range 😉

ç'a été la cause de pas mal de mes problèmes.

Bonne journée,

Le Roger