Discussion :

[Alqualonde]

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 :

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

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

[ouskel'n'or]

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

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 :

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

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 :

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

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

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

[Alqualonde]

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 :

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

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 :

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

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

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

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 :

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

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

[dadavyvy]

Et avec :

Code :

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

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

[Alqualonde]

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 :

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

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