jlbcall
XLDnaute Occasionnel
Bonjour à tous,
J'ai une base de données de la colonne A à AM
Je vais devoir valoriser ces données en les multipliant par un nombre de jours par mois.
Les mois se trouvant de la colonne AN à AY (12 mois).
Dans la première étape de ma marco je souhaiterais donc mettre des entêtes.
Je concatène donc le mois exemple Janvier avec les 18 colonnes dont j'ai besoin.
Pour le mois de Janvier ma macro fait cela ci dessous. Pour éviter de refaire les même formules pour les 11 autres mois je voudrais faire une boucle qui reprenne les même colonne mais avec le mois de Février , puis mars etc...
Je concatène à chaque fois le mois et les 18 autres colonnes
si quelqu'un peut me proposer une solution merci
Sub ValorisationUO()
Range("AZ1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-12],R1C18)"
Range("BA1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-13],R1C19)"
Range("Bb1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-14],R1C22)"
Range("BC1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-15],R1C23)"
Range("BD1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-16],R1C24)"
Range("BE1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-17],R1C25)"
Range("BF1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-18],R1C26)"
Range("BG1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-19],R1C27)"
Range("BH1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-20],R1C28)"
Range("BI1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-21],R1C29)"
Range("BJ1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-22],R1C30)"
Range("BK1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-23],R1C31)"
Range("BL1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-24],R1C32)"
Range("BM1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-25],R1C33)"
Range("BN1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-26],R1C33)"
Range("BN1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-26],R1C34)"
Range("BO1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-27],R1C35)"
Range("BP1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-28],R1C36)"
Range("BQ1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-29],R1C37)"
Range("AZ1").Select
End Sub
J'ai une base de données de la colonne A à AM
Je vais devoir valoriser ces données en les multipliant par un nombre de jours par mois.
Les mois se trouvant de la colonne AN à AY (12 mois).
Dans la première étape de ma marco je souhaiterais donc mettre des entêtes.
Je concatène donc le mois exemple Janvier avec les 18 colonnes dont j'ai besoin.
Pour le mois de Janvier ma macro fait cela ci dessous. Pour éviter de refaire les même formules pour les 11 autres mois je voudrais faire une boucle qui reprenne les même colonne mais avec le mois de Février , puis mars etc...
Je concatène à chaque fois le mois et les 18 autres colonnes
si quelqu'un peut me proposer une solution merci
Sub ValorisationUO()
Range("AZ1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-12],R1C18)"
Range("BA1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-13],R1C19)"
Range("Bb1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-14],R1C22)"
Range("BC1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-15],R1C23)"
Range("BD1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-16],R1C24)"
Range("BE1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-17],R1C25)"
Range("BF1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-18],R1C26)"
Range("BG1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-19],R1C27)"
Range("BH1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-20],R1C28)"
Range("BI1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-21],R1C29)"
Range("BJ1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-22],R1C30)"
Range("BK1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-23],R1C31)"
Range("BL1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-24],R1C32)"
Range("BM1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-25],R1C33)"
Range("BN1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-26],R1C33)"
Range("BN1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-26],R1C34)"
Range("BO1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-27],R1C35)"
Range("BP1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-28],R1C36)"
Range("BQ1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-29],R1C37)"
Range("AZ1").Select
End Sub