[Annulé] - Etendre une formule sur plusieurs lignes et colonnes en VBA

[grhum29]

Bonjour,

Je travaille actuellement sur un fichier Excel qui importe un fichier CSV dans un premier temps puis traite les données dans différents tableaux via du code VBA.

Je rencontre un problème sur lequel je bloque. Je souhaite étendre une formule à plusieurs lignes et colonnes dans un tableau sachant que le nombre de lignes et de colonnes varient en fonction du nombre de lignes importées via le fichier CSV.

J'ai donc cette formule qui me renseigne les lignes à partir de la cellule B4 (feuille detailconso) :

Set PlgRé6 = Feuil4.[A4].Resize(Feuil4.[A65000].End(xlUp).Row - 3, 13)
    Set PlgRé7 = Feuil1.[C2].Resize(Feuil1.[C65000].End(xlUp).Row - 1, 1)
    
    PlgRé6.Columns(2).FormulaR1C1 = "=IFERROR(((SUMIFS(BASE!R2C12:R" & PlgRé7.Rows.Count + 1 & "C12,BASE!R2C3:R" & PlgRé7.Rows.Count + 1 & "C3,DETAILCONSO!RC1,BASE!R2C4:R" & PlgRé7.Rows.Count + 1 & "C4,DETAILCONSO!R3C)*100)/(SUMIFS(BASE!R2C10:R" & PlgRé7.Rows.Count + 1 & "C10,BASE!R2C3:R" & PlgRé7.Rows.Count + 1 & "C3,DETAILCONSO!RC1,BASE!R2C4:R" & PlgRé7.Rows.Count + 1 & "C4,DETAILCONSO!R3C))),""0,00"")"

Ce que je souhaite c'est donc que cette formule soit recopiée dans toutes les celulles où il y a des données dans la colonne A et la ligne 3 (pour cet exemple : les cellules C4 : D7).

Je vous mets en pièces jointes le fichier EXCEL (.xlsm) et le fichier CSV en exemple.


Merci de votre aide. En espérant avoir été clair...

grhum29.

 

[grhum29]

Re : Etendre une formule sur plusieurs lignes et colonnes en VBA

Bonjour à tous,

Y a t'il quelqu'un qui peut me mettre sur la piste parce que je ne m'en sors pas.

Merci,

Grhum29