transforme formule en macro

[dede039]

bonsoirs a tous.

je voudrai transforme cette formule en macro
=$F$12-($F$12-NB.SI('Année en cours'!$E5:E35;"CP")-NB.SI('Année en cours'!$I5:I35;"cp")-NB.SI('Année en cours'!$M5:M35;"cp")-NB.SI('Année en cours'!$Q5:Q35;"cp")-NB.SI('Année en cours'!$U5:U35;"cp")-NB.SI('Année en cours'!$Y5:Y35;"cp")-NB.SI('Année en cours'!$AC5:AC35;"cp")-NB.SI('Année en cours'!$AG5:AG35;"cp"))

et mettre le résulta en cellule F13

merci de votre aide

 

[laurent950]

Bonsoir

ActiveCell.FormulaR1C1 = _
        "=R12C6-(R12C6-COUNTIF('Année en cours'!R[4]C5:R[34]C[4],""CP"")-COUNTIF('Année en cours'!R[4]C9:R[34]C[8],""cp"")-COUNTIF('Année en cours'!R[4]C13:R[34]C[12],""cp"")-COUNTIF('Année en cours'!R[4]C17:R[34]C[16],""cp"")-COUNTIF('Année en cours'!R[4]C21:R[34]C[20],""cp"")-COUNTIF('Année en cours'!R[4]C25:R[34]C[24],""cp"")-COUNTIF('Année en cours'!R[4]C29:R[34]C[28],""" & _
        "UNTIF('Année en cours'!R[4]C33:R[34]C[32],""cp""))"

 

[dede039]

bonsoirs laurent950

je ne c pas comment utilise ton code
je joint un petit ficher
merci

 

[piga25]

Bonjour dede039, Laurent950, le forum
Vous pouvez déjà réduire cette formule :

=$F$12-($F$12-NB.SI('Année en cours'!$E5:E35;"CP")-NB.SI('Année en cours'!$I5:I35;"cp")-NB.SI('Année en cours'!$M5:M35;"cp")-NB.SI('Année en cours'!$Q5:Q35;"cp")-NB.SI('Année en cours'!$U5:U35;"cp")-NB.SI('Année en cours'!$Y5:Y35;"cp")-NB.SI('Année en cours'!$AC5:AC35;"cp")-NB.SI('Année en cours'!$AG5:AG35;"cp"))

par :

=NB.SI('Année en cours'!E5:AW35;E13)

Vous pouvez la recopier vers le bas
et pour total travaillé mettre

=NB.SI('Année en cours'!E5:AW35;"////////////////")

Même principe pour vos jours restant

=$O$5-NB.SI('Année en cours'!E5:AW35;E13)

ou plus simple

=$O$5-$F$13

Pourquoi vouloir une macro?
Si réellement besoin faire :
enregistreur macro
taper votre formule
fin enregistrement

 

[dede039]

bonjours
oui il me faut une macro
et quand je fait l'enregistrement quand je l’exécute j'ai une erreur
comment faire

 

[piga25]

Bonjour,

La formule simplifiée en code VBA

Sub Insertformule()

    Range("F13").FormulaR1C1 = "=COUNTIF('Année en cours'!R5C5:R35C49,RC5)"

End Sub

Sur le fichier joint faire un clique sur le bouton pour que la formule se mette en F13