Ecrire une formule avec données variables via "FormulaR1C1 "

Version imprimable

Bonjour,

J'essaye d'écrire dans les cellules E6, E7 ....E36 une formule du style, (j'ai consulté les "FAQ" mais je n'ai rien trouvé)

Code:

"=SI(BCompteur<>"";DonnneesPerso!E4;"")"

:

avec l'utilisation d'une boucle FOR car je dois l'écrire dans dans plusieurs cellules.
J'ai écrit le code suivant en utilisant "FormulaR1C1" mais pas moyen d'exécuter la ligne "Range..." : erreur d'exécution 1004.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim JrMois As Integer Dim LgDepart As Integer Dim Compteur As Integer LgDepart = 5 JrMois = 30 For i = 1 To JrMois Compteur = LgDepart + i Range("E" & Compteur).FormulaR1C1 = "=SI(B" & Compteur & "<>BLANK;DonneesPerso!E4;"""")" Next i
Merci d'avance pour votre aide.

11/02/2014, 09h25
78chris

Bonjour

FormulaR1C1 suppose des formules avec des adresses de type RC[1]

Utilise l'enregistreur de macro pour saisir ta formule : il te traduira ta formule et tu n'auras plus qu'à la relativiser
11/02/2014, 09h47
electrons

Bonjour chris,

Merci pour la réponse,

le code suivant fonctionne avec l'enregistrement automatique adapté, mais la partie "DonneesPerso![-2]C" ne peut pas varier.

Code:

ActiveCell.FormulaR1C1 = "=IF(RC[-3]<>"""",DonneesPerso!R[-2]C,"""")"
11/02/2014, 10h59
78chris

Re

E4 est une adresse relative donc doit devenir E5, puis E6 si j'ai bien compris

Tu as R[-2]C : au fur et à mesure des lignes R[-2] descend aussi

Par ailleurs inutile de créer une boucle tu peux mettre la formule sur la plage d'un seul coup :

Code:

ActiveSheet.Range("E5:E30").FormulaR1C1 = "=IF(RC[-3]<>"""",DonneesPerso!R[-2]C,"""")"

Mais tu sembles avoir un décalage d'une ligne avec ton précédent exemple car E5 pointait sur E4
11/02/2014, 12h56
electrons

Rebonjour Chris,

Ma cellule E4 est en "adresse absolue".

Je crée une boucle "for " car la formule est exécutée dans une fonction pour
plus de 10 feuilles différentes lors d'un "raffraîchissement" des données et je n'ai pas toujours 30 cellules à modifier,
ce nombre varie selon la feuille.

Si tu as une idée pour que "DonneesPerso!R[-2]C" soit en "Absolu", elle est la bienvenue.

Encore merci.

Michel
11/02/2014, 15h09
electrons

Rebonjour,

J'ai essayé un code dans ma boucle qui a l'air de fonctionner sauf que j'ai un message d'erreur dans la cellule alors que la formule est bien copiée:

Code:

Cells(Compteur, 5).Formula = "=SI(B" & Compteur & "<>BLANK,DonneesPerso!E4,"""")"

j'ai bien dans la cellule E6 ma formule :

Code:

=SI(B6<>BLANK;DonneesPerso!E4;"")

mais avec le "#Nom?" comme résultat?

Ou est l'erreur?

Merci pour votre réponse