Concatainer formule
Vico270
-
Vico270 -
Vico270 -
excel 2003,
Salut les loulous,
je vous écris pour avoir une info rapide est il possible, sous VBA, de réduire cette macro:
Sub formule_automatisation()
Range("AK1").Select
ActiveWindow.SmallScroll ToRight:=2
ActiveCell.FormulaR1C1 = "Nombre de jours / arrêt"
Range("ak2").Select
ActiveCell.FormulaLocal = "=si(et(ai2=0;ah2=ah3);si(si(i2=i3;somme.si(ah:ah;ah2;ab:ab);somme.si(ah:ah;ah2;ab:ab))=si(i3=i4;somme.si(ah:ah;ah3;ab:ab);somme.si(ah:ah;ah3;ab:ab));"";somme.si(ah:ah;ah2;ab:ab));somme.si(ah:ah;ah2;ab:ab))"
Range("ak2").Select
Selection.AutoFill Destination:=Range("ak2:ak100")
End Sub
Car a a chaque fois que j'essaye de l'éxécuter, une erreur bog 1004 apparait .
Je vous remercie de toutes les pistes éventuels à suivre
tchou
Salut les loulous,
je vous écris pour avoir une info rapide est il possible, sous VBA, de réduire cette macro:
Sub formule_automatisation()
Range("AK1").Select
ActiveWindow.SmallScroll ToRight:=2
ActiveCell.FormulaR1C1 = "Nombre de jours / arrêt"
Range("ak2").Select
ActiveCell.FormulaLocal = "=si(et(ai2=0;ah2=ah3);si(si(i2=i3;somme.si(ah:ah;ah2;ab:ab);somme.si(ah:ah;ah2;ab:ab))=si(i3=i4;somme.si(ah:ah;ah3;ab:ab);somme.si(ah:ah;ah3;ab:ab));"";somme.si(ah:ah;ah2;ab:ab));somme.si(ah:ah;ah2;ab:ab))"
Range("ak2").Select
Selection.AutoFill Destination:=Range("ak2:ak100")
End Sub
Car a a chaque fois que j'essaye de l'éxécuter, une erreur bog 1004 apparait .
Je vous remercie de toutes les pistes éventuels à suivre
tchou
