Bonjour à tous,
Je désire faire une matrice,
Je voudrais créer une macro pour que cela se face automatiquement
EX: ici celle-ci va de B à I
mais, j'aimerais que cela soit conditionelle à si il y a une valeur dans la ligne 1 de la colonne
voici une partie du code
merci
Je désire faire une matrice,
Je voudrais créer une macro pour que cela se face automatiquement
EX: ici celle-ci va de B à I
mais, j'aimerais que cela soit conditionelle à si il y a une valeur dans la ligne 1 de la colonne
voici une partie du code
Code:
Sub Macro12()
'
' Macro12 Macro
'
'
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RtnVsM!RC <> """",SUMPRODUCT(Decay!R2C2:OFFSET(Decay!R1C2,NbRtn,0),RtnVsM!RC2:OFFSET(RtnVsM!R[-1]C2,NbRtn,0),RtnVsM!RC:OFFSET(RtnVsM!R[-1]C,NbRtn,0)), """")"
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RtnVsM!R[-1]C <> """",SUMPRODUCT(Decay!R2C2:OFFSET(Decay!R1C2,NbRtn,0),RtnVsM!R[-1]C3:OFFSET(RtnVsM!R[-2]C3,NbRtn,0),RtnVsM!R[-1]C:OFFSET(RtnVsM!R[-2]C,NbRtn,0)),"""")"
Range("D4").Select
ActiveCell.FormulaR1C1 = _
"=IF(RtnVsM!R[-2]C <> """",SUMPRODUCT(Decay!R2C2:OFFSET(Decay!R1C2,NbRtn,0),RtnVsM!R[-2]C4:OFFSET(RtnVsM!R[-3]C4,NbRtn,0),RtnVsM!R[-2]C:OFFSET(RtnVsM!R[-3]C,NbRtn,0)),"""")"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RtnVsM!R[-3]C <> """",SUMPRODUCT(Decay!R2C2:OFFSET(Decay!R1C2,NbRtn,0),RtnVsM!R[-3]C5:OFFSET(RtnVsM!R[-4]C5,NbRtn,0),RtnVsM!R[-3]C:OFFSET(RtnVsM!R[-4]C,NbRtn,0)),"""")"
Range("F6").Select
ActiveCell.FormulaR1C1 = _
"=IF(RtnVsM!R[-4]C <> """",SUMPRODUCT(Decay!R2C2:OFFSET(Decay!R1C2,NbRtn,0),RtnVsM!R[-4]C6:OFFSET(RtnVsM!R[-5]C6,NbRtn,0),RtnVsM!R[-4]C:OFFSET(RtnVsM!R[-5]C,NbRtn,0)),"""")"
Range("G7").Select
ActiveCell.FormulaR1C1 = _
"=IF(RtnVsM!R[-5]C <> """",SUMPRODUCT(Decay!R2C2:OFFSET(Decay!R1C2,NbRtn,0),RtnVsM!R[-5]C7:OFFSET(RtnVsM!R[-6]C7,NbRtn,0),RtnVsM!R[-5]C:OFFSET(RtnVsM!R[-6]C,NbRtn,0)),"""")"
Range("H8").Select
ActiveCell.FormulaR1C1 = _
"=IF(RtnVsM!R[-6]C <> """",SUMPRODUCT(Decay!R2C2:OFFSET(Decay!R1C2,NbRtn,0),RtnVsM!R[-6]C8:OFFSET(RtnVsM!R[-7]C8,NbRtn,0),RtnVsM!R[-6]C:OFFSET(RtnVsM!R[-7]C,NbRtn,0)),"""")"
Range("I9").Select
ActiveCell.FormulaR1C1 = _
"=IF(RtnVsM!R[-7]C <> """",SUMPRODUCT(Decay!R2C2:OFFSET(Decay!R1C2,NbRtn,0),RtnVsM!R[-7]C9:OFFSET(RtnVsM!R[-8]C9,NbRtn,0),RtnVsM!R[-7]C:OFFSET(RtnVsM!R[-8]C,NbRtn,0)),"""")"
Range("I10").Select
End Sub
merci