Changer R[],C[] en cells(r,c)

Fermé
clémentine - 30 janv. 2007 à 16:22
 clémentine - 1 févr. 2007 à 12:04
Bonjour,
je reste bloquée sur ce problème:
J'ai enregistré une macro, en faisant sur excel en A1 par exemple
"=+Feuil1!D108"
Cela me donne:

Range("A1").Select
ActiveCell.FormulaR1C1 = "=+Feuil1!R[107]C[3]"

Jusque là, tout va bien..
alors, je voudrais savoir
-soit, comment on fait pour "transformer" sous VBA le "R[107]C[3]", en ("D108"), ou Cells(108,4)
-soit, comment on fait pour écrire sous VBA directement cette formule? ("=+Feuil1!R[107]C[3]")

J'ai besoin de savoir, parce que, la valeur que j'ai besoin de copier va varier en fonction de la cellule ou elle se trouve.
J'ai crée une variable "J", et j'aurais besoin d'écrire sous VBA:
Range("A1")=+Feuil1!(cells(J,4))
Alors, forcément.. cette formule ne marche pas...
J'espère que j'ai été claire.. je débute sur VBA, et c'est la première fois que je pose une question dans ce forum!
J'espère que quelqu'un pourra m'aider!
Merci

ps: je ne veux pas faire de "copier-coller", car j'ai besoin de faire glisser ma cellule par la suite... pour obtenir dans la colonne A1, les valeurs de ma colonne D de la feuil1, et ce à partir de la ligne 108 (J)
A voir également:

1 réponse

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
30 janv. 2007 à 21:28
Salut,

et c'est la première fois que je pose une question dans ce forum!

D'abord soit bienvenue :-))

J'ai crée une variable "J", et j'aurais besoin d'écrire sous VBA:
Range("A1")=+Feuil1!(cells(J,4))

essaie avec (Range("A1") est sur quelle feuille? )
Range("A1")=Sheets("Feuil1").Cells(108,4)

0
Merci pour ton aide..
Le problème avec cette solution, c'est que ça n'a pas exactement la même valeur que:
=+Feuil1!(cells(J,4))
Enfin.. on ne peut pas faire défiler ensuite (sinon le défilement représente toujours la valeur de cells("J,4")!
Mais j'ai bidouillé autre chose, qui n'a rien à voir!
Ca marche, mais bon.. sur excel y'a plus écrit les formules...
bref!
merci pour ton aide!
0