Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Simplifier macro

Simplifier macro

2 réponses
Avatar
Octave
Bonjour à tous,

Je cherche, j'explore, j'arrive à trouver mais je suis toujours débutant.
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :

Merci d'avance
Octave

Sub Macro4()

Range("B8:E8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G8:J8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L8:O8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q8:T8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V8:Y8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA8:AD8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF8:AI8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK8:AN8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP8:AS8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU8:AX8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B14:E14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G14:J14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L14:O14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q14:T14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V14:Y14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA14:AD14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF14:AI14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK14:AN14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP14:AS14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU14:AX14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B20:E20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G20:J20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L20:O20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q20:T20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V20:Y20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA20:AD20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF20:AI20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK20:AN20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP20:AS20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU20:AX20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B26:E26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G26:J26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L26:O26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q26:T26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V26:Y26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA26:AD26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF26:AI26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK26:AN26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP26:AS26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU26:AX26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B32:E32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G32:J32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L32:O32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q32:T32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V32:Y32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA32:AD32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF32:AI32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK32:AN32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP32:AS32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU32:AX32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B38:E38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G38:J38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L38:O38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q38:T38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V38:Y38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA38:AD38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF38:AI38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK38:AN38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP38:AS38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU38:AX38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B44:E44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G44:J44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L44:O44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q44:T44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V44:Y44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA44:AD44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF44:AI44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK44:AN44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP44:AS44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU44:AX44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B50:E50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G50:J50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L50:O50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q50:T50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V50:Y50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA50:AD50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF50:AI50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK50:AN50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP50:AS50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU50:AX50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B56:E56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G56:J56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L56:O56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q56:T56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V56:Y56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA56:AD56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF56:AI56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK56:AN56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP56:AS56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU56:AX56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Octave,

voilà,

Sub Macro1()
For i = 8 To 56 Step 6
Cells(i, 2).Formula = "=IF(R" & i + 1 & "C9=R12C56,R12C54,R12C55)"
For y = 7 To 47 Step 5
Cells(i, y).Formula = "=IF(R" & i + 1 & "C" & y + 4 &
"=R12C56,R12C54,R12C55)"
Next
Next
End Sub

isabelle


Bonjour à tous,

Je cherche, j'explore, j'arrive à trouver mais je suis toujours débutant.
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :

Merci d'avance
Octave

Sub Macro4()

Range("B8:E8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G8:J8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L8:O8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q8:T8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V8:Y8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA8:AD8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF8:AI8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK8:AN8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP8:AS8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU8:AX8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B14:E14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G14:J14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L14:O14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q14:T14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V14:Y14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA14:AD14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF14:AI14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK14:AN14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP14:AS14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU14:AX14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B20:E20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G20:J20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L20:O20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q20:T20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V20:Y20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA20:AD20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF20:AI20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK20:AN20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP20:AS20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU20:AX20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B26:E26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G26:J26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L26:O26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q26:T26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V26:Y26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA26:AD26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF26:AI26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK26:AN26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP26:AS26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU26:AX26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B32:E32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G32:J32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L32:O32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q32:T32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V32:Y32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA32:AD32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF32:AI32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK32:AN32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP32:AS32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU32:AX32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B38:E38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G38:J38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L38:O38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q38:T38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V38:Y38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA38:AD38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF38:AI38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK38:AN38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP38:AS38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU38:AX38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B44:E44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G44:J44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L44:O44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q44:T44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V44:Y44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA44:AD44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF44:AI44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK44:AN44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP44:AS44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU44:AX44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B50:E50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G50:J50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L50:O50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q50:T50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V50:Y50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA50:AD50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF50:AI50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK50:AN50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP50:AS50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU50:AX50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B56:E56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G56:J56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L56:O56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q56:T56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V56:Y56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA56:AD56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF56:AI56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK56:AN56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP56:AS56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU56:AX56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

End Sub


Avatar
isabelle
correction sur la première formule:

Sub Macro1()
For i = 8 To 56 Step 6
Cells(i, 2).Formula = "=IF(R" & i + 1 & "C6=R12C56,R12C54,R12C55)"
For y = 7 To 47 Step 5
Cells(i, y).Formula = "=IF(R" & i + 1 & "C" & y + 4 &
"=R12C56,R12C54,R12C55)"
Next
Next
End Sub

isabelle


bonjour Octave,

voilà,

Sub Macro1()
For i = 8 To 56 Step 6
Cells(i, 2).Formula = "=IF(R" & i + 1 & "C9=R12C56,R12C54,R12C55)"
For y = 7 To 47 Step 5
Cells(i, y).Formula = "=IF(R" & i + 1 & "C" & y + 4 &
"=R12C56,R12C54,R12C55)"
Next
Next
End Sub

isabelle


Bonjour à tous,

Je cherche, j'explore, j'arrive à trouver mais je suis toujours débutant.
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :

Merci d'avance
Octave

Sub Macro4()

Range("B8:E8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G8:J8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L8:O8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q8:T8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V8:Y8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA8:AD8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF8:AI8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK8:AN8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP8:AS8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU8:AX8").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B14:E14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G14:J14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L14:O14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q14:T14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V14:Y14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA14:AD14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF14:AI14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK14:AN14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP14:AS14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU14:AX14").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B20:E20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G20:J20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L20:O20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q20:T20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V20:Y20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA20:AD20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF20:AI20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK20:AN20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP20:AS20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU20:AX20").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B26:E26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G26:J26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L26:O26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q26:T26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V26:Y26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA26:AD26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF26:AI26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK26:AN26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP26:AS26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU26:AX26").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B32:E32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G32:J32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L32:O32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q32:T32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V32:Y32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA32:AD32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF32:AI32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK32:AN32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP32:AS32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU32:AX32").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B38:E38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G38:J38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L38:O38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q38:T38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V38:Y38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA38:AD38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF38:AI38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK38:AN38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP38:AS38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU38:AX38").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B44:E44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G44:J44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L44:O44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q44:T44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V44:Y44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA44:AD44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF44:AI44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK44:AN44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP44:AS44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU44:AX44").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B50:E50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G50:J50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L50:O50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q50:T50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V50:Y50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA50:AD50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF50:AI50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK50:AN50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP50:AS50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU50:AX50").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

Range("B56:E56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("G56:J56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("L56:O56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("Q56:T56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("V56:Y56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AA56:AD56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AF56:AI56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AK56:AN56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AP56:AS56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
Range("AU56:AX56").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"

End Sub