repeter une macro

[matcri]

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

 

[PascalXLD]

Re : repeter une macro

Bonjour

Fil déplacé sur le bon forum

 

[mromain]

Re : repeter une macro

bonjour matcri, PascalXLD,

essaye avec ce code

Sub t()
Dim curSheet As Worksheet
For Each curSheet In ThisWorkbook.Sheets(Array([B][COLOR=Red]"Feuil1", "Feuil2", "Feuil3"[/COLOR][/B]))
    curSheet.[COLOR=Red][B]Range()[/B][/COLOR]..FormulaR1C1 = "='31'!R[1]C[48]"
    curSheet.Range("C4").FormulaR1C1 = "='31'!R[13]C[47]"
    curSheet.Range("D4").FormulaR1C1 = "='31'!R[3]C[46]"
    curSheet.Range("E4").FormulaR1C1 = "='31'!R[5]C[45]"
    curSheet.Range("F4").FormulaR1C1 = "='31'!R[6]C[44]"
    curSheet.Range("G4").FormulaR1C1 = "='31'!R[7]C[43]"
    curSheet.Range("H4").FormulaR1C1 = "='31'!R[8]C[42]"
    curSheet.Range("I4").FormulaR1C1 = "='31'!R[9]C[41]"
    curSheet.Range("J4").FormulaR1C1 = "='31'!R[10]C[40]"
    curSheet.Range("K4").FormulaR1C1 = "='31'!R[11]C[39]"
    curSheet.Range("L4").FormulaR1C1 = "='31'!R[12]C[38]"
Next curSheet
End Sub

il faut ajouter autant de feuille que nécessaire et compléter l'adresse de la première cellule où tu rentres une formule.

si ça concerne toutes les feuilles du classeur, alors essaye ce code :

Sub t()
Dim curSheet As Worksheet
For Each curSheet In ThisWorkbook.Sheets
    curSheet.[COLOR=Red][B]Range()[/B][/COLOR]..FormulaR1C1 = "='31'!R[1]C[48]"
    curSheet.Range("C4").FormulaR1C1 = "='31'!R[13]C[47]"
    curSheet.Range("D4").FormulaR1C1 = "='31'!R[3]C[46]"
    curSheet.Range("E4").FormulaR1C1 = "='31'!R[5]C[45]"
    curSheet.Range("F4").FormulaR1C1 = "='31'!R[6]C[44]"
    curSheet.Range("G4").FormulaR1C1 = "='31'!R[7]C[43]"
    curSheet.Range("H4").FormulaR1C1 = "='31'!R[8]C[42]"
    curSheet.Range("I4").FormulaR1C1 = "='31'!R[9]C[41]"
    curSheet.Range("J4").FormulaR1C1 = "='31'!R[10]C[40]"
    curSheet.Range("K4").FormulaR1C1 = "='31'!R[11]C[39]"
    curSheet.Range("L4").FormulaR1C1 = "='31'!R[12]C[38]"
Next curSheet
End Sub

a+