Discussion :

[tritri38]

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 :

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

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

et pour lire

Code :

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

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?

[bidou]

Range("toto").Value maybe

[Megaxel]

Oui, y'a plus simple:

Code :

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

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

Oups: salut Bidou !

[tritri38]

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 :

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

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

[tritri38]

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 :

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

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

on est obligé de choisir UNE feuille.


Je vais essayer de trouver une finte

un grand merci a vous

++

[random]

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