Calcul entre deux feuilles Excel

Résolu
lenemmasque Messages postés 33 Date d'inscription mardi 6 décembre 2005 Statut Membre Dernière intervention 23 mars 2007 - 18 janv. 2006 à 08:52
lenemmasque Messages postés 33 Date d'inscription mardi 6 décembre 2005 Statut Membre Dernière intervention 23 mars 2007 - 18 janv. 2006 à 11:09
Bonjour ! Je débute en VBA et je travaille actuellement sur un programme qui me pose problème...

Je m'explique :
- j'ai deux feuilles de calcul, la première garde le même nom ("AAA"), la seconde change de nom régulièrement ("BBB, CCC.....")
- sur ma première feuille ("AAA"), j'ai une formule du type : ActiveCell.FormulaR1C1 = "=BBB!RC"
- Mais comme le nom de ma deuxième feuille change souvent, cette formule ne fonctionne pas toujours

Vous aurez donc compris où je voulais en venir : Comment faire pour que la formule fonctionne quel que soit le nom de ma deuxième feuille ? J'ai pensé à quelque chose du genre : ActiveCell.FormulaR1C1 = "=sheets(2)!RC" mais ça ne fonctionne pas.

J'espère que vous pourrez m'aider.

Merci d'avance.

4 réponses

fohaf Messages postés 60 Date d'inscription vendredi 14 novembre 2003 Statut Membre Dernière intervention 6 septembre 2012 2
18 janv. 2006 à 10:44
pour récupérer le nom de ta feuille tu peux le faire comme ça:

Dim formule As String
formule = "=" & Sheets(2).Name & "!RC"
ActiveCell.Formula = formule
3
lenemmasque Messages postés 33 Date d'inscription mardi 6 décembre 2005 Statut Membre Dernière intervention 23 mars 2007 3
18 janv. 2006 à 11:09
Merci beaucoup : ça fontionne.
J'apporte juste une correction : il faut mettre des guillements, ce qui donne (en rouge) :
=> formule = "='" & Sheets(2).Name & "'!RC"
A +
3
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
18 janv. 2006 à 10:26
Bonjour,

Pour te référer à ta feuille 2, utilise Sheets(2), quelque soit le nom qu'elle porte à ce moment, celà n'a aucune importance.



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
0
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
18 janv. 2006 à 10:34
Re,

Excuse, j'avais pas vu que tu avais utilisés Sheets(2), a mon avis
c'est dans ton code qu'il doit avoir une erreur, laquelle ??. Je n'ai
jamais utilisé ce genre de formule, mais toujours à mon avis pour ce
référer à une feuille, c'est par le nom de celle-ci qu'il faut
commencer.



jpleroisse
0