Boucler une formule x fois dans une case différente

Bonjour,

Je fais rappelle à vous car j'essaie de faire une macro pour copier une formule, puis passer à la case suivante, pour copier de nouveau la formule et cela plusieurs fois de suite.

Je ne sais pas si c'est très clair alors je vous joins mon fichier avec la macro que j'ai faite et qui fonctionne mais que je suis obligé de recopier pour chaque cellule.

Je ne sais pas si c'est très clair...

Par avance, Merci à vous pour votre aide.

Bonjour,

Si j'ai bien compris la demande ...

Sub PieceCentraleAIDA()
'
'-------------------------------------------------------------------------------------------------------
'VERIFICATION DES VALEURS OK
'COLONNE G

Dim x As Byte

For x = 7 To 37  '( colonne G à AK )
   Cells(5, x).FormulaR1C1 = _
        "=nb_si_couleur(R[7]C:R[495]C,no_couleur(R7C3))+nb_si_couleur(R[7]C:R[495]C,no_couleur(R5C3))"
   Cells(6, x).FormulaR1C1 = "=nb_si_couleur(R[6]C:R[494]C,no_couleur(R6C3))"
Next x

End Sub

ric

Bonjour à tous,

pas sûr qu'il faille une macro.

Merci à Tous les 2.

Effectivement y a peut être pas besoin de macro mais pour la ligne OK les valeurs T et/ou C doivent comptent pour 1.

Faut une formule avec un ou dans ce cas?

re-bonjour,

formule à mettre en H5 et à tirer vers la droite (sauf pour la colonne AC si j'ai bien compris)

=NB.SI(H$12:H$500;"c")+NB.SI(H$12:H$500;"t")

Merci à Tous pour votre aide.

Bonne journée.