Créer des noms à partir de la sélection

**simo1112** · 22/03/2013, 03h21

bonjour,

je cherche comment générer un

nom "global" depuis 'créer des noms à partir de la sélection'.

En effet, dans une macro, je crée des noms mais comment
m'assurer qu'ils ne sont pas "locaux".

Je remarque que des fois ils sont locaux, d'autres fois "globaux".

Détails supplémentaires:

-je copie un fichier dans une feuille Excel, je trouve l'endroit
dans cette feuille où mon information recherchée est,
puis je crée toujours le même nom partir de cette sélection, puis
ce nom(global) est utilisé dans une formule sur une autre feuille.

-Particularité:

comme je conserve cette feuille dans le classeur, je me retrouve donc
avec un grand nombre de noms identiques dans ce classeur.
Ce qui les différencie, c'est leur provenance.
Il faut évidemment que je travaille avec la propriété "Global".

D'où ma question:
comment générer un nom "global" depuis 'créer des noms
à partir de la sélection'.

merci de vos solutions.
--Pas facile d'être clair-

-

Si

**Philippe Tulliez** · 22/03/2013, 10h17

Bonjour,
Comme je prépare un tutoriel sur le sujet, j'ai une explication préparée.
Comment créer un nom défini ?
Hormis le code VBA, Il ya deux façons de créer un nom défini.
La première méthode consiste à sélectionner la cellule ou la plage de cellules à laquelle nous souhaitons attribuer un nom. ensuite cliquer dans la Zone Nom et saisir le nom. La Zone Nom est le rectangle blanc à gauche de la barre des formules (où l'on visualise la cellule active). Si on tape dans cette zone un nom qui est déjà défini, Excel affiche la plage référencée par ce nom.
La seconde façon de créer un nom consiste à utiliser la boîte de dialogue Nouveau nom que l'on active par la commande Définir un nom qui se trouve dans le groupe Noms définis de l'onglet [Formule] après avoir éventuellement sélectionné la cellule ou la plage de cellules à laquelle nous souhaitons attribuer un nom. Là, taper le nom que nous souhaitons utiliser. Dans cette boîte de dialogue, nous pouvons aussi changer la feuille auquel se réfère un nom existant.
Un nom défini doit commencer par une lettre ou un trait de soulignement (_) et peut-être composé de lettres, de chiffres ou du caractère de soulignement (Underscore). Les espaces ne sont pas autorisés dans un nom défini. En outre, un nom défini ne peut ne pas être le même que celui d'une référence de cellule valide. Par exemple, le nom TVA1 est invalide parce que c'est une référence de cellule valide. Les noms définis ne sont pas sensibles à la casse.
Je rajouterais que par défaut un nom est Global

**simo1112** · 23/03/2013, 04h02

MERCI PHILIPPE
j'espérais un paragraphe plus spécifique à la question de la macro.
Si

**Didier Gonard** · 23/03/2013, 12h19

Bonjour,

Utiliser la création de noms à partir d’une sélection ne génère, je pense, que des noms d’ "Etendue" Classeur.

En VBA pour le répliquer tu devras utiliser de base la méthode CreatefNames qui ne possède que 4 arguments (direction de la source) et ne permet donc pas de spécifier une étendue via ses arguments. D’autre part, cette méthode ne fait pas référence à une collection Names donnée, elle fait référence à un objet Range donné (plage, Selection…) et finit par créer des noms d’étendue Classeur.

Tout ça est complexifié par le fait qu’un Range peut porter plusieurs noms définis ( cf Sub DGName3) et que quand on fait des copies de feuilles, Excel transforme tous les noms d’étendue classeur en noms d’étendue Feuille (on ne peut pas trop lui reprocher car sinon il y aurait perte des nommages vue sous un certain angle)

Dans un appli client ou on avait ce genre de souci, j’avais résolu au plus simple en tuant tous les noms après l’import et en les reconstruisant selon le besoin.

Sinon, l’étendue se réfère à l’objet dont tu évoques la propriété Names (qui renvoie une collection), cf les codes suivants :

Avec la méthode Add de la collection Names, selon la nature de l'objet indiqué tu seras en étendue Classeur ou Feuille :

Code :

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

1
2
3
ActiveWorkbook.Names.Add Name:="Didier1", RefersTo.....
 
ActiveWorkbook.Worksheets("Feuil1").Names.Add Name:="Didier2", RefersTo....

Si tu veux répliquer la création de noms à partir d’une sélection à partir de cette méthode tu dois faire un code du genre (nomme la plage de 3 cellules sous l'étiquette pour les étiquettes de A1 à E1)

Code :

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

1
2
3
4
5
6
Sub DGName1() 'Etendue Classeur
Dim cellu As Range
For Each cellu In Range("A1:E1")
    ActiveWorkbook.Names.Add Name:=cellu.Value, RefersToR1C1:="=Feuil1!R" & cellu.Row + 1 & "C" & cellu.Column & ":" & "R" & cellu.Row + 3 & "C" & cellu.Column
Next cellu
End Sub

...Utile seulement si tu ne veux qu'une étendu Feuille, sinon en une ligne CreateNames le fait

, donc :

Code :

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

1
2
3
4
5
6
Sub DGName2() 'Etendue Feuille
Dim cellu As Range
For Each cellu In Range("A1:E1")
    ActiveWorkbook.Worksheets("Feuil1").Names.Add Name:=cellu.Value, RefersToR1C1:="=Feuil1!R" & cellu.Row + 1 & "C" & cellu.Column & ":" & "R" & cellu.Row + 3 & "C" & cellu.Column
Next cellu
End Sub

tu peux voir l'impact de la chose après avoir lancé les 2 codes successivement avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DGName3()
Dim Nme As Name
For Each Nme In ActiveWorkbook.Names
    Debug.Print Nme.Name
Next Nme
End Sub
 
Sub DGName4()
Dim Nme As Name
For Each Nme In ActiveSheet.Names
    Debug.Print Nme.Name
Next Nme
End Sub