Discussion :

[Pierrotdev]

Bonjour,
J'ai deux classeurs Excel. Dans le premier j'ai nommé dynamiquement des cellules, j'aimerai écrire le nom de ces cellules dans des cellules du deuxième classeur (Pas les nommer, écrire le nom dedans).

Malheureusement, je n'arrive pas à trouver la bonne syntaxe :

Code :

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

1
2
 
Workbooks(ThisFile).Worksheets("Row Cost").Cells(Ligne, CoNom).Value = Workbooks(Côut).Worksheets("Planning").Cells(LiCôut, CoTotal).Name

m'écrit dans le nom des cellules :

Code :

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

='Row Cost'!$I$71

Quel syntaxe dois-je utiliser pour avoir le nom d'une cellule comme valeur d'une autre cellule ?

Merci.

[jfontaine]

Bonjour,

Tu n'es pas tres loin, remplace le .name par .value

Bon courage

[david_atx]

si c'est des noms du types noms de liste (qui apparaisse a gauche de la barre de formule a la place de l'adresse de la cellule) essaye value2 a la place de name

[Pierrotdev]

Merci pour vos réponse

Bonjour,

Tu n'es pas tres loin, remplace le .name par .value

Bon courage

Merci.
C'est le nom de la cellule que je voudrai écrire pas sa valeur

si c'est des noms du types noms de liste (qui apparaisse a gauche de la barre de formule a la place de l'adresse de la cellule) essaye value2 a la place de name

C'est bien ceux la, mais value2 m'écrit aussi la valeur de la cellule

[david_atx]

bizzare moi ca me donne bien le label ...
es tu sur que les names de tes cellules sont bien implémentés ?

Pouraris tu nous montrer comment tu les nommes ?

[Pierrotdev]

Je pense, car lorsque je sélectionne la cellule, la cellule à gauche de la barre de formule contient bien le nom

Code :

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

1
2
Nom = Monnai & "_" & WP_Code & "_" & Left(Ndc, 3) & "_" & Cost_Center
Workbooks(ThisFile).Worksheets("Row Cost").Cells(Ligne,CoTotal).Name = Nom

et j'ai changé en :

Code :

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

Workbooks(ThisFile).Worksheets("Planning").Cells(Ligne, CoNom).Value = Workbooks(Côut).Worksheets("Row Cost").Cells(LiCost, CoTotal).Value2

[jfontaine]

J'avais pas bien lu la question

Essai comme ca, ca devrait fonctionner

Code :

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

1
2
 
Workbooks(ThisFile).Worksheets("Row Cost").Cells(Ligne, CoNom).Value = Workbooks(Côut).Worksheets("Planning").Cells(LiCôut, CoTotal).Name.NameLocal

[Pierrotdev]

J'avais pas bien lu la question

Essai comme ca, ca devrait fonctionner

Code :

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

1
2
 
Workbooks(ThisFile).Worksheets("Row Cost").Cells(Ligne, CoNom).Value = Workbooks(Côut).Worksheets("Planning").Cells(LiCôut, CoTotal).Name.NameLocal

Merci, c'est la bonne syntaxe !