Bonjour,
Ci-dessous une macro enregistrée de la manip copier coller une info d'une autre feuille. je souhaites répéter ceci avec une base de 31 feuille, comment dois-je écrire cette action a réperter.
d'avance merci bcp
ActiveCell.FormulaR1C1 = "='31'!R[1]C[48]"
Range("C4").Select
ActiveCell.FormulaR1C1 = "='31'!R[13]C[47]"
Range("D4").Select
ActiveCell.FormulaR1C1 = "='31'!R[3]C[46]"
Range("E4").Select
ActiveCell.FormulaR1C1 = "='31'!R[5]C[45]"
Range("F4").Select
ActiveCell.FormulaR1C1 = "='31'!R[6]C[44]"
Range("G4").Select
ActiveCell.FormulaR1C1 = "='31'!R[7]C[43]"
Range("H4").Select
ActiveCell.FormulaR1C1 = "='31'!R[8]C[42]"
Range("I4").Select
ActiveCell.FormulaR1C1 = "='31'!R[9]C[41]"
Range("J4").Select
ActiveCell.FormulaR1C1 = "='31'!R[10]C[40]"
Range("K4").Select
ActiveCell.FormulaR1C1 = "='31'!R[11]C[39]"
Range("L4").Select
ActiveCell.FormulaR1C1 = "='31'!R[12]C[38]"
Range("L5").Select
End Sub
Ci-dessous une macro enregistrée de la manip copier coller une info d'une autre feuille. je souhaites répéter ceci avec une base de 31 feuille, comment dois-je écrire cette action a réperter.
d'avance merci bcp
ActiveCell.FormulaR1C1 = "='31'!R[1]C[48]"
Range("C4").Select
ActiveCell.FormulaR1C1 = "='31'!R[13]C[47]"
Range("D4").Select
ActiveCell.FormulaR1C1 = "='31'!R[3]C[46]"
Range("E4").Select
ActiveCell.FormulaR1C1 = "='31'!R[5]C[45]"
Range("F4").Select
ActiveCell.FormulaR1C1 = "='31'!R[6]C[44]"
Range("G4").Select
ActiveCell.FormulaR1C1 = "='31'!R[7]C[43]"
Range("H4").Select
ActiveCell.FormulaR1C1 = "='31'!R[8]C[42]"
Range("I4").Select
ActiveCell.FormulaR1C1 = "='31'!R[9]C[41]"
Range("J4").Select
ActiveCell.FormulaR1C1 = "='31'!R[10]C[40]"
Range("K4").Select
ActiveCell.FormulaR1C1 = "='31'!R[11]C[39]"
Range("L4").Select
ActiveCell.FormulaR1C1 = "='31'!R[12]C[38]"
Range("L5").Select
End Sub