Bonjour à tous,
Je suis en galère avec un "For... To... Next" pour une partie de ma macro.
Le but de la macro est de remettre en horizontal des informations que j'ai à la verticale.
Tout va bien, ma macro fonctionne sauf que... j'ai environ 500 colonnes à construire. J'aimerais donc ne pas faire trop de lignes de code pour éviter de surcharger mes modules.
J'aimerais donc que vous m'aidiez à retravailler cette partie de mon code :
J'aimerais qu'à chaque nouvelle colonne "X", le fichier aille rechercher la donnée de la colonne I, puis pour la colonne X+1 aller rechercher la donnée dans la colonne J, puis X+2 aller chercher dans la colonne K etc... Sans faire une ligne de code par colonne.
Merci beaucoup pour votre aide!
Hx.
Je suis en galère avec un "For... To... Next" pour une partie de ma macro.
Le but de la macro est de remettre en horizontal des informations que j'ai à la verticale.
Tout va bien, ma macro fonctionne sauf que... j'ai environ 500 colonnes à construire. J'aimerais donc ne pas faire trop de lignes de code pour éviter de surcharger mes modules.
J'aimerais donc que vous m'aidiez à retravailler cette partie de mon code :
VB:
Sheets("PR_Chg").Cells(i, x) = WorksheetFunction.SumIfs(Worksheets("SAP").Range("I:I"), Worksheets("SAP").Range("E:E") _
, Worksheets("PR_Chg").Cells(i, 5), Worksheets("SAP").Range("G:G"), "marque", Worksheets("SAP").Range("A:A") _
, Cells(i, 1), Worksheets("SAP").Range("C:C"), Cells(i, 3), Worksheets("SAP").Range("F:F"), Worksheets("PR_Chg").Cells(i, 6))
J'aimerais qu'à chaque nouvelle colonne "X", le fichier aille rechercher la donnée de la colonne I, puis pour la colonne X+1 aller rechercher la donnée dans la colonne J, puis X+2 aller chercher dans la colonne K etc... Sans faire une ligne de code par colonne.
Merci beaucoup pour votre aide!
Hx.