Appliquer Formule avec VBA
Bonjour à tous,
Je souhaite appliquer la formule suivante aux cellules de d'une colonne :
=INDIRECT(CELLULE("contenu";V10)&"!"&"X10")
Cette formule me permet d'aller chercher une info dans la cellule X10 de la feuille portant le nom de la cellule V10 et de l'écrire dans la feuille 1
Je souhaite appliquer cette formule sur l'ensemble des cellules de la colonne de la feuille 1.
Le problème est que si je copie et colle cette formule sur l'ensemble des cellules, l'information de cellule "V10" change bien en fonction de la ligne (V10, V11, V12...) mais "X10" reste X10 alors qu'il devrait également s'adapter au numéro de ligne.
Pour cela j'ai pensé passer par VBA avec une boucle pour i allant de 7 à 200, appliquer "=INDIRECT(CELLULE("contenu";Vi)&"!"&"Xi")
Voici le code écrit mais qui ne fonctionne pas:
Sub Copier_formule()
For i= 1 To 200
Sheets.("Feuille1").Range("X7:X200").Formulalocal "=INDIRECT(CELLULE("contenu";Vi)&"!"&"Xi")"
Next
En Sub
L'erreur peut être basique car je ne connais pas vraiment le VBA. Avez vous une idée...?
Merci pour votre aide
Bonjour,
Tu peux garder ta formule et la modifier pour que X10 s'adapte au numéro de ligne
Exemple avec la première formule en A1 :
=INDIRECT(CELLULE("contenu";V10)&"!"&"X"& LIGNE()+9)A+
Ahh mercii!!
ça ne fonctionnait pas avec &LIGNE()+9 mais j'ai mis &LIGNE(V10) et là ca marche à merveille!
Merci beaucoup
Bonne journée!