Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…