Discussion :

[dar06]

Bonjour,
Voici la problématique.
J'ai une feuille excel dans laquelle sont définis des nom des cellules qui servent (toujours sur la meme feuille) dans des formules.
Le problème c'est qu'il n'est pas possible de copier cette feuille tout en gardant les nom des cellules.
Je cherche donc un moyen, en vba, de remplacer dans une formule le nom d'une cellule par sa position absolue (LxCy) dans la feuille et que cela se fasse pour tous les noms définis dans la feuille.
Merci par avance de votre aide.

[Invité]

Ecris ta formule dans une cellule Excel en lui donnant la position absolut.

Passe dans vb [Alt] + [F11]

Ouvres la fenêtre d’exécution [CTRL] +[G]
Ecris

Code la fenêtre d’exécution :

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

 ?Range("b2").FormulaR1C1' et [Enter]

[dar06]

Bonjour,
Merci pour la réponse mais cela ne répond pas à la demande initiale.
je vais essayer d'être plus précis.

Dans une feuille excel, j'ai des cellules qui ont été nommées (par exemple : E18 s'appelle perte).
Dans ma macro, l'avantage est que, quand je créé des tableaux de différentes tailles dans cette meme feuille je peux rappeler dans une formule (exemple: =perte) la cellule E18 et ansi éviter de savoir ou elle se trouve par rapport à la cellule où est écrite la formule.

Une fois la feuille de résultats ainsi créée, j'ai dans cette feuille des cellules qui ont été renommées et des cellules qui contiennent des formules faisant appel à ces nouveaux noms.

J'aurai aimé savoir s'il est possible avec une macro vba, de supprimer les noms des cellules (je pense avoir trouvé comment faire) mais aussi de remplacer dans les différentes formules contenues dans la feuille excel les noms des cellules par leur position absolue dans la feuille (exemple : =perte par =E18).

J'espère avoir été plus clair.

Merci encore pour votre aide.

[AlainTech]

Bonjour,

J'ai du mal à comprendre le but de cette manoeuvre qui va à l'encontre de l'intérêt de l'usage des Ranges nommés mais bon...

Essaye ceci:

Code :

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

Range("perte").Address(ReferenceStyle:=xlR1C1)

Si le style de références ne te convient pas, regarde, dans l'aide de la Propriété Address, les paramètres à changer.