Discussion :

[lipaika]

Bonjour,


J'utilise des formules dans lesquelles j'aimerais non pas afficher les cellules mais des noms. J'utilise donc le define/apply Names.

Pour définir le nom à une cellule donnée :

Code :

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

1
2
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:= _
        "=" & feuil & "!" & ActiveCell.Address(ReferenceStyle:=xlR1C1)

Pour l'appliquer à une plage de cellules :

Code :

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

Selection.ApplyNames Names:=Array(nom)

Quand les éléments de la formule se trouvent dans la même feuille, la formule s'affihe bien en mode texte, mais quand j'applique le nom sur une autre feuille de calcul, il ne l'applique pas, donc je me retrouve avec des cellules de type :

Code :

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

"=Traffic!C3/mon_text"

Puis-je contourner ce petit problème?

Merci

[ouskel'n'or]

Je ne suis pas sûr d'avoir compris ton problème mais, pour utiliser un nom de cellule ou de plage dans une formule, tu ne dois pas désigner la feuille. Le nom est solidaire du Workbook, pas d'une feuille. Donc, tu peux l'utiliser tel quel n'importe où dans le classeur.
Mais est-ce bien ton pb ?
Tu dis
A+

[lipaika]

Mon problème, c'est que les formules ont été saisies avant que les noms soient définis. Si je resaisie la formule par coup de clics, alors le nom s'affiche bien. Mais si je veux appliquer le nom voulu sur la formule, rien à faire, il ne le reconnaît pas...

ex pour être plus concrête :
j'ai une feuille Traffic où je définis : ind1 dans C1 et ind2 dans 2
dans une feuille Network, je définis : ind3 "=Traffic!C1/Traffic!C2"
je nomme C1 par ind1 et C2 par ind2.
je veux pouvoir appliquer les noms ainsi définis sur la feuille network et ainsi avoir : ind3 "=ind1/ind2"

Mais ça bugue.

Si vous avez la solution...
Merci

[ouskel'n'or]

Comment insères-tu tes formules ? Le code ?
A+

Edit
Manuellement, ça ne fonctionne pas non plus ?

[SfJ5Rpw8]

Code :

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

1
2
3
4
5
6
 
Sub MonTest()
 [C1].Name = "ind1"
 [C2].Name = "ind2"
 [C3].Formula = "=ind1/ind2"
End Sub

tu peu aussi remplacer la notation de style [C1] par range("C1") .. (ou mieux en précisant le classeur et la feuille...