T
toubib
Guest
bonjour à tous,
je cherche à savoir comment faire pour incrémenter une formule identique à plusieurs cellules sans refaire quinze mille fois le même code en changeant uniquement le range parce que ca prend beaucoup de place
ex: au lieu d'avoir:
Range('ce2').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
Range('ce3').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
Range('ce4').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
jusqu'à ce20, la seule chose changeant étant juste le range.
j'aimerais pouvoir avoir une formule unique pour tous mes range concernées et j'avais pensé que cela marcherait:
Range('ce2:ce' & nb).Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
le problème étant que comme cela, ça ne marche pas alors qu'est ce qui ne va pas dans ce code? sachant que nb est déjà calculé
merci
je cherche à savoir comment faire pour incrémenter une formule identique à plusieurs cellules sans refaire quinze mille fois le même code en changeant uniquement le range parce que ca prend beaucoup de place
ex: au lieu d'avoir:
Range('ce2').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
Range('ce3').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
Range('ce4').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
jusqu'à ce20, la seule chose changeant étant juste le range.
j'aimerais pouvoir avoir une formule unique pour tous mes range concernées et j'avais pensé que cela marcherait:
Range('ce2:ce' & nb).Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
le problème étant que comme cela, ça ne marche pas alors qu'est ce qui ne va pas dans ce code? sachant que nb est déjà calculé
merci