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

grhum29

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

Code:
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.
 

Pièces jointes

  • CRTEST_V3.0.xlsm
    86.3 KB · Affichages: 35
  • test.zip
    432 bytes · Affichages: 20
  • test.zip
    432 bytes · Affichages: 19
  • test.zip
    432 bytes · Affichages: 23
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal