Discussion :

[electrons]

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 :

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

"=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 :

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

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.

[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

[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 :

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

ActiveCell.FormulaR1C1 = "=IF(RC[-3]<>"""",DonneesPerso!R[-2]C,"""")"

[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 :

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

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

[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

[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 :

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

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

j'ai bien dans la cellule E6 ma formule :

Code :

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

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

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

Ou est l'erreur?

Merci pour votre réponse