Concatainer formule Fermé

Question

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

f894009 · Answer

Bonjour,

il faut doubler les doubles cotes: 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))"

Vico270 · Answer

je te remercie beaucoup beaucoup beaucoup c'était pila ca encore mercif894009