bonjour à tous et bonne année !!!
j'ai ce code qui me permet de récrire une formule dans une cellule en fonction d'un besoin avec un togglebutton!
Je pense qu'on peut le simplifier pour accélérer le processus (sachant que je dois récrire 24 plages au total)
mais je ne sais pas comment faire !!
Des idées ?
Bon week end à tous
Range("i21").FormulaLocal = "=SI((B21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(B21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("i21").AutoFill Destination:=Range("I21:I51"), Type:=xlFillValues
Range("w21").FormulaLocal = "=SI((p21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(p21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("w21").AutoFill Destination:=Range("w21:w51"), Type:=xlFillValues
Range("AK21").FormulaLocal = "=SI((AD21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(AD21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("AK21").AutoFill Destination:=Range("AK21:AK51"), Type:=xlFillValues
Range("AY21").FormulaLocal = "=SI((AR21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(AR21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("AY21").AutoFill Destination:=Range("AY21:AY51"), Type:=xlFillValues
Range("BM21").FormulaLocal = "=SI((BF21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(BF21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("BM21").AutoFill Destination:=Range("BM21:BM51"), Type:=xlFillValues
Range("CA21").FormulaLocal = "=SI((BT21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(BT21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("CA21").AutoFill Destination:=Range("CA21:CA51"), Type:=xlFillValues
Range("i58").FormulaLocal = "=SI((B58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(B58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("i58").AutoFill Destination:=Range("I58:I88"), Type:=xlFillValues
Range("w58").FormulaLocal = "=SI((p58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(p58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("w58").AutoFill Destination:=Range("w58:w88"), Type:=xlFillValues
Range("AK58").FormulaLocal = "=SI((AD58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(AD58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("AK58").AutoFill Destination:=Range("AK58:AK88"), Type:=xlFillValues
Range("AY58").FormulaLocal = "=SI((AR58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(AR58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("AY58").AutoFill Destination:=Range("AY58:AY88"), Type:=xlFillValues
Range("BM58").FormulaLocal = "=SI((BF58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(BF58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("BM58").AutoFill Destination:=Range("BM58:BM88"), Type:=xlFillValues
Range("CA58").FormulaLocal = "=SI((BT58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(BT58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("CA58").AutoFill Destination:=Range("CA58:CA88"), Type:=xlFillValues
j'ai ce code qui me permet de récrire une formule dans une cellule en fonction d'un besoin avec un togglebutton!
Je pense qu'on peut le simplifier pour accélérer le processus (sachant que je dois récrire 24 plages au total)
mais je ne sais pas comment faire !!
Des idées ?
Bon week end à tous
Range("i21").FormulaLocal = "=SI((B21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(B21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("i21").AutoFill Destination:=Range("I21:I51"), Type:=xlFillValues
Range("w21").FormulaLocal = "=SI((p21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(p21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("w21").AutoFill Destination:=Range("w21:w51"), Type:=xlFillValues
Range("AK21").FormulaLocal = "=SI((AD21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(AD21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("AK21").AutoFill Destination:=Range("AK21:AK51"), Type:=xlFillValues
Range("AY21").FormulaLocal = "=SI((AR21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(AR21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("AY21").AutoFill Destination:=Range("AY21:AY51"), Type:=xlFillValues
Range("BM21").FormulaLocal = "=SI((BF21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(BF21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("BM21").AutoFill Destination:=Range("BM21:BM51"), Type:=xlFillValues
Range("CA21").FormulaLocal = "=SI((BT21="""");"""";INDEX(CHAMPS_INDIV;EQUIV(BT21;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("CA21").AutoFill Destination:=Range("CA21:CA51"), Type:=xlFillValues
Range("i58").FormulaLocal = "=SI((B58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(B58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("i58").AutoFill Destination:=Range("I58:I88"), Type:=xlFillValues
Range("w58").FormulaLocal = "=SI((p58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(p58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("w58").AutoFill Destination:=Range("w58:w88"), Type:=xlFillValues
Range("AK58").FormulaLocal = "=SI((AD58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(AD58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("AK58").AutoFill Destination:=Range("AK58:AK88"), Type:=xlFillValues
Range("AY58").FormulaLocal = "=SI((AR58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(AR58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("AY58").AutoFill Destination:=Range("AY58:AY88"), Type:=xlFillValues
Range("BM58").FormulaLocal = "=SI((BF58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(BF58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("BM58").AutoFill Destination:=Range("BM58:BM88"), Type:=xlFillValues
Range("CA58").FormulaLocal = "=SI((BT58="""");"""";INDEX(CHAMPS_INDIV;EQUIV(BT58;DATE_INDIV;0);EQUIV(DATE1;SAISIE_INDIV;0)))"
Range("CA58").AutoFill Destination:=Range("CA58:CA88"), Type:=xlFillValues