Nommer des variables

J

jmps

Guest

• 14 Décembre 2004

• #2

Bonjour Pascal,

Le code ci-dessous devrait te convenir je pense.

Range("B1").Value = Range(Range("$A$1").Formula).Value

Attention, tes noms ne doivent définir qu'une seule cellule à la fois, sinon ça te renverra la valeur de la première cellule du range uniquement.

J'espère que j'ai bien compris ta question, n'hésite pas à revenir sinon.

A+

José

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 14 Décembre 2004

• #3

Merci José,

Mais j'ai oublié de préciser un détail, en fait je veux utiliser les noms de Excel menu :
Insertion\Nom\Définir.

Pour que dans n'importe quelle feuille de mon classeur si j'utilise une formule =MR000, cela me renvoie la valeur contenue dans feuil1!$B$1 et que pour =MR001 cela me renvoie la valeur contenue dans feuil1!$B$2 ...

Je voudrais automatiser la fonction DEFINIR NOM, j'ai en réalité 2000 variables à nommer.

J'ai essayé différents codes avec Add Name mais cela ne marche pas, j'ai des erreurs de syntaxes. Je pense avoir raison d'utiliser Add Name, mais je ne pense pas utiliser la bonne syntaxe.

J'ai démarré avec l'enregistreur de macro :

Sub Macro2()
Range("A1").Select
ActiveCell.FormulaR1C1 = "MR000"
Range("B1").Select
ActiveWorkbook.Names.Add Name:="MR000", RefersToR1C1:="=Feuil1!R1C1"
End Sub

Mais je n'arrive pas à automatiser...

 

Vote positif 0 Vote négatif

L

Lord Nelson

Guest

• 14 Décembre 2004

• #4

Salut Pascal et José,

Voici une procédure pour nommer tes cellules de la colonne B en fonction du contenu de la colonne A :

Sub NommerCellules()
Dim CL As Range
Dim Temp As String
Dim DerLigne As Long
DerLigne = Range("A65536").End(xlUp).Row
For Each CL In Range("A1:A" & CStr(DerLigne))
Temp = "=" & ActiveSheet.Name & "!" & Range("B" & CL.Row).Address
ActiveWorkbook.Names.Add Name:=CL.Text, RefersTo:=Temp
Next
End Sub

Cette procédure marche pour les appellations en MR ou SP. En revanche, ça ne passe pas pour AM car AM correspond à une colonne d'Excel.
Tu peux régler le problème en révisant ta nomenclature (éviter les noms qui vont de AA jusqu'à IV) ou bien en ajoutant systématiquement un caractère à celle-ci, par exemple un X :
XMR001, XSP001, XAM001...
Comme ceci :
ActiveWorkbook.Names.Add Name:="X" & CL.Text, RefersTo:=Temp

A+
Horatio

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 14 Décembre 2004

• #5

Re Pascal,

En fait c'est le contraire que tu veux faire ? Tu veux nommer chaque cellule de la colonne B du nom inscrit en colonne A s'il est renseigné, c'est ça ?

J'attends ta confirmation avant de me lancer.

A+

José

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 14 Décembre 2004

• #6

Oups ! Bonjour Horatio,

Je n'avais pas rafraîchi...
Je vois que tu as mieux compris que moi. Bravo.

A+

José

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 14 Décembre 2004

• #7

Merci Nelson,

Et Merci pour l'info sur AM, je ne savais pas qu'il pouvait y avoir ces conflits.

José, oui je souhaite nommer colonne B à l'aide des noms contenus dans la colonne A. Je vais tester la macro proposée par Nelson...

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 14 Décembre 2004

• #8

Terrible Nelson ! Ca marche !
Juste une dernière question à quoi sert CStr ? dans l'instruction suivante Range("A1:A" & CStr(DerLigne)).

Merci à tous

 

Vote positif 0 Vote négatif

L

Lord Nelson

Guest

• 14 Décembre 2004

• #9

Re Pascal,

CStr est une fonction de conversion d'une donnée numérique en chaîne de caractères. Ici elle n'est pas indispensable car VBA fait la conversion tout seul, disons que c'est un vieux réflexe de programmeur (ou un réflexe de vieux programmeur !).

A+
Horatio

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 14 Décembre 2004

• #10

Merci !

Je vais essayer d'aquérir quelques réflexes de programmeur...

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 14 Décembre 2004

• #11

Salut "Pascal"
bonjour"jmps et l'amiral"
depuis ce matin je me demandais pourqoui cà bugger à partir de 150 noms
je me suis dis que peut être le nombre de plages nommées était limité mais non !!!!jamais je n'aurais pensé au réf Colonnes
donc un long moment passé à tourner le problème dans tout les sens
mais j'ai quand même appris pas mal de choses
je ne joint rien ,puisque ma procedure et sensiblement la même que celle de l'Amiral
merci
A+++
Jean Marie

 

Vote positif 0 Vote négatif