[VBA-E][Débutant] Autofill sans référence fixe

Bonjour, je souhaiterais pouvoir tirer une formule dans un tableau sans que la référence ne soit fixe. Mon problème vient du fait que le programme va chercher des informations dans un autre fichier...

Exemple :

Code:

---

1 2 3 4 5 6 7 8

Range("E11").Select ActiveCell.FormulaR1C1 = _ "=RC[-1]*'[toto.xls]tata'!R12C10/'[toto.xls]tata'!R12C9" Range("E11").Select Selection.AutoFill Destination:=Range("E11:E20"), Type:=xlFillDefault Range("E11:E20").Select Range(Selection, Selection.End(xlToRight)).Select Selection.FillRight

---

En fait la référence R12C10 fixe la formule comme si on mettait des dollars. Du coup le AutoFill ne permet pas de passer aux colonnes et lignes suivantes.

Je ne sais pas si j'ai été clair, et surtout ce programme doit être très loin d'être optimisé... mais j'espère que quelqu'un pourra m'aiguiller :-)

Bon je n'ai pas vérifié mais je crois me souvenir que Autofill n'accepte pas

Citation:

---

Range(Cells(NoLigne1,NoCol1),Cells(NoLigne2,NoCol2))

---

Ce que tu peux faire, c'est trouver l'adresse de ta plage
Où NoLigne2 et NoCol2 sont les dernières ligne et colonne de ta plage :

Code:

---

1 2	Plage = Range(Cells(NoLigne1,NoCol1),Cells(NoLigne2,NoCol2)).address Selection.AutoFill Destination:=Range(Plage), Type:=xlFillDefault

---

Mais fais aussi l'essai avec

Code:

---

Selection.AutoFill Destination:=Range(Cells(NoLigne1,NoCol1),Cells(NoLigne2,NoCol2)), Type:=xlFillDefault

---

Si c'est accepté, ça t'évite une variable.

Ouh la la soit je n'ai vraiment pas compris comment ça fonctionne, soit ma question était mal posée car il ne me semble pas que ce soit ça que je cherche à faire...

Je vais essayer d'être plus précis.

En fait j'ai un tableau compris dans la plage D11:R20. La colonne D contient une partie des informations initiales à partir desquelles on va pouvoir effectuer le calcul. Les autres informations se trouvent dans un fichier nommé Toto.xls, dans une plage de données située de I8 à W21.

Je voudrais remplir la première case, E11, à partir des informations contenue dans D11 et celles contenues dans Toto.xls, dans la feuille Tata, aux endroits J12 et I12.

Mon code donne ceci :

Code:

---

1 2 3

Range("E11").Select ActiveCell.FormulaR1C1 = _ "=RC[-1]*'[Toto.xls]Tata'!R12C10/'[Toto.xls]Tata'!R12C9"

---

Ce qui produit cette formule-ci :

Code:

---

"=D11* '[Toto.xls]Tata'!$J$12/'[Toto.xls]Tata'!$I$12"

---

Après, je voudrais tirer cette formule en bas, jusqu'à la ligne 20 et à droite jusqu'au bout, cad la colonne R (ou 18 en nombre), mais sans qu'il y ait les dollars qui empêchent la prise en compte des bonnes colonnes et lignes dans le fichier Toto.

Du coup, lors de mon premier "étirement" :

Code:

---

Selection.AutoFill Destination:=Range("E11:E20"), Type:=xlFillDefault

---

comme il y a les dollars je n'arrive pas çà la formule voulue qui serait, pour la ligne suivante par exemple :

Code:

---

"=D12*'[Toto.xls]Tata'!J13/'[Toto.xls]Tata'!I13"

---

En fait je pense que mon problème vient de mon référencement initial des cellules du fichier Toto.xls. La dénomination R12C10 semble statique. N'y-a-t-il pas moyen de faire quelque chose là-dessus ?

Et avec :

Code:

---

1 2 3 4 5 6

[e11] = Application.ConvertFormula( _ Formula:="=RC[-1]*[Toto.xls]Tata!R12C10/[Toto.xls]Tata!R12C9", _ fromReferenceStyle:=xlR1C1, toReferenceStyle:=xlA1, _ toabsolute:=xlRelative, relativeto:=[e11]) [e11].AutoFill Destination:=[e11:e20], Type:=xlFillDefault Range([e11], [e20].End(xlToRight)).FillRight

---

Après quelques atermoiments et des erreurs d'inattention... ça marche !!! Merci beaucoup :)

En fait il manquait juste les ' pour identifier les cellules du fichier Toto

Code:

---

1 2 3 4 5 6

[e11] = Application.ConvertFormula( _ Formula:="=RC[-1]*'[Toto.xls]Tata'!R12C10/'[Toto.xls]Tata'!R12C9", _ fromReferenceStyle:=xlR1C1, toReferenceStyle:=xlA1, _ toabsolute:=xlRelative, relativeto:=[e11]) [e11].AutoFill Destination:=[e11:e20], Type:=xlFillDefault Range([e11], [e20].End(xlToRight)).FillRight

---