nommage de cellule et utilisation dans macro

j'ai de gros soucis avec le nommage de cellules Excel et l'utilisation de ces noms dans les macros.

Ce que je voudrai, c'est tout simplement donner un nom à une cellule de mon classeur,prenons par exemple cellule A1 nommé "toto", et ensuite pouvoir lire et ecrire dans la cellule que j'aurai appelé toto grâce a une macro.

pour l'instant pour ecrire, je fais :

Code:

---

1 2 3

Application.Goto Reference:=ActiveWorkbook.Names("toto") ActiveCell.Value = nouvelle valeur

---

et pour lire

Code:

---

1 2 3

Application.Goto Reference:=ActiveWorkbook.Names("toto") variable = ActiveCell.Value

---

mais je pense (j'espère) qu'il doit y avoir un moyen + simple (sans goto)
du style
ActiveWorkbook.Names("toto").value = nouvelle valeur

quelqu'un a une idée?

Range("toto").Value maybe

Oui, y'a plus simple:

Code:

---

ActiveWorkbook.ActiveSheet.Range("toto").Value = "lkjlskfjs"

---

Oups: salut Bidou !
:D

ok maintenant on complique l'affaire
je voudrai lire ce qu'il y a dans tout les noms de ma feuille


donc je fait une boucle sur ActiveWorkbook.Names

Code:

---

1 2 3 4 5

For Each Nm In ActiveWorkbook.Names   ActiveWorkbook.ActiveSheet.Range(Nm.Name).Value = "fdsfd" Next Nm

---

mais evidemment sa ne marche pas :(

a si en fait ca marche,

le problème c'est que j'ai des nom qui sont sur des feuille differente, et avec

Code:

---

1 2	ActiveWorkbook.ActiveSheetRange(......

---

on est obligé de choisir UNE feuille.


Je vais essayer de trouver une finte

un grand merci a vous

++

Application.Goto Reference:="toto"
selection.value="toto"