Insertion nom

[pepsi]

Bonjour,

J'ai un fichier excel sur lequel j'ai plusieurs feuilles et plusieurs noms définis (insertion nom)

Sur certaines feuilles, les noms ne renvoient pas aux mêmes cellules que d'autres (malgré un nom identique)

Je voudrais copier tous les noms de la feuille 1 et les copier sur les autres feuilles en écrasant les autres. Est ce possible ?

 

[kjin]

Re : Insertion nom

Bonsoir,
Ce sont les classeurs qui contiennent des noms, pas les feuilles...
A+
kjin

 

[pepsi]

Re : Insertion nom

Bonjour,

dans mon cas Excel s'est vraiment emmêlé les pinceaux dans les noms.

Dans le fichier, plusieurs feuilles ont été rappatriées à partir d'autres documents (avec des noms de zone identiques) mais faisant références à d'autre zones.

Du coup c'est vraiment le bazar dans les noms et j'aimerais faire le ménage

Comment faire ?

 

[MJ13]

Re : Insertion nom

Bonjour Pepsi, kjin

Une première piste.

Se mettre sur une cellule de la feuille où il n' y a rien sur 2 colonnes et taper F3 puis alt+L puis Entrée.

Ensuite, il faudrait voir par macro, c'est possible 😉.

 

[pepsi]

Re : Insertion nom

Merci beaucoup ! ca permet déjà d'afficher clairement tous les noms

Une fois le ménage fait, on peut les réintégrer manuellement ?

L'idéal pour tout le document, histoire que toutes les feuilles aient les mêmes noms ...

 

[pepsi]

Re : Insertion nom

Bonjour

J'ai besoin d'un peu d'aide pour construire une macro qui pourrait

-Supprimer tous les noms d'un fichier xls

- Ajouter les noms et les références à partir d'une liste établie

Est ce possible ??

Merci d'avance

 

[MJ13]

Re : Insertion nom

Re

A tester:
Pour le premier point

Sub Supprime_Noms_Workbook()
MsgBox ActiveWorkbook.Names.Count
For i = ActiveWorkbook.Names.Count To 1 Step -1
ActiveWorkbook.Names.Item(i).Delete
Next
End Sub

Pour le second, je ne sais pas😕

 

[pepsi]

Re : Insertion nom

Bonjour ,

Je remonte ce post

Une fois le ménage fait dans une feuil xls, après avoir fait F3 + ALT L :

Je cherche toujours à réintegrer les noms dans le gestionnaires de noms soit par macro soit par un autre moyen.

Quelqu'un a une solution ?

Merci d'avance

 

[pepsi]

Re : Insertion nom

Re,

Si je mets en A1 un nom : pourquoi ce code ne marche pas ?

Sub insertion_nom()
ActiveWorkbook.Names.Value = Range("a1")


End Sub

erreur d'exécution '438' : propriété ou méthode non gérée par cet objet

 

[tototiti2008]

Re : Insertion nom

Bonjour pepsi,

(Après avoir répondu à la question de Orangina_L, je me suis rendu compte du pouvoir des marques sur notre inconscient 😀)

Comme dirait l'ami Michel (MJ13), il faut demander à l'ami Henry (Henry Gistrair de MacRow), bref l'enregistreur de macros.
Pour ajouter un nom, c'est la méthode Add sur la collection Names que l'on doit utiliser
Si ton nom à ajouter en A1, et la référence correspondante en B1 (du genre "=Feuil1!$B$12"), ça devrait donner

ActiveWorkbook.Names.Add Name:=Range("A1").Value, RefersTo:=Range("B1").Value